等分辅助线，构造线

xj6019

谢谢分享   先留下  以后用   非常不错

xj6019

点取点的位置不能自动添加一条线吗    不要构造线     弄个线段最好   线段长点就好 比如说L=100000

tianbeiyuan

谢谢楼主分享。。。。

czb203

感谢楼主分享 下载试试

999999

顶起来，这个好用，谢谢楼主

chenry676

能否选取两点改为直接选择线段或者PL线。

love_cq

支持个，学习并下载备用。

sunwei2009

谢谢分享,学习并下载备用

ajunseo

谢谢分享   先留下  以后用   非常不错

xiangganglv

1. (defun c:de( / n p1 p2 ang1 p0 m)
   
2. 
   
3. (setq p1 (getpoint "\n点取第一点："))
   
4. 
   
5. (setq p2 (getpoint p1 "\n点取第二点："))
   
6. 
   
7. (setq ang1 (angle p1 p2))
   
8. 
   
9. (setq n (getint "\n输入等分数："))
   
10. 
    
11. (if (null n)  (setq n 2))
    
12. 
    
13. (setq p0 (polar p1 ang1 (/ (distance p1 p2) n)))  
    
14. 
    
15.   (setq m 0)
    
16. 
    
17.   (repeat (- n 1)  
    
18. 
    
19.   (entmake (list '(0 . "POINT") (cons 10 p0)))
    
20. 
    
21.   (setq m (+ m 1))
    
22. 
    
23.   (setq p0 (polar p0 ang1 (/ (distance p1 p2) n)))
    
24. 
    
25.   )
    
26. 
    
27.   )

(defun c:de( / n p1 p2 ang1 p0 m)<br /> <br /> (setq p1 (getpoint "\n点取第一点："))<br /> <br /> (setq p2 (getpoint p1 "\n点取第二点："))<br /> <br /> (setq ang1 (angle p1 p2))<br /> <br /> (setq n (getint "\n输入等分数："))<br /> <br /> (if (null n)  (setq n 2))<br /> <br /> (setq p0 (polar p1 ang1 (/ (distance p1 p2) n)))  <br /> <br />   (setq m 0)<br /> <br />   (repeat (- n 1)  <br /> <br />   (entmake (list '(0 . "POINT") (cons 10 p0)))<br /> <br />   (setq m (+ m 1))<br /> <br />   (setq p0 (polar p0 ang1 (/ (distance p1 p2) n)))<br /> <br />   )<br /> <br />   )

我常用的是点，随手改的。