[LISP程序]：更改块中的文本内容

网络水手 · 发表于 2005-7-29 10:53:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun C:CBT(/ ent oText dText)
(setq ent (entget (car (nentsel "请点击要更改的文本:"))))
(setq oText (cdr (assoc 1 ent)))
(prompt (strcat "\n选中的文本内容为:" oText))
(setq dText (getstring "\n更改后的文本内容为:"))
(if (/= dText "")
(progn
(setq ent (subst (cons 1 dText) (assoc 1 ent) ent))
(entmod ent)
(vl-cmdf "regenall")
)
)
(princ)
)

vang8866 · 发表于 2005-7-29 17:04:09

这个就能该块？？好象不行吧

tgh56 · 发表于 2005-7-29 20:48:20

嗯!!还行刚测试了一下,还可以!!楼主的思路很好~~

doubao · 发表于 2005-7-30 18:27:31

不错。不是块中的文字也可以改。这个程序虽小但是相当有用。

qjcpj · 发表于 2005-7-30 20:37:02

楼主可参看gxwz模块(源码)，该模块也可更改块内文字。

地址：
http://p4.xdcad.net/forum/showth ... y=&pagenumber=1

网络水手 · 发表于 2005-8-1 10:06:32

不错,很全! 学习中.......

ysx810210 · 发表于 2005-8-9 09:52:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

试试这个
http://p4.xdcad.net/forum/showthrea...threadid=436917

Andyamy · 发表于 2005-8-9 17:55:37

实践检验真理。试了一下，果然不错。块中的文字和单独的多行文字都可以修改

y562288 · 发表于 2005-8-9 20:00:48

谢谢，感觉满好用的阿

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

[LISP程序]：更改块中的文本内容

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块