算两点间距离，并定数等分这段距离

cie0588

1. (defun c:tt ()
   
2.   (vl-load-com)
   
3.   (setvar "CMDECHO" 0)
   
4.   (setq  p1 (getpoint "\n第一点：")
   
5.   p2 (getpoint p1 "\n第二点：")
   
6.   )
   
7. ;;;两点距离
   
8.   (princ
   
9.     (strcat "\n****两点距离:" (rtos (distance p1 p2) 2 3))
   
10.   )
    
11. ;;;等分数量：
    
12.   (setq n (getint "\n等分数量:"))
    
13. ;;;等分子函数，根据两点点及等分数量得出等分点列表
    
14.   (defun tt-df (p1 p2 n)
    
15.     (if  (> (1- n) 0)
    
16.       (cons (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))
    
17.       (tt-df (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))
    
18.        p2
    
19.        (1- n)
    
20.       )
    
21.       )
    
22.     )
    
23.   )
    
24. ;;;等分点列表
    
25.   (setq lst (tt-df p1 p2 n))
    
26. ;;; 起点、终点、等分点处画园
    
27.   (mapcar '(lambda (x)
    
28.        (vla-AddPoint
    
29.          (vla-get-modelspace
    
30.      (vla-get-activedocument (vlax-get-acad-object))
    
31.          )
    
32.          (vlax-3d-point x)
    
33.        )
    
34.      )
    
35.     (append (list p1) lst (list p2))
    
36.   )
    
37.   (prin1)
    
38. )

(defun c:tt ()<br />   (vl-load-com)<br />   (setvar "CMDECHO" 0)<br />   (setq  p1 (getpoint "\n第一点：")<br />   p2 (getpoint p1 "\n第二点：")<br />   )<br /> ;;;两点距离<br />   (princ<br />     (strcat "\n****两点距离:" (rtos (distance p1 p2) 2 3))<br />   )<br /> ;;;等分数量：<br />   (setq n (getint "\n等分数量:"))<br /> ;;;等分子函数，根据两点点及等分数量得出等分点列表<br />   (defun tt-df (p1 p2 n)<br />     (if  (> (1- n) 0)<br />       (cons (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))<br />       (tt-df (polar p1 (angle p1 p2) (/ (distance p1 p2) n 1.0))<br />        p2<br />        (1- n)<br />       )<br />       )<br />     )<br />   )<br /> ;;;等分点列表<br />   (setq lst (tt-df p1 p2 n))<br /> ;;; 起点、终点、等分点处画园<br />   (mapcar '(lambda (x)<br />        (vla-AddPoint<br />          (vla-get-modelspace<br />      (vla-get-activedocument (vlax-get-acad-object))<br />          )<br />          (vlax-3d-point x)<br />        )<br />      )<br />     (append (list p1) lst (list p2))<br />   )<br />   (prin1)<br /> )

cie0588

我这里没有问题的：

726613

cie0588 发表于 2013-5-22 15:56

问题已解决，谢谢

yxp

我不懂，
为啥不用CAD的 divide 定数等分命令？这个命令甚至可以在等分处插入块，很强大的。

cie0588

yxp 发表于 2013-5-23 01:44
我不懂，
为啥不用CAD的 divide 定数等分命令？这个命令甚至可以在等分处插入块，很强大的。

如果单纯的等分，插入块，我会用这个命令
但是得出点的列表还有其他的用途的话，我会用程序来计算。
用等分的命令得出的点，虽说可以加入选择集，再进行处理，只不过我个人不喜欢这样而已。

xiabin68

好思路，，，来自: Android客户端

dhtfm

好用，学习了，谢谢。

hooboxu

能变xl线么，点不好删

hooboxu

能变xl线吗？或者长度是二点等距的直线