如何用lisp获取构成面域的各条边的图元名
答案:2 悬赏:40
解决时间 2021-02-18 18:11
- 提问者网友：低唤何为爱
- 2021-02-18 04:30
如何用lisp获取构成面域的各条边的图元名
最佳答案
- 二级知识专家网友：24K纯糖
- 2021-02-18 04:51
(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画好的面域，返回面域各顶点
(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画好的面域，返回面域各顶点
全部回答
- 1楼网友：晨与橙与城
- 2021-02-18 05:14
虽然我很聪明，但这么说真的难到我了
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯