帮忙看看程序错在哪里？

adc

这个是原程序：
;;;*************************************
;;; 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

adc

自己顶一下

adc

[em0][em0]

edata

试试吧。用trans首要理解当前需要trans的是wcs还是 ucs的点，或者ocs dcs
(getpoint)是UCS，vlax-curve-getclosestpointto 得到的是 wcs
command执行 ucs getdist 需要usc点，
多调试就知道了，

1. ;;;*************************************
   
2. ;;; No.2  绘制垂线(任意曲线之垂线) 函数
   
3. ;;;          ---- By Ayunger Studio     
   
4. ;;;*************************************
   
5. (defun C:tt(/ xEntPick entName pickPt entData startPt endPt p1 p2 tempPT angofLine lenPerLine tanAngle)
   
6. (while (not (and (setq xEntPick (entsel "\n选择曲线: ")))))
   
7. (setq entName (car xEntPick))
   
8. (setq pickPt (cadr xEntPick))
   
9. (setq entData (entget entName))
   
10. (redraw entName 3)
    
11. (grdraw pickPt pickPt -1 1)
    
12. (setq startPt (getpoint (strcat "\n指定垂足点<默认拾取点>: " )))
    
13. (if (null startPt) (setq startPt pickPt))
    
14. (setq startPt (vlax-curve-getClosestPointTo entName (trans startPt 1 0)  nil))  
    
15. (setq lenPerLine (getdist (trans startPt 0 1) "\n指定垂线长: "))
    
16. (setq tanAngle (angle (trans '(0.0 0.0 0.0) 0 1)(trans (vlax-curve-getFirstDeriv entName
    
17.                      (vlax-curve-getparamatpoint entName
    
18.                       (vlax-curve-getclosestpointto entName  startPt))) 0 1)))
    
19. (setq p1 (polar (trans startPt 0 1) (+ tanAngle (* PI 0.5)) lenPerLine))
    
20. (setq p2 (polar (trans startPt 0 1) (- tanAngle (* PI 0.5)) lenPerLine))
    
21. 
    
22. (ayOSMode nil);关闭捕捉.
    
23. (vl-cmdf "_.Line" P1 P2 "")
    
24. (redraw entName 4)
    
25.   (princ)
    
26. );end_defun
    
27. ;;;**************************
    
28. ;;; No.0 对象捕捉开关 函数   
    
29. ;;;**************************
    
30. (defun ayOSMode (isOpenSnap)
    
31. (if isOpenSnap
    
32.   (setvar "osmode" (rem (getvar "osmode") 703));打开捕捉.
    
33.   (setvar "osmode" (+ (rem (getvar "osmode") 703) 703));关闭捕捉.
    
34. );end_if
    
35. );end_defun

;;;*************************************<br /> ;;; No.2  绘制垂线(任意曲线之垂线) 函数 <br /> ;;;          ---- By Ayunger Studio     <br /> ;;;*************************************<br /> (defun C:tt(/ xEntPick entName pickPt entData startPt endPt p1 p2 tempPT angofLine lenPerLine tanAngle)<br /> (while (not (and (setq xEntPick (entsel "\n选择曲线: ")))))<br /> (setq entName (car xEntPick))<br /> (setq pickPt (cadr xEntPick))<br /> (setq entData (entget entName))<br /> (redraw entName 3)<br /> (grdraw pickPt pickPt -1 1)<br /> (setq startPt (getpoint (strcat "\n指定垂足点<默认拾取点>: " )))<br /> (if (null startPt) (setq startPt pickPt))<br /> (setq startPt (vlax-curve-getClosestPointTo entName (trans startPt 1 0)  nil))  <br /> (setq lenPerLine (getdist (trans startPt 0 1) "\n指定垂线长: "))<br /> (setq tanAngle (angle (trans '(0.0 0.0 0.0) 0 1)(trans (vlax-curve-getFirstDeriv entName<br />                      (vlax-curve-getparamatpoint entName<br />                       (vlax-curve-getclosestpointto entName  startPt))) 0 1)))<br /> (setq p1 (polar (trans startPt 0 1) (+ tanAngle (* PI 0.5)) lenPerLine))<br /> (setq p2 (polar (trans startPt 0 1) (- tanAngle (* PI 0.5)) lenPerLine))<br /> <br /> (ayOSMode nil);关闭捕捉.<br /> (vl-cmdf "_.Line" P1 P2 "")<br /> (redraw entName 4)<br />   (princ)<br /> );end_defun<br /> ;;;**************************<br /> ;;; No.0 对象捕捉开关 函数   <br /> ;;;**************************<br /> (defun ayOSMode (isOpenSnap)<br /> (if isOpenSnap<br />   (setvar "osmode" (rem (getvar "osmode") 703));打开捕捉.<br />   (setvar "osmode" (+ (rem (getvar "osmode") 703) 703));关闭捕捉.<br /> );end_if<br /> );end_defun

adc

edata 发表于 2014-1-26 23:31
试试吧。用trans首要理解当前需要trans的是wcs还是 ucs的点，或者ocs dcs
(getpoint)是UCS，vlax-curve-ge ...

多谢，学习了

xyp1964

2. 
   
3. ;; 曲线垂直线，需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]
   
4. (defun c:test1496 ()
   
5.   (xyp-CMDLA0)
   
6.   (setq        dist (Udist 1 "" "垂线长度<输入或鼠标直接量取>" dist nil)
   
7.         l0   (* dist 0.5)
   
8.         s0   (car (entsel "\n选择曲线: "))
   
9.         mode t
   
10.   )
    
11.   (princ "\n左键确认，其它退出... ")
    
12.   (if (xyp-curve-check s0)
    
13.     (while mode
    
14.       (setq mo (grread t 15 0)
    
15.             co (car mo)
    
16.       )
    
17.       (redraw)
    
18.       (cond ((member co '(3)) (xyp-line p2 p3))
    
19.             ((member co '(2 25 32)) (setq mode nil))
    
20.             (t
    
21.              (setq p1 (xyp-Grvecs-Osnap (cadr mo))
    
22.                    pt (vlax-curve-getclosestpointto s0 p1)
    
23.                    p2 (xyp-Get-FaxianAtPoint s0 pt l0)
    
24.                    p3 (xyp-Get-FaxianAtPoint s0 pt (- l0))
    
25.              )
    
26.              (xyp-Grvecs-Ptlst (list p2 p3) 1)
    
27.             )
    
28.       )
    
29.     )
    
30.   )
    
31.   (xyp-CMDLA1)
    
32. )
    

<br /> ;; 曲线垂直线，需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]<br /> (defun c:test1496 ()<br />   (xyp-CMDLA0)<br />   (setq        dist (Udist 1 "" "垂线长度<输入或鼠标直接量取>" dist nil)<br />         l0   (* dist 0.5)<br />         s0   (car (entsel "\n选择曲线: "))<br />         mode t<br />   )<br />   (princ "\n左键确认，其它退出... ")<br />   (if (xyp-curve-check s0)<br />     (while mode<br />       (setq mo (grread t 15 0)<br />             co (car mo)<br />       )<br />       (redraw)<br />       (cond ((member co '(3)) (xyp-line p2 p3))<br />             ((member co '(2 25 32)) (setq mode nil))<br />             (t<br />              (setq p1 (xyp-Grvecs-Osnap (cadr mo))<br />                    pt (vlax-curve-getclosestpointto s0 p1)<br />                    p2 (xyp-Get-FaxianAtPoint s0 pt l0)<br />                    p3 (xyp-Get-FaxianAtPoint s0 pt (- l0))<br />              )<br />              (xyp-Grvecs-Ptlst (list p2 p3) 1)<br />             )<br />       )<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )<br />