路过的高手，帮帮忙啊！

894560869

;;;修改 文本、属性块、尺寸
(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))

我只想达到这样的目的：
(setq e1 (entsel "\n请选择需要编辑的文本、属性块、尺寸:"))
如果选择的对象为文本，则(command "DDATTE" )；
如果选择的对象为块，则(command "DDATTE" )；
这个程序谁能帮忙加个尺寸类型的选择啊，
就是说如果我选择的类型是“尺寸”哦:  '((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))

Gu_xl

用cond判断比较好！如：

(cond ((= (cdr (assoc 0 e1)) "DIMENSION")
  (TDZ)
 )

((= (cdr  (assoc 0 e1)) "TEXT")

...

)

((= (cdr  (assoc 0 e1)) "MTEXT")

...

)

)

894560869

谢谢你我又学到一个好方法

894560869

再问个弱智的问题，如果我(setq e1 (entsel "\n请选择需要编辑的文本、属性块、尺寸:"))
故意回车或空格（空选），则(if(= e1 nil ) (TDZ)).说明一下，这里的(TDZ）可是另一个程序。

该如何改动啊

Gu_xl

(cond ((= (cdr (assoc 0 e1)) "DIMENSION")
  (TDZ)
 )

((= (cdr  (assoc 0 e1)) "TEXT")

...

)

((= (cdr  (assoc 0 e1)) "MTEXT")

...

)

((= e1 nil )

(TDZ)

)

)

894560869

 我空选时还是一样啊 ！Error: 参数类型错误: lentityp nil

 

另一个TDZ 代码如下：

(defun TDZ  ()
(setvar "pickbox" 21)

(setvar "PICKSTYLE" 1);

(command "GROUP")

(princ))

Gu_xl

把

((= e1 nil )

(TDZ)

)

 

放在cond第一项判断

894560869

我就是这样做的((= e1 nil ) (TDZ))

但是就不能继续下去 Error: 参数类型错误: lentityp nil

 

Gu_xl

把这句拆开！

(setq e1 (entget (car (setq s1 (entsel "选择编辑对象：")))))
为：

(setq e1 (car (setq s1 (entsel "选择编辑对象："))))

(if e1 (setq e1 (entget e1)))

894560869

谢谢你我又学到一个好方法