请教，我定义了一多义线，想得到每相邻两点间的距离放入一数组里？

flypiggie

那位大虾能用lisp帮我编一段代码实现吗？谢谢！

xyp1964

;;;2004版测试通过

3. ;;;多义线长度逐段计数或逐段累加计数
4. (defun c:test025 (/ s1 eobj i leng pt0 pt1)
5.    (vl-load-com)
6.    (setq  s1     (entsel "\n\t选择对象<退出> : ")
7.   eobj (vlax-ename->vla-object (car s1))
8.   i       -1
9.   Leng 0
10.    )
11.    (while (setq pt0 (vlax-curve-getPointAtParam eobj (setq i (1+ i))))
12.        (if  (setq pt1 (vlax-curve-getPointAtParam eobj (setq n (1+ i))))
13.            (progn
14.           ;(setq Leng (+ Leng (distance pt0 pt1)));逐段累加计数
15.   (setq Leng (distance pt0 pt1))  ;逐段计数
16.   (princ (strcat "\nLeng" (rtos i 2 0) " = "))
17.   (princ Leng)
18.            )
19.        )
20.    )
21.    (princ)
22. )

;;;多义线长度逐段计数或逐段累加计数 (defun c:test025 (/ s1 eobj i leng pt0 pt1)    (vl-load-com)    (setq  s1     (entsel "\n\t选择对象<退出> : ")   eobj (vlax-ename->vla-object (car s1))   i       -1   Leng 0    )    (while (setq pt0 (vlax-curve-getPointAtParam eobj (setq i (1+ i))))        (if  (setq pt1 (vlax-curve-getPointAtParam eobj (setq n (1+ i))))            (progn           ;(setq Leng (+ Leng (distance pt0 pt1)));逐段累加计数   (setq Leng (distance pt0 pt1))  ;逐段计数   (princ (strcat "\nLeng" (rtos i 2 0) " = "))   (princ Leng)            )        )    )    (princ) )

flypiggie

啊，这么快就出来了，请问该怎么用呢？


我把它写入一个.lsp文件里，load后用不了。

flypiggie

test025
选择对象<退出> : error: null function
(VLAX-ENAME->VLA-OBJECT (CAR S1))
(SETQ S1 (ENTSEL "\n\t选择对象<退出> : ") EOBJ (VLAX-ENAME->VLA-OBJECT (CAR
S1)) I -1 LENG 0)
(C:TEST025)
*Cancel* 报错退出

xyp1964

在2004上测试通过。


R14肯定不行。