[Klemion]

Имеется набор объектов 3D-тел, полученных функцией Сдвиг, как прямых так и прямолинейных. Если посмотреть свойство отдельного объекта, то там есть пункт "Длина". Однако для автоматического извлечения данный пункт отсутствует.
Надо всеми правдами и неправдами извлечь длины 3D-тел. А если есть какая то возможность извлечь еще и габаритные размеры (объекты преимущественно цилиндрические - необходимо извлечь диаметры) то буду рад если поделитесь!

[Кулик Алексей aka kpblc]

Файл предоставь. Если велась история записи изменения тел, может быть, что-то увидишь в панели свойств.

[Klemion]

Файл примера прикрепил.
Суть какая - имеется некая траектория, по которой потом "сдвигаются" окружности для получения 3D-тел.
Для прямых участков надо извлечь диаметр и длину.
Для криволинейных - только длину.

[Profan]

А если так попробовать:

Код:

[Выделить все]

(setq obj (car (entsel "\nВыберите 3D тело: ")))
(vla-GetBoundingBox (vlax-ename->vla-object obj) 'minp 'maxp)
(setq pmin (vlax-safearray->list minp) pmax (vlax-safearray->list maxp))

pmin и pmax - крайние 3D координаты габаритного параллелепипеда.

[Кулик Алексей aka kpblc]

Profan, ты на раздел топика посмотри...

[Klemion]

Сообщение от Profan А если так попробовать: Код: [Выделить все] (setq obj (car (entsel "\nВыберите 3D тело: "))) (vla-GetBoundingBox (vlax-ename->vla-object obj) 'minp 'maxp) (setq pmin (vlax-safearray->list minp) pmax (vlax-safearray->list maxp)) pmin и pmax - крайние 3D координаты габаритного параллелепипеда.

Вариант с габаритами параллелепипеда интересный, но как я понял будет работать только если элемент параллелен плоскостям XOY XOZ или YOZ. В остальных случаях не предоставится возможным найти характеристики тела.

Сообщение от Кулик Алексей aka kpblc Profan, ты на раздел топика посмотри...

Есть какие то соображения по поводу как это осуществить все таки? Лисп или штатными методами это не важно, лишь бы было вообще осуществимо.

Сообщение от Кулик Алексей aka kpblc Profan, ты на раздел топика посмотри...

Может есть какие то мысли? Не важно каким способом, главное что б было осуществимо. А к процессу извлечения привыкнется.

[Profan]

Сообщение от Кулик Алексей aka kpblc Profan, ты на раздел топика посмотри...

Я посмотрел: Программное обеспечение. А извлечь указанное свойство (длина), которого в палитре свойств 3D тела нет, можно только с помощью программирования.

Сообщение от Klemion будет работать только если элемент параллелен плоскостям XOY XOZ или YOZ

Да, габаритный контейнер ортогонален осям координат. Значит, надо тела делать временно ортогональными (поворачивать). Сложно, да, однако, именно таким образом я создаю отверстия в стене (3D тело) в месте пересечения ее воздуховодами (3D тела), трубопроводами (3D тела) или лотками (3D тела) после экспорта архитектуры с трассами MEP из Revit в AutoCAD.

[Кулик Алексей aka kpblc]

Profan, не пытайся казаться дурнем - не получится. Дальше прочитай: AutoCAD. Т.е. нужны штатные возможности. Без использования программирования.

[VVA]

Сообщение от Klemion Лисп или штатными методами это не важно, лишь бы было вообще осуществимо.

GeomProps ?

Вызов из AutoLISP: (GeomPropsGetArea <имя примитива>) ;; Площадь примитива (GeomPropsGetVolume <имя примитива>) ;; Объем примитива (GeomPropsGetPerimiter <имя примитива>) ;; Периметр/длина примитива

Вычисление площади 3Dface, Mesh и PolygonMesh

[Klemion]

Сообщение от Profan А извлечь указанное свойство (длина), которого в палитре свойств 3D тела нет,

Но ведь свойство "длина" в палитре есть (см. скрин), но для стандартного извлечения недоступна

Сообщение от Profan Да, габаритный контейнер ортогонален осям координат. Значит, надо тела делать временно ортогональными (поворачивать)

Это не так страшно. У меня лишь единичные объекты не ортогональны осям, поэтому переживу.
Другое дело, а работает ли данная функция при выделении большого количества объектов. Просто если надо тыкать в каждый, я быстрее вручную все сделаю.
А еще можешь или объяснить, или кинуть ссылку на то как установить все это дело?

[VVA]

Сообщение от Klemion а работает ли данная функция при выделении большого количества объектов.

Klemion, Ссылки из #9 смотрел?
У geomprops есть функция для лиспа GeomPropsGetPerimiter.

[Klemion]

Сообщение от VVA Klemion, Ссылки из #9 смотрел? У geomprops есть функция для лиспа GeomPropsGetPerimiter.

Да, глянул, скачал, установил. Только не понимаю как пользоваться.
Ты пишешь:
"(GeomPropsGetPerimiter <имя примитива>) ;; Периметр/длина примитива"
Вот вместо имени примитива что писать следует? Если мне нужно определить периметр 3d-тела

[VVA]

GeomPropsGetPerimiter не подойдет. Подойдет этот способ
Только вместо команды "_SETVAR" писать команду "_LIST"
Это если руками

Сообщение от Klemion Не важно каким способом, главное что б было осуществимо. А к процессу извлечения привыкнется.

Например так (отчет смотреть в командной строке - клавиша F2)

Код:

[Выделить все]

 
(defun C:SolidL	(/ ss lst item qa cmd str flag)
;;;Solid Length
;;; http://forum.dwg.ru/showthread.php?p=1656438
  (vl-load-com)
  (if (setq ss (ssget "_:L" '((0 . "3DSOLID"))))
    (repeat (setq item (sslength ss))
      (setq lst (cons (ssname ss (setq item (1- item))) lst))
    ) ;_ end repeat
  )
  (setq qa (getvar "QAFLAGS"))
  (setq cmd (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (vl-catch-all-apply
    '(lambda ()
       (while (> (getvar "CMDACTIVE") 0) (command))
       (if command-s
	 (command-s "_LOGFILEON")
	 (command "_LOGFILEON")
       )
       (setvar "QAFLAGS" 2)
       (foreach	solid lst
	 (if command-s
	   (command-s "_LIST" solid "")
	   (command "_LIST" solid "")
	 )
       )
       (if command-s
	 (command-s "_LOGFILEOFF")
	 (command "_LOGFILEOFF")
       )
       (setq lst  nil
	     item (open (getvar "LOGFILENAME") "r")
       )
       (while (setq str (read-line item))
	 (if (wcmatch str "*----------------------------*")
	   (setq lst (cons str lst))
	 )
       )
       (setq flag (car lst))
       (close item)
       (if (setq lst  nil
		 item (open (getvar "LOGFILENAME") "r")
	   )
	 (progn
	   (setq str (read-line item))
	   (while (not (eq (strcase str) (strcase flag)))
	     (setq str (read-line item))
	   )
	   (while (setq str (read-line item))
	     (if
	       (wcmatch	(setq str (strcase (vl-string-trim " \t\n" str)))
			"ДЛИНА*"
	       )
		(progn
		  (setq str (str-str-lst str ":"))
		  (setq
		    lst	(cons (atof (vl-string-trim
				      " \t\n"
				      (vl-princ-to-string (cadr str))
				    )
			      )
			      lst
			)
		  )
		)
	     )
	   )
	 )
       )
       (close item)
     )
  )
  (setvar "QAFLAGS" qa)
  (setvar "CMDECHO" cmd)
  (setq lst (reverse lst))
  (princ "============== SOLID LENGTH REPORT ==============\n"
  )
  (princ (car lst))
  (mapcar '(lambda (x) (princ ",") (princ (rtos x 2 6))) (cdr lst))
  (princ "\n===============================================")
  (princ)
)
(defun str-str-lst (str pat / i)
  (cond	((= str "") nil)
	((setq i (vl-string-search pat str))
	 (cons (substr str 1 i)
	       (str-str-lst (substr str (+ (strlen pat) 1 i)) pat)
	 ) ;_  cons
	)
	(t (list str))
  ) ;_  cond
)

[Profan]

Это, по сути, опять определение габаритного контейнера, только муторно.
Как пример: имею 3DSOLID - цилиндр. Вышеприведенная программа выдает следующее:
Ограничивающая рамка: Нижняя граница X = -39574.164, Y = -498707.461, Z = -1588.102
Верхняя граница X = -28379.116, Y = -479476.069, Z = -1429.102
Длина получилась равна nil.
Пример более простой программы:

Код:

[Выделить все]

(defun C:B-SOLID ( / pmin pmax)
(vla-GetBoundingBox (vlax-ename->vla-object (car (entsel))) 'minp 'maxp)
(setq pmin (vlax-safearray->list minp) pmax (vlax-safearray->list maxp))
(princ "\nОграничивающий контейнер: ")
(princ "\nМинимальная точка: ") (princ pmin)
(princ "\nМаксимальная точка: ") (princ pmax)
(vl-cmdf "_BOX" pmin pmax)
(princ)
)

Протокол выполнения:

Код:

[Выделить все]

Команда: B-SOLID
Выберите объект:
Ограничивающий контейнер:
Минимальная точка: (-39574.2 -498707.0 -1588.1)
Максимальная точка: (-28379.1 -479476.0 -1429.1)
_BOX
Первый угол или [Центр]:
Другой угол или [Куб/Длина]:
Команда:

Как видим, координаты практически совпадают. Длину диагонали можно вычислить через полученные координаты ящика, только она не будет равна длине цилиндра, если он не ортогонален.

[Klemion]

Сообщение от VVA Например так (отчет смотреть в командной строке - клавиша F2)

Сообщение от Profan Пример более простой программы:

Чертовы волшебники))

Полистал программу VVA. Опыта в программировании никакого, но как я понял ты просто создаешь лог, открываешь файл логов, находишь строку с именем "длина" и все что после ":" записываешь через запятую в отчет? Поправь если я ошибся. Буду хоть знать, правильно но ли представляю себе работу программы.

Profan,

Сообщение от Profan Длину диагонали можно вычислить через полученные координаты ящика, только она не будет равна длине цилиндра, если он не ортогонален.

А разве длина цилиндра будет равна не просто разнице координат?..

Программы действительно жизнь упростят, спасибо. Пользоваться однозначно буду.
Но хочется еще большей автоматизации.

Вообще введу в курс дела - есть куча трубопроводов, нарисованных "сдвигом" (но в данном случае это не важно я так понимаю, все равно это 3dsolid) А считать эти трубы для спецификации дико лень. Идея была изначально такой - выбираю все трубы одного диаметра, и нахожу их длину (как по программе VVA), суммирую и вписываю в спецификацию.
Но судя по всему это можно автоматизировать еще сильнее.
Например так - Создать файл txt, и забить туда разницы координат углов ограничивающих 3д-тело (как у Profan, только именно разницу). Забить их, каждое значение в новую строку, и потом скопировав в тот же Excel анализировать и по разнице координат смотреть и диаметры труб и длину (типоразмеры диаметров фиксированные, так что труда не составит). Отводы таким же образом можно будет сосчитать.

Если вам сильно скучно и нефиг делать, то буду рад такой программке) (ну или аналогу, потому что алгоритм описанный мной далеко не факт что самый простой)
Ну а если нет, то думаю я и сам смогу написать подобную программу. Благодаря вам у меня есть теперь хотя бы основа для всех этих дополнений)

В любом случае спасибо!)

[Profan]

Сообщение от Klemion А разве длина цилиндра будет равна не просто разнице координат?..

Будет равна только в случае диаметра цилиндра равного нулю. Диаметр может быть и не равен нулю, но тогда сам цилиндр должен быть ортогональным.
На картинке видно, почему длина цилиндра не равна длине диагонали.

[Klemion]

Сообщение от Profan Будет равна только в случае диаметра цилиндра равного нулю. Диаметр может быть и не равен нулю, но тогда сам цилиндр должен быть ортогональным.

А ну в этом случае конечно. Я просто думал что ты изначально про цилиндр ортогональный осям говорил, вот и удивился почему диагональ.

[Profan]

Программа, которая была здесь, не соответствует исходным данным.

[Александр Ривилис]

Klemion,
Здесь готовый алгоритм: http://adn-cis.org/kak-poluchit-3d-p...lo-sdviga.html

[Profan]

Напомню, что я разрабатываю свои программы для тел, образующихся при экспорте коммуникаций MEP (совместно с 3D архитектурой) из Revit в AutoCAD. Тел типа "Сдвиг" там нет. Зато часто присутствуют тела типа "BODY". На этот случай я сделал программу автоматического преобразования тел "BODY" в тела "3DSOLID".