[求助]：这个程序哪里有问题？

xjjy

这个程序哪里有问题？
(defun C:test (/ pt1 screw luo luo1 pt2 pt3)
  (command "undo" "group")
;;;   (setq olderr *error*
;;; *error* clerr)
  (setq datalst '((2 . 0.8)(3 . 1.25)(4 . 1.65)(5 . 2.1)(6 . 2.5)(8 . 3.4)
    (10 . 4.3)(12 . 5.15)(14 . 6)(16 . 7)(18 . 7.75)(20 . 8.75)
    (22 . 9.75)(24 . 10.5)(30 . 13.25)(33 . 13.25)(36 . 16)))
   (setvar "cmdecho" 0)
   (setq pt1 (getpoint "\n中心点: "))
   (setq screw (getint "\n输入螺丝公称尺寸[2/3/4/5/6/8/10/12/14/16/18/20/22/24/26/28/30/33/36]:"))
   (setq luo (cdr (assoc screw datalst)))
   (setq pt2 (polar pt1 (- (/ pi 2)) luo))
   (setq pt3 (polar pt1 pi luo))
   (setq luo1 (/ screw 2.0))
   (command "circle" pt1 luo1)
   (command "_arc" "_c" pt1 pt2 pt3)
   (setvar "cmdecho" 1)
;;;   (setq *error* olderr)
  (command "undo" "end")
  (princ)
)

aidraft

No major problem. But you'd better set the "OSMODE" to 0 before it can work properly.

xjjy

aidraft :
谢谢您，请问如果我要增加尺寸标住，应如何处理？

xjjy

谢谢！
我铱金把他搞定了！