[编程申请]：求助在任意距离内生成四条线段组成的虚线

pdzhj

我是搞电力低压网的，经常在地形图上画低压电网，我们这规定两根电线杆之间如果是三相四线的，用四条线段组成的虚线表示,如- - - -，两根电线杆之间如果是单相二线的，用二条线段组成的虚线表示,如- -，我现在的做法是先画一条直线，再根据需要打断成四或二段，比较麻烦，希望高手编写一个程序，能自动生成四段线和二段线，注意：地形图的比例为1：1000，两根电杆之间距离是随机的，不是固定的。谢谢！

aeo

三相四线
    间距和线长一样

2. 
   
3. (defun c:sx( / ang dis p1 p2)
   
4. (if(and
   
5.         (setq p1(getpoint "\n起点："))
   
6.         (setq p2(getpoint p1 " >>>端点:"))
   
7.     )
   
8.     (progn
   
9.         (setq dis(/(distance p1 p2) 7.)
   
10.               ang(angle p1 p2)
    
11.         )
    
12.         (repeat 4
    
13.              (command "line""none"p1"none"(polar p1 ang dis) "")
    
14.              (setq p1(polar p1 ang (* 2 dis)))
    
15.         )
    
16.     )
    
17. )
    
18.         (princ)
    
19. )
    

<br /> (defun c:sx( / ang dis p1 p2)<br /> (if(and <br />         (setq p1(getpoint "\n起点："))<br />         (setq p2(getpoint p1 " >>>端点:"))<br />     )<br />     (progn<br />         (setq dis(/(distance p1 p2) 7.)<br />               ang(angle p1 p2)<br />         )<br />         (repeat 4<br />              (command "line""none"p1"none"(polar p1 ang dis) "")<br />              (setq p1(polar p1 ang (* 2 dis)))<br />         )<br />     )<br /> )<br />         (princ)<br /> )<br />

单相 7 改3      4 改2

pdzhj

很好用，万分感谢！
假如我要改变间距和线长的比例，怎样编写，如线段长点，间距短点，谢谢！
很想知道答案，望aeo斑竹尽快答复，盼！谢谢！