[sashaooo]

Доброго времени суток. Добавляю вопрос к этой теме https://forum.dwg.ru/showthread.php?t=167721
Мне при помощи ChatGPT и нескольких вечеров удалось создать лисп который сохраняет параметры(центр,высота,ширина,длина) 3D тела типа BOX(ящик) в .txt файл, который я могу загружать в Aveva(lisp прикрепляю)

Код:

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

 
(setq file (open "centroid.txt" "w"))
(setq ss (ssget "X"))
(setq cnt (sslength ss))
(setq i 0)
(while (< i cnt)
  (setq en (ssname ss i))
  (setq vla (vlax-ename->vla-object en))
  (setq Centroid (vlax-get vla 'Centroid))
  (setq Position (vlax-get vla 'Position))
  (vla-GetBoundingBox vla 'minp 'maxp)
  (setq pmin (vlax-safearray->list minp))
  (setq pmax (vlax-safearray->list maxp))
  (setq D (* (ABS (- (nth 0 pmin) (nth 0 Centroid))) 2))
  (setq L (* (ABS (- (nth 1 pmax) (nth 1 Centroid))) 2))
  (setq H (* (ABS (- (nth 2 Centroid) (nth 2 Position))) 2))
  (write-line (strcat "NEW BOX") file)
  (write-line (strcat "POS X " (vl-princ-to-string (nth 0 Position))"mm Y " (vl-princ-to-string (nth 1 Position))"mm Z " (vl-princ-to-string (nth 2 Position))"mm") file)
  (write-line (strcat "XLEN " (vl-princ-to-string D)"mm") file)
  (write-line (strcat "YLEN " (vl-princ-to-string L)"mm") file)
  (write-line (strcat "ZLEN " (vl-princ-to-string H)"mm") file)
  (setq i (1+ i))
)

(close file)
(princ "Done.")

Тоже самое получится и с телами типа цилиндр,шар я думаю проблем не должно быть.
Но вот с телами созданные Extrude(выдавливанием),особенно тела у которых более 4 вершин, ни чего не получается..ChatGPT ни даёт разумного ответа,справочник Полещука просмотрел уже несколько раз,форумы в том числе англоязычные тоже не дают ответа..(хотя может быть не правильно ищу)
Подскажите возможно ли средствами Autolisp определить координаты вершин,когда их более 4, и высоту тела полученного операцией Выдавливание.
Спасибо,за любую информацию!

[SetQ]

Сообщение от sashaooo Мне при помощи ChatGPT и нескольких вечеров удалось создать лисп

Вот бы я такое пятнадцать лет назад здесь прочитал. А ещё через пятнадцать лисп как латынь будет, наверное.

Сообщение от sashaooo Подскажите возможно ли средствами Autolisp определить координаты вершин,когда их более 4, и высоту тела полученного операцией Выдавливание.

Конечно, возможно.

[sashaooo]

Не подскажите, каким образом?

[trir]

я в прошлой теме ссылку давал

Код:

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

 (defun acis-decode (s) ; decode an encrypted acis-string of dxf group 1
(apply (function strcat)
(mapcar
(function (lambda (c) ; decode one char
(cond ; by Owen Wengerd
((= c 32) " ")
((= c 86) "I")
(T (chr (boole 6 c 95))))))
(vl-string->list s))
)
)

(defun goACIS (/ ent entl)
(cond ((setq ent (car (entsel)))
(setq entl (entget ent))
(foreach n entl
(if (= 1 (car n))
(princ (acis-decode (cdr n)))
(terpri))))
)
)

[sashaooo]

Спасибо. Теперь понял.