请高手帮忙看看这个小lisp 为啥只能运行2次 后面就不能运行了

hjxxzj

(defun C:Dowel_pins(/ P1 P2 P3 Q21 Q22 Q2A Q2B Q31 Q32 Q3A Q3B L1 D1 C1 S1 Qt1)
   
  (setq P1(getpoint "请选择放置点："));放置中心
  (setq L1(getdist "请输入距离："));长度
  (setq D1(getdist "请输入直径："));直径
  
  (setq C1 (/ D1 10));倒角大小
  
  (setq P2(list (car P1) (- (cadr P1) (/ L1 2))));下顶点
  (setq P3(list (car P1) (+ (cadr P1) (/ L1 2))));上顶点
  ;(command "line" P2 P3 "")
  ;(setq p21(polar p2 180 (- (/ D1 2) C1)))
  ;(setq p22(polar p2 0 (- (/ D1 2) C1)))
  ;(setq p22(polar p2 0 (- (/ D1 2) C1)))
  
  (setq Q21(list (- (car p2) (- (/ D1 2) C1)) (cadr p2)))
  (setq Q22(list (+ (car p2) (- (/ D1 2) C1)) (cadr p2)))
  
  (setq Q31(list (- (car p3) (- (/ D1 2) C1)) (cadr p3)))
  (setq Q32(list (+ (car p3) (- (/ D1 2) C1)) (cadr p3)))
  
  (setq Q2A(list (- (car p2) (/ D1 2)) (+ (cadr p2) C1)))
  (setq Q2B(list (+ (car p2) (/ D1 2)) (+ (cadr p2) C1)))
  
  (setq Q3A(list (- (car p3) (/ D1 2)) (- (cadr p3) C1)))
  (setq Q3B(list (+ (car p3) (/ D1 2)) (- (cadr p3) C1)))
  ;(command "Pline" P21 P22 P2B P3B P32 P31 P3A "C")
  ;(command "Pline" P31 P32 P3B P3A "C")
  (command "line" Q21 Q22 "");1
  (command "line" Q21 Q2A "");2
  (command "line" Q22 Q2B "");3
  (command "line" Q2A Q3A "");4
  (command "line" Q2B Q3B "");5
  (command "line" Q3A Q31 "");6
  (command "line" Q31 Q32 "");7
  (command "line" Q32 Q3B "");8
  (command "line" Q3A Q3B "");9
  (command "line" Q2A Q2B "");10
  
  
  (setq S1 (strcat "%%c" (rtos D1 2) "-" (rtos L1)));整合输出字符串
  (setq Qt1 (list (+(car P1) (/ D1 6)) (-(cadr P1) 7)))
   
  (command "text" Qt1 (/ D1 3) 90 S1)
  
  (prin1)
)

Andyhon

关闭捕捉再试