[Jerald]

Можно ли в какой-то способ получить, в виде списка, информацию о габаритных размерах всех солидов в файле?

[Лиспер]

Габаритные размеры - это габариты описанного вокруг них параллелограмма?

[Хмурый]

_list

[Jerald]

Сообщение от Лиспер Габаритные размеры - это габариты описанного вокруг них параллелограмма?

Да, думаю это правильное определение. Конечно, солид может быть наклонён к одной из осей. Но, это пока не важно.

[Лиспер]

Код:

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

 (vl-load-com)

(defun c:solprop (/ selset minp maxp)
  (if (= (type (setq selset (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (ssget '((0 . "3DSOLID")))
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (foreach ent (mapcar (function vlax-ename->vla-object) (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))))
      (vla-getboundingbox ent 'minp 'maxp)
      (setq minp (vlax-safearray->list minp)
            maxp (vlax-safearray->list maxp)
            ) ;_ end of setq
      (princ
        (strcat "\nОбъект : "
                (vla-get-handle ent)
                "\nЦентр  : "
                (vl-princ-to-string (vlax-safearray->list (vlax-variant-value (vla-get-centroid ent))))
                "\nЛевый нижний угол   : "
                (vl-princ-to-string minp)
                "\nПравый верхний угол : "
                (vl-princ-to-string maxp)
                ) ;_ end of strcat
        ) ;_ end of princ
      ) ;_ end of foreach
    ) ;_ end of if
  (textscr)
  (princ)
  ) ;_ end of defun

[Jerald]

Select objects:
Объект : C760
Центр : (4979.25 -200.0 404.96)
Левый нижний угол : (4729.25 -400.0 254.96)
Правый верхний угол : (5229.25 0.0 554.96)

Почему то не все солиды обрабатывает, например, плохо обрабатывает солиды полученные методом экструзии, с командой list та же проблема.