为什么就是打开不了捕捉点

xiao88gang

如题：为什么就是打开不了捕捉点？
(defun c:tt1 (/ myerr olderr d ss e pt pam p1 p2 vec an wid)
(defun myerr (msg)
          (princ)
  )
  (setq        olderr        *error*
        *error*        myerr
  )

  (if (null **GlobleLength**)
    (setq **GlobleLength** 3.0)
  )
  (if (null **GlobleWidth**)
    (setq **GlobleWidth** 0.0)
  )

  (while
    (progn (setvar "nomutt" 1)
           (princ "\选择要做垂线的线: ")
           (setq ss (ssget ":S" '((0 . "*Line,Arc,Circle,Ellipse"))))
    )
     (setq e   (ssname ss 0)
           pt  (cadr (last (last (ssnamex ss))))
           pt  (vlax-curve-getclosestpointto e pt)
           pam (vlax-curve-getparamatpoint e pt)
           vec (vlax-curve-getfirstderiv e pam)
           an  (angle '(0 0 0) vec)
           p1  (polar pt (+ an (/ pi 2)) (/ **GlobleLength** 2))
           p2  (polar pt (- an (/ pi 2)) (/ **GlobleLength** 2))
     )
     (entmake (list '(0 . "LWPOLYLINE")
                    '(100 . "AcDbEntity")
                    '(100 . "AcDbPolyline")
                    '(90 . 3)
                    (list 10 (car p1) (cadr p1))
                    (list 10 (car p2) (cadr p2))
                    (cons 43 **GlobleWidth**)
              )
     )
  )
    (setq *error* olderr)
  (princ)
)

xyp1964

1. (defun c:tt ()
   
2.   (setq        gl 3.0
   
3.         gw 0.0
   
4.   )
   
5.   (while (setq pt (getpoint "\n选择要做垂线的线<退出>: "))
   
6.     (if        (setq ss (ssget "c" pt pt '((0 . "*Line,Arc,Circle,Ellipse"))))
   
7.       (progn
   
8.         (setq e          (ssname ss 0)
   
9.               pt  (vlax-curve-getclosestpointto e pt)
   
10.               pam (vlax-curve-getparamatpoint e pt)
    
11.               vec (vlax-curve-getfirstderiv e pam)
    
12.               an  (angle '(0 0 0) vec)
    
13.               p1  (polar pt (+ an (/ pi 2)) (/ gl 2.))
    
14.               p2  (polar pt (- an (/ pi 2)) (/ gl 2.))
    
15.         )
    
16.         (entmake (list '(0 . "LWPOLYLINE")
    
17.                        '(100 . "AcDbEntity")
    
18.                        '(100 . "AcDbPolyline")
    
19.                        '(90 . 3)
    
20.                        (list 10 (car p1) (cadr p1))
    
21.                        (list 10 (car p2) (cadr p2))
    
22.                        (cons 43 gw)
    
23.                  )
    
24.         )
    
25.       )
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )

(defun c:tt ()<br />   (setq        gl 3.0<br />         gw 0.0<br />   )<br />   (while (setq pt (getpoint "\n选择要做垂线的线<退出>: "))<br />     (if        (setq ss (ssget "c" pt pt '((0 . "*Line,Arc,Circle,Ellipse"))))<br />       (progn<br />         (setq e          (ssname ss 0)<br />               pt  (vlax-curve-getclosestpointto e pt)<br />               pam (vlax-curve-getparamatpoint e pt)<br />               vec (vlax-curve-getfirstderiv e pam)<br />               an  (angle '(0 0 0) vec)<br />               p1  (polar pt (+ an (/ pi 2)) (/ gl 2.))<br />               p2  (polar pt (- an (/ pi 2)) (/ gl 2.))<br />         )<br />         (entmake (list '(0 . "LWPOLYLINE")<br />                        '(100 . "AcDbEntity")<br />                        '(100 . "AcDbPolyline")<br />                        '(90 . 3)<br />                        (list 10 (car p1) (cadr p1))<br />                        (list 10 (car p2) (cadr p2))<br />                        (cons 43 gw)<br />                  )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

xiao88gang

xyp1964 发表于 2018-5-23 19:39

感谢院长，好用