sf_elite 发表于 2006-12-8 09:22:00

[求助]怎样更改属性块中文字的内容

<P>一属性块</P>
<P>标记为:身高&nbsp; </P>
<P>值(value):170</P>
<P>请问怎么编一LSP程序让170快速变成170cm?也就是说怎样直接用鼠标选一下该块就可以变成170cm?</P>

sf_elite 发表于 2006-12-9 20:07:00

怎么没有人回答啊?高手都去哪里了呀?

benq1 发表于 2006-12-29 13:46:00

我也刚学lisp，也不知道怎么修改块属性。希望高手指教。

hszhxl 发表于 2006-12-31 06:59:00

我也在急切关注中。。。。。。

狂刀无痕 发表于 2006-12-31 10:12:00

不想编程的话，可以直接用“find”命令将170替换为170cm

killer9806 发表于 2006-12-31 17:09:00

<p>(defun changetxt01 (/ ename a lst txt txt1)<br/>&nbsp; (setq ename (car (entsel "\n选取图块")))<br/>&nbsp; (setq a (entnext ename))<br/>&nbsp; (while a<br/>&nbsp;&nbsp;&nbsp; (setq lst (entget a))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(= "身高" (cdr (assoc 2 lst)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;(setq txt (cdr (assoc 1 lst)))<br/>&nbsp;(setq txt1 (cons 1 (strcat txt "cm")))<br/>&nbsp;(setq lst (subst txt1 (assoc 1 lst) lst))<br/>&nbsp;(entmod lst)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(= (cdr (assoc 1 LST)) "SEQEND")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq a nil)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (setq a (entnext a))<br/>&nbsp; )<br/>&nbsp; (entupd ename)<br/>&nbsp; (princ)<br/>)</p><p></p>

hszhxl 发表于 2007-1-1 17:59:00

<p>受益匪浅，非常感谢!!!</p>

zhuquanmao 发表于 2008-11-23 21:55:00

如何能选择一个变一个而不是全部改变呢？

zhuquanmao 发表于 2008-11-25 20:46:00

大侠们能回答一下吗 很需要这个解答。。。 虽然看上去简单，但我不会。。。

ZZXXQQ 发表于 2008-11-25 23:18:00

zhuquanmao发表于2008-11-23 21:55:00static/image/common/back.gif如何能选择一个变一个而不是全部改变呢？

<p>直接双击该属性即可。</p>
页: [1] 2
查看完整版本: [求助]怎样更改属性块中文字的内容