请各位前辈帮忙看看

Linhay

初学lisp,今天尝试编一个在圆弧端点画该圆弧切线的小程序,没什么基础,拼出来了一个,但是错误百出,麻烦帮忙看看怎么修改,最好指正一下怎么错的,我也能借机学习一下,谢过.

(defun C:tt (/ pt1 pt2 pt3 ssn ent SS entobj)
(VL-LOAD-COM)
  (setq ss (ssget '((0 . "arc"))))
  (setq i 0)
  (repeat (sslength ss)
   (progn (setq ssn (ssname ss i))
     (setq ent (entget ssn))
     (setq pt3 (cdr (assoc 10 ent)))
     (setq entobj (vlax-ename->vla-object ent))
     (setq pt1 (vlax-curve-getStartPoint ent))
     (setq pt2 (vlax-curve-getendPoint ent))
     (command "ucs" "3" pt1 pt3 pt2)
     (command "_xline" "v" 0 0 0 "")
     (command "._ucs" "" )  
     (command "ucs" "3" pt2 pt3 pt1)
     (command "_xline" "v" 0 0 0 "")
     (command "._ucs" "" )  
    )
   (setq i (1+ i))
  )
  )

Linhay

封帖,解决了