请大家帮忙看看我这个有什么问题，关于自动查找并标记字符串的LISP
(defun c:a ( )(setq b (getstring "l 屏幕拾取／2 键入:"))
(if (= b "l")
(list (setq c (entget (ssnam(ssget) 0)))
(setq a (cdr (assoc 1 c)))
(setq a1 (cdr (assoc 8 c)))
(setq a2 (cdr (assoc 62 c)))
(setq ss (ssget "x" (list(cons 1 a) (cons 8 a1))))))
(if (= b "2")
(list (setq a (getstring "要查找的字符串:"))
(setq a1 (getstring "字符串所在图层:"))
(setq ss (ssget "x" (list (cons 1 a) (cons 8 a1))))))
(setq i (sslength ss))
(setq j 0)
(command "layer" "m" "bj tp" \)
(repeat i
(setq a (entget (ssname ss j)))
(setq R (* 1 (cdr (assoc 40 a))))
(setq Rl (* 1.1 (cdr (assoc 40 a))))
(setq R2 (* 1.2 (cdr (assoc 40 a))))
(setq pt (mapcar '+(list (/r 2) (/r 2) 0) cdr (assoc 10 a))))
(command "color" 1)
(command "circle" pt r)
(command "color" 2)
(command "circle" pt r1)
(command "color" 6)
(command "circle" pt r2)
(setq j (+j 1))
(setq b ""))
defun c:b ( )
(setq ss (ssget "x" (list (cons 8 "bJtp" ))))
(command "erase" "ss" "))
运行就出现错误。请高手帮忙看看嘛。。。
我在在线等待大家啊。。。 拼写都有错误，比如第四行(list (setq c (entget (ssnam(ssget) 0))) ==>
(list (setq c (entget (ssname (ssget) 0)))
所以，还是先自己检查下，再试！
页:
[1]