批量字串距离修复

cgmacby

呼叫版主早点儿解决 呵呵~~~

cgmacby

cgmacby 发表于 2013-7-29 16:58
呼叫版主早点儿解决 呵呵~~~

他这个不完美，没解决，有错误的，如果能自主选择梁线所在图层和字体所在图层就好了

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url](defun c:tt ()
   
3.   (xyp-CMDLA0)
   
4.   (setq i -1)
   
5.   (if (setq ss (ssget '((0 . "*text") (8 . "wr_lpj,LGJ1"))))
   
6.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.       (setq p5        (xyp-9pt s1 5)
   
8.             rad        (+ (xyp-DXF 50 s1) (* pi 0.5))
   
9.             p1        (polar p5 rad 1000)
   
10.             p2        (polar p5 rad -1000)
    
11.       )
    
12.       (if (setq ss1 (ssget "f" (list p1 p2) '((0 . "line") (8 . "beam"))))
    
13.         (progn
    
14.           (setq        s2 (xyp-ClosestPtToSslst p5 (xyp-ss2list ss1))
    
15.                 pt (vlax-curve-getclosestpointto s2 p5)
    
16.                 pt (polar pt (angle pt p5) 350)
    
17.           )
    
18.           (xyp-move s1 p5 pt)
    
19.         )
    
20.       )
    
21.     )
    
22.   )
    
23.   (xyp-CMDLA1)
    
24. )

;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url](defun c:tt ()<br />   (xyp-CMDLA0)<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "*text") (8 . "wr_lpj,LGJ1"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq p5        (xyp-9pt s1 5)<br />             rad        (+ (xyp-DXF 50 s1) (* pi 0.5))<br />             p1        (polar p5 rad 1000)<br />             p2        (polar p5 rad -1000)<br />       )<br />       (if (setq ss1 (ssget "f" (list p1 p2) '((0 . "line") (8 . "beam"))))<br />         (progn<br />           (setq        s2 (xyp-ClosestPtToSslst p5 (xyp-ss2list ss1))<br />                 pt (vlax-curve-getclosestpointto s2 p5)<br />                 pt (polar pt (angle pt p5) 350)<br />           )<br />           (xyp-move s1 p5 pt)<br />         )<br />       )<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )

cgmacby

xyp1964 发表于 2013-11-24 11:39

加载了最新版的Xcad，此lsp能运行，就是这些数字没反应，求版主答疑~~~~~~~~~~~~