帮忙看看程序错在哪里？
这个是原程序：;;;*************************************
;;; No.2绘制垂线(任意曲线之垂线) 函数
;;; ---- By Ayunger Studio
;;;*************************************
(defun C:tt1(/ xEntPick entName pickPt entData startPt endPt p1 p2 tempPT angofLine lenPerLine tanAngle)
(while (not (and (setq xEntPick (entsel "\n选择曲线: ")))))
(setq entName (car xEntPick))
(setq pickPt (cadr xEntPick))
(setq entData (entget entName))
(redraw entName 3)
(grdraw pickPt pickPt -1 1)
(setq startPt (getpoint (strcat "\n指定垂足点<默认拾取点>: " )))
(if (null startPt) (setq startPt pickPt))
(setq startPt (vlax-curve-getClosestPointTo entName startPt nil))
(setq lenPerLine (getdist startPt "\n指定垂线长: "))
(setq tanAngle (angle '(0.0 0.0 0.0) (vlax-curve-getFirstDeriv entName
(vlax-curve-getparamatpoint entName
(vlax-curve-getclosestpointto entName startPt)))))
(setq p1 (polar startPt (+ tanAngle (/ PI 2.0)) lenPerLine))
(setq p2 (polar startPt (- tanAngle (/ PI 2.0)) lenPerLine))
(ayOSMode nil);关闭捕捉.
(vl-cmdf "_.Line" P1 P2 "")
(redraw entName 4)
);end_defun
;;;**************************
;;; No.0 对象捕捉开关 函数
;;;**************************
(defun ayOSMode (isOpenSnap)
(if isOpenSnap
(setvar "osmode" (rem (getvar "osmode") 703));打开捕捉.
(setvar "osmode" (+ (rem (getvar "osmode") 703) 703));关闭捕捉.
);end_if
);end_defun
这个是我自己想改成ucs下可以使用的，麻烦帮忙看看错在哪里？现在不能用默认拾取点。
;;;*************************************
;;; No.2绘制垂线(任意曲线之垂线) 函数
;;; ---- By Ayunger Studio
;;;*************************************
(defun C:tt(/ xEntPick entName pickPt pickPt1 entData startPt startPt1 endPt p1 p2 tempPT angofLine lenPerLine tanAngle)
(while (not (and (setq xEntPick (entsel "\n选择曲线: ")))))
(setq entName (car xEntPick))
(setq pickPt1 (cadr xEntPick))
(setq pickPt (trans pickPt1 1 0))
(setq entData (entget entName))
(redraw entName 3)
(grdraw pickPt pickPt -1 1)
(setq startPt1 (getpoint (strcat "\n指定垂足点<默认拾取点>: " )))
(setq startPt (trans startPt1 1 0))
(if (null startPt) (setq startPt pickPt))
(setq startPt (vlax-curve-getClosestPointTo entName startPt nil))
(setq lenPerLine (getdist startPt "\n指定垂线长: "))
(setq tanAngle (angle '(0.0 0.0 0.0) (trans (vlax-curve-getFirstDeriv entName
(vlax-curve-getparamatpoint entName
(vlax-curve-getclosestpointto entName startPt))) 1 0)))
(setq p1 (polar startPt (+ tanAngle (/ PI 2.0)) lenPerLine))
(setq p2 (polar startPt (- tanAngle (/ PI 2.0)) lenPerLine))
(ayOSMode nil);关闭捕捉.
(vl-cmdf "_.Line" P1 P2 "")
(redraw entName 4)
);end_defun
;;;**************************
;;; No.0 对象捕捉开关 函数
;;;**************************
(defun ayOSMode (isOpenSnap)
(if isOpenSnap
(setvar "osmode" (rem (getvar "osmode") 703));打开捕捉.
(setvar "osmode" (+ (rem (getvar "osmode") 703) 703));关闭捕捉.
);end_if
);end_defun
自己顶一下 试试吧。用trans首要理解当前需要trans的是wcs还是 ucs的点，或者ocs dcs
(getpoint)是UCS，vlax-curve-getclosestpointto 得到的是 wcs
command执行 ucs getdist 需要usc点，
多调试就知道了，
;;;*************************************
;;; No.2绘制垂线(任意曲线之垂线) 函数
;;; ---- By Ayunger Studio
;;;*************************************
(defun C:tt(/ xEntPick entName pickPt entData startPt endPt p1 p2 tempPT angofLine lenPerLine tanAngle)
(while (not (and (setq xEntPick (entsel "\n选择曲线: ")))))
(setq entName (car xEntPick))
(setq pickPt (cadr xEntPick))
(setq entData (entget entName))
(redraw entName 3)
(grdraw pickPt pickPt -1 1)
(setq startPt (getpoint (strcat "\n指定垂足点<默认拾取点>: " )))
(if (null startPt) (setq startPt pickPt))
(setq startPt (vlax-curve-getClosestPointTo entName (trans startPt 1 0)nil))
(setq lenPerLine (getdist (trans startPt 0 1) "\n指定垂线长: "))
(setq tanAngle (angle (trans '(0.0 0.0 0.0) 0 1)(trans (vlax-curve-getFirstDeriv entName
(vlax-curve-getparamatpoint entName
(vlax-curve-getclosestpointto entNamestartPt))) 0 1)))
(setq p1 (polar (trans startPt 0 1) (+ tanAngle (* PI 0.5)) lenPerLine))
(setq p2 (polar (trans startPt 0 1) (- tanAngle (* PI 0.5)) lenPerLine))
(ayOSMode nil);关闭捕捉.
(vl-cmdf "_.Line" P1 P2 "")
(redraw entName 4)
(princ)
);end_defun
;;;**************************
;;; No.0 对象捕捉开关 函数
;;;**************************
(defun ayOSMode (isOpenSnap)
(if isOpenSnap
(setvar "osmode" (rem (getvar "osmode") 703));打开捕捉.
(setvar "osmode" (+ (rem (getvar "osmode") 703) 703));关闭捕捉.
);end_if
);end_defun edata 发表于 2014-1-26 23:31 static/image/common/back.gif
试试吧。用trans首要理解当前需要trans的是wcs还是 ucs的点，或者ocs dcs
(getpoint)是UCS，vlax-curve-ge ...
多谢，学习了
;; 曲线垂直线，需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
(defun c:test1496 ()
(xyp-CMDLA0)
(setq dist (Udist 1 "" "垂线长度<输入或鼠标直接量取>" dist nil)
l0 (* dist 0.5)
s0 (car (entsel "\n选择曲线: "))
mode t
)
(princ "\n左键确认，其它退出... ")
(if (xyp-curve-check s0)
(while mode
(setq mo (grread t 15 0)
co (car mo)
)
(redraw)
(cond ((member co '(3)) (xyp-line p2 p3))
((member co '(2 25 32)) (setq mode nil))
(t
(setq p1 (xyp-Grvecs-Osnap (cadr mo))
pt (vlax-curve-getclosestpointto s0 p1)
p2 (xyp-Get-FaxianAtPoint s0 pt l0)
p3 (xyp-Get-FaxianAtPoint s0 pt (- l0))
)
(xyp-Grvecs-Ptlst (list p2 p3) 1)
)
)
)
)
(xyp-CMDLA1)
)
页:
[1]