[LISP程序]：求两点间的距离

nb_soft

各位大侠：请问利用Lisp编程怎样实现如下的功能：假设有一条利用Ｐｌ命令在ＣＡＤ中绘制的折线由１０个结点组成，其结点的编号为１～１０，现在需利用程序求其中任意2个点间的距离，并将求出的距离标在图中；具体操作是运行程序以后先选择所绘制的PL线，然后采集线上的一个结点（假设3号点），然后再采集线上的另一个结点（假设7号点），最后程序运行的结果就是3～7号点间的距离，并将该距离标注在3～7之间。恳请各位高人的帮助。nb_gjp@163.com

oyxx_1023

2. 
   
3. (defun c:test (/ cur pt1 pt2)
   
4.   (if (and (setq cur (entsel "\nselect curve:"))
   
5.            (setq cur (vlax-ename->vla-object (car cur)))
   
6.            (setq pt1 (getpoint "\npick first point:"))
   
7.            (setq pt2 (getpoint "\npick second point:"))
   
8.       )
   
9.     (progn
   
10.       (princ
    
11.         (strcat        "\nDist on the curve between two point is:"
    
12.                 (rtos (abs (- (vlax-curve-getdistatparam
    
13.                                 cur
    
14.                                 (vlax-curve-getparamatpoint
    
15.                                   cur
    
16.                                   (vlax-curve-getclosestpointto cur pt1)
    
17.                                 )
    
18.                               )
    
19.                               (vlax-curve-getdistatparam
    
20.                                 cur
    
21.                                 (vlax-curve-getparamatpoint
    
22.                                   cur
    
23.                                   (vlax-curve-getclosestpointto cur pt2)
    
24.                                 )
    
25.                               )
    
26.                            )
    
27.                       )
    
28.                       2
    
29.                 )
    
30.         )
    
31.       )
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )
    

<br /> (defun c:test (/ cur pt1 pt2)<br />   (if (and (setq cur (entsel "\nselect curve:"))<br />            (setq cur (vlax-ename->vla-object (car cur)))<br />            (setq pt1 (getpoint "\npick first point:"))<br />            (setq pt2 (getpoint "\npick second point:"))<br />       )<br />     (progn<br />       (princ<br />         (strcat        "\nDist on the curve between two point is:"<br />                 (rtos (abs (- (vlax-curve-getdistatparam<br />                                 cur<br />                                 (vlax-curve-getparamatpoint<br />                                   cur<br />                                   (vlax-curve-getclosestpointto cur pt1)<br />                                 )<br />                               )<br />                               (vlax-curve-getdistatparam<br />                                 cur<br />                                 (vlax-curve-getparamatpoint<br />                                   cur<br />                                   (vlax-curve-getclosestpointto cur pt2)<br />                                 )<br />                               )<br />                            )<br />                       )<br />                       2<br />                 )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

至于文字标注的部分，你自己写一下，很简单的。

黄河之水

二楼主高手,没什么不能做出来

yshf

请试用第52楼的程序：http://www.xdcad.net/forum/showt ... y=&pagenumber=4

nb_soft

oyxx_1023  :
    非常感谢你的帮助，这个程序在运行的时候提示“select curve:; 错误: no function definition: VLAX-ENAME->VLA-OBJECT”，请问大侠可否帮我解决一下？

Underway

您得先加载这句
(vl-load-com)



Loads Visual LISP extensions to AutoLISP
(vl-load-com)
This function loads the extended AutoLISP functions provided with Visual LISP.
The Visual LISP extensions implement ActiveX
and AutoCAD reactor support through AutoLISP,
and also provide ActiveX utility and data conversion functions,
dictionary handling functions, and curve measurement functions.

nb_soft

感谢各位的鼎立相助，问题已经解决。