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

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

一属性块

标记为:身高

值(value):170

请问怎么编一LSP程序让170快速变成170cm?也就是说怎样直接用鼠标选一下该块就可以变成170cm?

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

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

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

受益匪浅，非常感谢!!!

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:00如何能选择一个变一个而不是全部改变呢？

直接双击该属性即可。

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

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

评分