测量曲线上任意两点的曲线长度

forverd

2. (defun C:dd( / en p1 p2)
   
3.   (setq en (entsel "\n 选择曲线: "))
   
4.   (setq p1 (getpoint "\n 选择曲线上第一点: "))
   
5.   (setq p2 (getpoint "\n 选择曲线上第二点: "))
   
6.   (abs
   
7.   (- (vlax-curve-getDistAtPoint en p1))
   
8.      (vlax-curve-getDistAtPoint en p2)
   
9.    )
   
10. )

(defun C:dd( / en p1 p2)<br />   (setq en (entsel "\n 选择曲线: "))<br />   (setq p1 (getpoint "\n 选择曲线上第一点: "))<br />   (setq p2 (getpoint "\n 选择曲线上第二点: "))<br />   (abs<br />   (- (vlax-curve-getDistAtPoint en p1))<br />      (vlax-curve-getDistAtPoint en p2)<br />    )<br /> )

这个代码运行后总是提示   错误: 无法获取 ObjectID:

请问这个是什么原因？怎么改写

谢谢


另外“vlax-curve-getDistAtPoint” 这个函数可以适用于哪些“curve-obj” ？多段线  圆弧  圆曲线 都可以吗？

690994

en不对，看看entsel 说明

渠辉

(car (entsel))

forverd

690994 发表于 2021-4-10 21:37
en不对，看看entsel 说明

麻烦说下怎么修改，不懂lisp语言

forverd

渠辉 发表于 2021-4-10 21:43
(car (entsel))

(setq en (car(entsel "\n 选择曲线: ")))   是这样吗？

wzg356

(setq en(entsel "\n 选择曲线: "))
(setq en(car(entsel)))
(setq en(vlax-ename->vla-object en))

Bao_lai

正解，要区分ent跟obj。