请各位斑竹给瞧瞧病

无痕

搞个图例吧

铆钉

全部是曲线距离


我需要在曲线上点取一个点





然后取得这个点到起点的距离后


再给取得的距离加上一段距离后


求出这个点再在这个点画一条垂线

铆钉

全部是曲线


机上是我打错了应为加上

铆钉

就是他

meflying

这里不用把ENAME转化为VLA-OBJ。。。这个问题我已经说过很多遍，好象没有人有什么反应建议你不要就着某个程序或任务来学习LISP，你需要的先把基础部分掌握了

2. (defun ok_VVV (/ ENAME zxzhs ptcl ptcal cm os PX1 JANG) ;HOLDOSMODE)
3.    (vl-load-com)
4.    (setq ENAME   (car (entsel "\n拾取天桥路线: ")))
5.    (setq zxzhs (getpoint "\n点取天桥中心桩号："))
6.    (setq ptcl (vlax-curve-getclosestpointto ENAME zxzhs))
7.    (setq ptCal (vlax-curve-getpointatdist ENAME (+ (vlax-curve-getdistatpoint ENAME ptcl) 20)))   
8.    (setq cm (getvar "cmdecho"))
9.    (setq os (getvar "osmode"))
10.    (setvar "cmdecho" 0)
11.    (setvar "osmode" 0)   
12.    (setq PX1 (vlax-curve-getfirstderiv ENAME (vlax-curve-getparamatpoint ENAME ptCal)))
13.    (setq JANG (angle '(0 0 0) PX1))
14.    (command "_.line" (polar ptcal (+ (* pi 0.5) JANG) 10) (polar ptcal (+ (* 1.5 pi) JANG) 10) "");两个10是你需要画线的长度
15.    (setvar "osmode" os)
16.    (setvar "cmdecho" cm)
17.    (princ)
18. )

(defun ok_VVV (/ ENAME zxzhs ptcl ptcal cm os PX1 JANG) ;HOLDOSMODE)    (vl-load-com)    (setq ENAME   (car (entsel "\n拾取天桥路线: ")))    (setq zxzhs (getpoint "\n点取天桥中心桩号："))    (setq ptcl (vlax-curve-getclosestpointto ENAME zxzhs))    (setq ptCal (vlax-curve-getpointatdist ENAME (+ (vlax-curve-getdistatpoint ENAME ptcl) 20)))       (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) )

铆钉

谢谢