[technos]

Нужен макрос для AutoCAD, экспортирующий список 2D деталей в текстовый файл.

Нужно экспортировать: габаритные размеры, номер (если указан), толщину (если указана), количество (если указано), название материала (если указано).

Готов оплатить разумную сумму за готовый макрос.

[gomer]

вот самый простой способ

Код:

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

 (defun eBBox (e)
;;; (ebbox (car (entsel)))
  (vla-getBoundingBox (vlax-ename->vla-object e) 'mi 'ma)
  (mapcar 'vlax-safearray->list (list mi ma))
)

(defun ssBBox (ss)
;;; (ssBBox (ssget))
  (mapcar
    '(lambda (a b)
       (apply
         'mapcar
         (cons
           a
           (mapcar
             b
             (mapcar 'eBBox
                     (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
             )
           )
         )
       )
     )
    '(min max)
    '(car cadr)
  )
)

(defun sides (p1 p2)
;;;
  (mapcar '(lambda (f) (abs (- (f p2) (f p1))))
           (list car cadr caddr)
  )
)

(defun c:test  ( / bbox)
  (setq  bbox (ssBBox (ssget)))
  (sides (car bbox) (cadr bbox))
)