[求助]：如何实现距离相等 ?

su69

请问大家 如何实现距离相等 ?

比如我有5条直线或者是5个块, 怎么能实现他们之间的距离相等 ?

我正在布置天花上灯位的施工图, 调节灯的位置 手动调节太麻烦了

希望高手们写个程序 减轻点负担 ?

我想如果用程序就简单多了,首先确定两边的位置,然后依次选取,

执行程序,就 ok了.

真龙天子

方法有三;
1, 用阵列
2, 用定距等分
3, 用定数等分

su69

能具体说说2和3的思路么?

xyp1964

2. [FONT=courier new];;;djck(等距插块)
   
3. (defun c:djck (/ s1 pt1 pt2 e leng ang l1 l)
   
4.   (CMDLA0)
   
5.   (if (null int)
   
6.     (setq int 3)
   
7.   )
   
8.   (setq INT (UINT 1 "" "\n插入个数" INT))
   
9.   (if (setq s1 (USEL1 0 "INSERT" "图块"))
   
10.     (progn
    
11.       (if (setq pt1 (getpoint "\n起点<退出>: "))
    
12.         (progn
    
13.           (if (setq pt2 (getpoint pt1 "\n终点<退出>: "))
    
14.             (progn
    
15.               (setq e         (xyp-get-dxf 2 (car s1))
    
16.                     leng (distance pt1 pt2)
    
17.                     ang         (angle pt1 pt2)
    
18.                     l1         (/ leng (- int 1) 1.0)
    
19.                     l         0
    
20.               )
    
21.               (repeat int
    
22.                 (command "INSERT" e pt1 "" "" "")
    
23.                 (setq pt1 (polar pt1 ang l1)
    
24.                       l          (+ l l1)
    
25.                 )
    
26.               )
    
27.             )
    
28.           )
    
29.         )
    
30.       )
    
31.     )
    
32.   )
    
33.   (CMDLA1)
    
34. )
    
35. (pxyp"djck  (等距插块)")
    
36. (princ)[/FONT]

[FONT=courier new];;;djck(等距插块)<br /> (defun c:djck (/ s1 pt1 pt2 e leng ang l1 l)<br />   (CMDLA0)<br />   (if (null int)<br />     (setq int 3)<br />   )<br />   (setq INT (UINT 1 "" "\n插入个数" INT))<br />   (if (setq s1 (USEL1 0 "INSERT" "图块"))<br />     (progn<br />       (if (setq pt1 (getpoint "\n起点<退出>: "))<br />         (progn<br />           (if (setq pt2 (getpoint pt1 "\n终点<退出>: "))<br />             (progn<br />               (setq e         (xyp-get-dxf 2 (car s1))<br />                     leng (distance pt1 pt2)<br />                     ang         (angle pt1 pt2)<br />                     l1         (/ leng (- int 1) 1.0)<br />                     l         0<br />               )<br />               (repeat int<br />                 (command "INSERT" e pt1 "" "" "")<br />                 (setq pt1 (polar pt1 ang l1)<br />                       l          (+ l l1)<br />                 )<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )<br /> (pxyp"djck  (等距插块)")<br /> (princ)[/FONT]

snoopychen

我的这个程序不知道能否解决您的问题
http://p4.xdcad.net/forum/showthread.php?s=&threadid=520816

fire2006

好像不能