[讨论]求助LISP

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

本帖最后由作者于 2004-5-15 22:58:13 编辑

下面的程序红色部分出错，怎么才能在执行程序时启动属性对话框了(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)
)

无痕 · 发表于 2004-5-15 22:30:00

万能修改VER 1.0!

呵呵，这名字起的也太牛B了吧：）

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

哈哈…，程序不怎么样当然名字起牛B点·

呵呵，还是改过来吧

无痕 · 发表于 2004-5-16 00:13:00

你搞这个干什么？

没事情做了？双击你列的那些实体就可以调出编辑啊（200x版本）

这个是cad的基本功能，倒！

梁旭武 · 发表于 2004-5-17 20:33:00

楼上的兄弟好！在CADr14里双击可不能修改的。不过输入命令就可以了。

meflying · 发表于 2004-5-17 21:08:00

为什么楼主要把MTEXT打散?

lzy9788 · 发表于 2004-5-17 21:20:00

我是做结构的，不习惯用多行文本。但我们用别人的图时有些是多行文本，基本上我没用过多行文本，因为感觉它在编辑时没单行好编辑。

龙龙仔 · 发表于 2004-5-18 08:17:00

((and (equal (cdr (assoc 0 ENT)) "INSERT")
(= (cdr (assoc 66 ENT)) 1)
)
(command "_.ddatte" (ssname SS 0))
)

lzy9788 · 发表于 2004-5-18 09:05:00

谢龙版主

账号		自动登录	找回密码
密码			注册