Question

如何用lisp获取构成面域的各条边的图元名

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

(defun c:REGIONlist()
(setq en(car(entsel)))
(setq pt(vla-get-Centroid (vlax-ename->vla-object en)))
(setq x-pt (vlax-safearray-get-element (vlax-variant-value pt) 0))
(setq y-pt (vlax-safearray-get-element (vlax-variant-value pt) 1))
(setq pt1(list x-pt y-pt 0.0))
(command "BOUNDARY" pt1 "")
(setq en1(entlast))
(setq en1get(entget en1))
(setq 10list nil)
(foreach n en1get(if (= 10 (car n))
(setq 10list(cons (cdr n) 10list ))))
(entdel en1)
10list
)
选取CAD画好的面域，返回面域各顶点