2013-05-15 明经AutoCAD基础(2197061) 群聊记录：(defun C:TT (/ curve point ang) (setq cur

明经快报

长风（龙少） 17:11:09

(defun C:TT (/ curve point ang)
  (setq curve (entsel "\n选择任意曲线: "))
  (mapcar 'set '(curve point) curve)
  (setq point (vlax-curve-getClosestPointTo curve point)
        ang   (angle '(0 0)
                     (vlax-curve-getFirstDeriv
                       curve
                       (vlax-curve-getParamAtPoint curve point)
                     )
              )
        ang   (+ ang (/ pi 2))
  )
  (command "_.xline" "_non" point "_non" (polar point ang 10) "")
)
如何给这段代码加上捕捉功能？