求【自动选取角点画出直线工具】!`~

coco25825

Auxiliary line drawing program very good, very powerful

zzl9105

carrot1983 发表于 2011-7-14 11:21
偶尔路过，打酱油的。。。

凑凑热闹，向雷锋同志学习，可惜偶不是雷锋。

很想学习这个辅助线，是如何跟着鼠标走的，呵呵，是什么函数命令呀？
想学源码，看板凳，是什么意思哦？
小萝卜头群主

xyp1964

2. 
   
3. ;; 线脚水平线 需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]
   
4. (defun c:tt (/ ss i s1 dx ptn pt y a s2)
   
5.   (setq ss (ssget '((0 . "*POLYLINE")))
   
6. i  -1
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (setq dx  (+ (car (xyp-get-MinMaxPoint s1 9)) 100)
   
10.    ptn (XYP-Sort-Ptn (xyp-get-Vertexs s1 0) 2)
    
11.     )
    
12.     (foreach pt ptn
    
13.       (setq y (cadr pt))
    
14.       (cond ((or (not a) (and a (not (equal y a))))
    
15.       (setq s2 (xyp-line pt (list dx y))
    
16.      a  y
    
17.       )
    
18.      )
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    

<br /> ;; 线脚水平线 需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]<br /> (defun c:tt (/ ss i s1 dx ptn pt y a s2)<br />   (setq ss (ssget '((0 . "*POLYLINE")))<br /> i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq dx  (+ (car (xyp-get-MinMaxPoint s1 9)) 100)<br />    ptn (XYP-Sort-Ptn (xyp-get-Vertexs s1 0) 2)<br />     )<br />     (foreach pt ptn<br />       (setq y (cadr pt))<br />       (cond ((or (not a) (and a (not (equal y a))))<br />       (setq s2 (xyp-line pt (list dx y))<br />      a  y<br />       )<br />      )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

xyp1964

yoyoho

感谢 xyp1964 版主 分享程序!

czykx613

xyp1964 发表于 2011-10-28 22:09

您辛苦了，好东西，希望有更多分享

davide888

谢谢源码分享

emk

zhynt大侠赞一个