[讨论]求助LISP

lzy9788 · 发表于 2004-5-15 22:26:00

下面的程序红色部分出错，怎么才能在执行程序时启动属性对话框了(ATTEDIT)(defun c:ed ()
(setvar "cmdecho" 0)
(command "_.undo" "be")
(princ "\n快速编辑VER 1.0!\n请选择要修改的文字、尺寸或属性块:")
(setq ss (ssget ":s" '((0 . "TEXT,MTEXT,DIMENSION,INSERT"))))
(setq ent (entget (ssname ss 0)))(princ ent)
(cond
   ((and (= (cdr (assoc 0 ent)) "INSERT") (= (cdr (assoc 66 ent)) "1")) (COMMAND "ATTEDIT" SS))
   ((or (= (cdr (assoc 0 ent)) "TEXT") (= (cdr (assoc 0 ent)) "DIMENSION")) (command "ddedit" ss))
   ((= (cdr (assoc 0 ent)) "MTEXT") (command "explode" ss "") (command "ddedit" "l"))
)
(command "_.undo" "e")
(setvar "cmdecho" 1)
(princ)
)