[求助]程序

铆钉

(defun c:qxcd ()
(vl-load-com)
(setq ENAME (cadr (entsel "\n拾取曲线: ")))
(vl-cmdf "_.line" "_per" ename pause "")
(setq pt (cadr (grread 1 1)))
(vl-cmdf "_erase" (entlast) "")
(vl-cmdf "_.line" pt "_per" ename "")
(setq qxjl (getreal "\n输入距离："))
(ok_vvvv)
)
(defun ok_vvvv ()
(setq ptCal (vlax-curve-getpointatdist;|返回曲线上距开始点为指定距离的点（在 WCS 中）|; ENAME
(+ (vlax-curve-getdistatpoint;|返回曲线从开始点到指定点的曲线段的长度|; ENAME pt1) qxjl)))
(setq cm (getvar "cmdecho"))
(setq os (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq PX1 (vlax-curve-getfirstderiv ENAME (vlax-curve-getparamatpoint ENAME ptCal)))
(setq JANG (angle '(0 0 0) PX1))
(command "_.line" (polar ptcal (+ (* pi 0.5) JANG) 10) (polar ptcal (+ (* 1.5 pi) JANG) 10) "");两个10是你需要画线的长度
(setvar "osmode" os)
(setvar "cmdecho" cm)
(princ)
) 请高人指点迷津

meflying

不要就说迷津。。。具体说出来，什么问题。。。


如果是摘抄的程序，最好标明一下来源，并注明你修改过哪儿

铆钉

; 错误: 无法获取 ObjectID: (1008.94 993.291 0.0)


出此提示

meflying

希望你每次能把我的话看全了。。。


       


       


       


(setq ENAME (cadr (entsel "\n拾取曲线: ")))


看看这个返回什么。。。

铆钉

谢了


小弟明白了


拜谢