请帮忙合并这两个程序为一个

894560869 · 发表于 2010-7-26 12:54:00

;;;修改属性值
(defun C:SZ ()(setvar "pickbox" 21)(command "DDATTE" )(princ))

;;;修改文字

(defun C:SW ()(setvar "pickbox" 21)(command "DDEDIT" )(princ))

我只想达到这样的目的：

(setq a (entsel "\n请选择需要编辑的实体:"))

如果选择的对象为块，则(command "DDATTE" )；

Gu_xl · 发表于 2010-7-26 14:03:00

(defun c:tt ()
(setq en (car(entsel "\n请选择需要编辑的实体:")))
(setq entype (cdr (assoc 0 (entget en))))
(cond
((or(= entype "TEXT")(= entype "MTEXT"))
(command "DDEDIT" en "")
((= "INSERT" entype)
(command "DDATTE" en "")
)
(t
(alert "你选择的不是块和文本！")
)
)
)
)

894560869 · 发表于 2010-7-26 14:34:00

谢谢啦!

;;;修改属性值
(defun c:SZ (/ e1)
(setvar "cmdecho" 0)(setvar "pickbox" 21)
(setq e1 (entget (car (setq s1 (entsel "选择编辑对象：")))))
(if (= (cdr (assoc 0 e1)) "TEXT") (command "DDEDIT" s1))
(if (= (cdr (assoc 0 e1)) "MTEXT") (command "DDEDIT" s1))
(if (= (cdr (assoc 0 e1)) "INSERT") (command "DDATTE" s1))(princ))

我原以为是这样，不过你的还是很喜欢

894560869 · 发表于 2010-10-10 21:29:00

这个程序谁能帮忙加个尺寸类型的选择啊，就是说如果我选择的类型是“尺寸”: '((0 . "DIMENSION"))

那么我就执行以下这些代码：

(defun TDZ (/ e1 ds)
(SETQ DS (getstring (strcat "\n 输入替代值:" )))
(if (= DS nil ) (command "dim1" "new" (strcat DS "<>{}{}") e1 ""))
(if (/= DS nil ) (command "dim1" "new" (strcat DS "{}{}") e1 ""))
(princ))

路过高手，帮帮忙啊！

jslxt · 发表于 2011-10-22 19:51:23

淡定淡定淡定淡定

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