XDGE几何库应用(十)-- Hatch 边界

st788796

xdrx_getpropertyvalue 可以获取 hatch 边界 Ge 实体，即将发布
重建边界

1. (defun c:tt (/ e gl)
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\nPick Hatch: " '((0 . "hatch")))))
   
4.         (setq gl (cdr (xdrx_getpropertyvalue e "getLoopAt" 0)));_边界Ge实体列表
   
5.       )
   
6.     (mapcar '(lambda (x) (xdge::entity:make x t)) gl)
   
7.   )
   
8.   (princ)
   
9. )
   

(defun c:tt (/ e gl)<br />   (if (and<br />         (setq e (car (xdrx_entsel "\nPick Hatch: " '((0 . "hatch")))))<br />         (setq gl (cdr (xdrx_getpropertyvalue e "getLoopAt" 0)));_边界Ge实体列表<br />       )<br />     (mapcar '(lambda (x) (xdge::entity:make x t)) gl)<br />   )<br />   (princ)<br /> )<br />

其他应用敬请关注！