[求助]程序

铆钉 · 发表于 2004-7-15 16:59:00

(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)
)
请高人指点迷津