请高手路过看看这个有问题的小程序

cuyongping

(defun c: ctt()
(setvar "cmdecho" 0)
(setq dd (getdist "\n 输入字间与周围距离<2>：")
(if (null dd)(setq dd 2.0))
(setq ss (ssget))
(setq i 0)
(repeat (sslength ss)
   (setq ssn (ssname ss i))
   (setq ssdata (entget ssn))
   (setq sstyp (cdr (assoc 0 ssdata)))
   (if (= sstyp "text")
      (progn
       (command "ucs" "e" ssn)
       (setq box (textbox ssdata))
       (setq p1 (car box))
       (setq p3 (cadr box))
       (setq p2 (list (car p3)(cadr p1)))
       (setq p4 (list (car p1)(cadr p3)))
       (setq dda (+ (/ (distance p1 p2) 2) dd))
       (setq cen (inters p1 p3 p2 p4))
       (aommand "circle" cen dda)
)
)
(setq i (1+i))
)
(command "ucs" "")
(prin1)
)
输入列表有缺陷？

cuyongping

我自己顶一个！

Andyhon

(setq dd (getdist "\n 輸入字間與周圍距離<2>：")
补了再试==>
(setq dd (getdist "\n 輸入字間與周圍距離<2>："))

vormittag

输入列表有缺陷一般情况下是括号不成对，写程序最好养成习惯，每次都一对一对括号输入。
另:
(aommand "circle" cen dda)
应该是(command "circle" cen dda)

cuyongping

vormittag 发表于 2011-11-16 10:57
输入列表有缺陷一般情况下是括号不成对，写程序最好养成习惯，每次都一对一对括号输入。
另:
(aommand "c ...

谢谢！你的指正！可是我修改了还是出现！错误: 输入的列表有缺陷求高手指点！

cuyongping

谢谢！指导！问题解决了！

crazylsp

C冒号后不嫩有空格呵呵

cuyongping

谢谢！呵呵，都是写程序没有好养成习惯！

crazylsp

没关系的写多了就习惯了,我也从你的学到了用法

cuyongping

crazylsp 发表于 2011-11-16 16:54
没关系的写多了就习惯了,我也从你的学到了用法

呵呵！以后有问题再向你请教！