路过的高手，帮帮忙啊！

894560869 发表于 2010-10-10 21:48: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))
 我只想达到这样的目的： (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 发表于 2010-10-11 15:34:00

用cond判断比较好！如：
(cond ((= (cdr (assoc 0 e1)) "DIMENSION")   (TDZ)  )
((= (cdr  (assoc 0 e1)) "TEXT")
...
)
((= (cdr  (assoc 0 e1)) "MTEXT")
...
)
)

894560869 发表于 2010-10-11 17:43:00

本帖最后由作者于 2010-10-11 18:37:28 编辑 谢谢你我又学到一个好方法

894560869 发表于 2010-10-12 12:40:00

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

Gu_xl 发表于 2010-10-12 13:06:00

(cond ((= (cdr (assoc 0 e1)) "DIMENSION")   (TDZ)  )
((= (cdr  (assoc 0 e1)) "TEXT")
...
)
((= (cdr  (assoc 0 e1)) "MTEXT")
...
)
((= e1 nil ) 
(TDZ)
)
)

894560869 发表于 2010-10-12 13:36:00

我空选时还是一样啊！Error: 参数类型错误: lentityp nil
 
另一个TDZ 代码如下：
(defun TDZ  () (setvar "pickbox" 21)
(setvar "PICKSTYLE" 1);
(command "GROUP")
(princ))

Gu_xl 发表于 2010-10-12 14:06:00

把
((= e1 nil ) 
(TDZ)
)
 
放在cond第一项判断

894560869 发表于 2010-10-12 14:15:00

我就是这样做的((= e1 nil ) (TDZ))
但是就不能继续下去 Error: 参数类型错误: lentityp nil

Gu_xl 发表于 2010-10-12 14:49:00

把这句拆开！
(setq e1 (entget (car (setq s1 (entsel "选择编辑对象："))))) 为：
(setq e1 (car (setq s1 (entsel "选择编辑对象："))))
(if e1 (setq e1 (entget e1)))

894560869 发表于 2010-10-12 15:14:00

<table cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td>
<div id="textstyle_3" style="FONT-SIZE: 12pt; OVERFLOW: hidden; WORD-BREAK: break-all; TEXT-INDENT: 0px; WORD-WRAP: break-word">
<img title="明经通道" alt="" src="http://bbs.mjtd.com/images/emot/em306.gif" align="middle" border="0"/>谢谢你我又学到一个好方法</div></td></tr></tbody></table>

页: [1]

明经CAD社区's Archiver

路过的高手，帮帮忙啊！