查找悬挂线及其断开位置

荒野孤行

spp_wall 发表于 2013-10-30 21:00
断点bucuo !!!!!!!!!!1

怎么不错？

photo_cup

很不错的功能...推荐

lengxiaxi

lsp不错，刚开是使用时把人搞懵了，原来使用之前必须先将要检查的对象pe为多义线，那样才有效果！若图元不是多义线，程序中的闭合功能不会执行，所以简单的说，这个lsp针对非多义线目标无效。mj里面有个ple的多义线lsp，结合那个lsp使用，这个程序就很方便了。

zazhz123

版主厉害的

77077

关键看这里，和我想的一样

2. (if (not (vlax-curve-isclosed obj))
   
3.     (progn
   
4.       (setq pt_start (vlax-curve-getstartpoint obj))
   
5.       (setq pt_end (vlax-curve-getendpoint obj))
   
6.       (command "circle" pt_start cr)
   
7.       (command "circle" pt_end cr)
   
8.     )
   
9.   )

(if (not (vlax-curve-isclosed obj))<br />     (progn<br />       (setq pt_start (vlax-curve-getstartpoint obj))<br />       (setq pt_end (vlax-curve-getendpoint obj))<br />       (command "circle" pt_start cr)<br />       (command "circle" pt_end cr)<br />     )<br />   )

恕放之生命

谢谢分享。

xyp1964

2. ;; 断线查错  需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
3. (defun c:tt ()
   
4.   (xyp-CMDLA0)
   
5.   (xyp-MkLaCo "TEST" 1)
   
6.   (setq ukw (UKWORD 1 "1 2" "1-闭合/2-检查" ukw)
   
7.         i   -1
   
8.   )
   
9.   (if (setq ss (ssget '((0 . "*polyLINE"))))
   
10.     (if        (= ukw "1")
    
11.       (command "pedit" "m" ss "" "c" "")
    
12.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
13.         (if (not (xyp-Curve-Close s1))
    
14.           (setq        s2 (xyp-circle (vlax-curve-getStartPoint s1) 100)
    
15.                 s3 (xyp-circle (vlax-curve-getEndPoint s1) 100)
    
16.           )
    
17.         )
    
18.       )
    
19.     )
    
20.   )
    
21.   (xyp-CMDLA1)
    
22. )

;; 断线查错  需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt ()<br />   (xyp-CMDLA0)<br />   (xyp-MkLaCo "TEST" 1)<br />   (setq ukw (UKWORD 1 "1 2" "1-闭合/2-检查" ukw)<br />         i   -1<br />   )<br />   (if (setq ss (ssget '((0 . "*polyLINE"))))<br />     (if        (= ukw "1")<br />       (command "pedit" "m" ss "" "c" "")<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (if (not (xyp-Curve-Close s1))<br />           (setq        s2 (xyp-circle (vlax-curve-getStartPoint s1) 100)<br />                 s3 (xyp-circle (vlax-curve-getEndPoint s1) 100)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )

荒野孤行

flyfox1047 发表于 2013-12-17 19:13

难道是触摸屏行业的？

qiushizhda

下过来马上就用上了，哈哈 。赞

我自然

这个不错，很需要。