Nhờ Chỉnh Lisp Vẽ Đường Bao Solid

[LispVN 0]

Em có bài này nhờ diễn đàn:

Có lisp vẽ đường bao của solid nhưng lisp này phải chọn và vẽ từng solid rất mất thời gian.

Em nhờ cao nhân diễn đàn chỉnh thành chọn hàng loạt và vẽ đường bao hàng loạt để đỡ làm thủ công nhiều lần.

Rất mong diễn đàn giúp đỡ, cám ơn nhiều.

Bản vẽ có Solid nhưng không đưa lên đc ạ!

(defun c:outlinesolid(/ solid pt1 pt2 pt3 pt4)

(prompt "\nPlease select the solid you want to outline.")

(WHILE (NOT (setq solid (ssget ":S" '((0 . "SOLID")))))

(prompt "\nPlease select the solid you want to outline."))

(SETQ pt1 (cdr (assoc 10 (entget (ssname solid 0))))

pt2 (cdr (assoc 11 (entget (ssname solid 0))))

pt3 (cdr (assoc 12 (entget (ssname solid 0))))

pt4 (cdr (assoc 13 (entget (ssname solid 0))))

);SETQ

(COMMAND "_.PLINE" PT1 PT2 PT4 PT3 "C")

(command ".erase" solid "")

);DEFUN