wdseraph发表于2004-10-21 16:36:00无痕大侠说的没错,我就是哪个意思的,谢谢各位拉!!! 选要判断是线,用region命令,如果闭合,就会生成新的实体.如果不闭合,就no. see?- ;;返回T,闭合.nil,不闭合.(defun c:tt ()
- (if(eq (entlast)(progn (vl-cmdf ".region" (ssget) "")(entlast)))
- nil
- (vl-cmdf ".u")
- )
- )
另外你也可以通过pedit/j 看看生成的实体是否闭合来判断第3个方法.求每曲线与其他曲线的交点,如果每条线条首尾都是交点,就闭合 |