【函数分享】 修改文字内容函数（包括天正文字）
本帖最后由 wowan1314 于 2013-6-14 09:29 编辑函数用于更新文字图元的内容。
文字图元包括：单多行文字、天正的单多行文字、天正的图名标注文字、天正的引出标注的上标文字。
由于天正文字直接修改组码会造成CAD崩溃，故作此函数。
天正多行文字只能修改组码，不过还好少量修改时不会崩溃。;;=========================={ 修改文字内容函数包括天正文字 }=======================
;;(YY-UPDTEXT X UU)X为图元名uu为新的文字内容---BY wowan1314
(DEFUN YY-UPDTEXT (X UU / ENT OB ENTYPE)
(setq ent (entget x))
(setq ob (vlax-ename->vla-object X))
(SETQ entype (cdr (assoc 0 ENT)))
(COND
((= entype "TCH_MTEXT") (COMMAnd "COLOR" "")
(entmod (subst (cons 1 UU) (assoc 1 ent) ent))
)
((= entype "TCH_TEXT") (vlax-put-property ob 'Text UU))
((= entype "TCH_DRAWINGNAME")
(vlax-put-property ob 'NameText UU)
)
((= entype "TCH_MULTILEADER")
(vlax-put-property ob 'UPText UU)
)
(T (vlax-put-property ob 'TextString UU))
)
) 能否修改天正实体（墙体、柱子）的颜色呢？纠结了很久都没有解决。 新版的天正可以通过该组码直接修改单行文字了 谢谢老大， 本帖最后由 langjs 于 2013-6-12 19:38 编辑
介意加到我的刷子里边么？或者直接加好发上来 本帖最后由 wowan1314 于 2013-6-12 19:49 编辑
langjs 发表于 2013-6-12 19:30 static/image/common/back.gif
介意加到我的刷子里边么？或者直接加好发上来
发上来就是让大家随便用撒，不过后果自负。哈哈 希望wowan1314大侠的东西能共享到明经论坛，谢谢 tianyi1230 发表于 2013-6-12 20:12 static/image/common/back.gif
希望wowan1314大侠的东西能共享到明经论坛，谢谢
我lisp编程也才刚入门！ 没编几个程序呢。 独立编的程序均已发到论坛上了。
到现在还在使用别人的函数库文件呢。 所以水平有限。
且论坛已有大量源码基本够我使用了。基本也不用我再编什么了。 wowan1314 发表于 2013-6-12 20:52 static/image/common/back.gif
我lisp编程也才刚入门！ 没编几个程序呢。 独立编的程序均已发到论坛上了。
到现在还在使用别人的函数 ...
你个黄瓜吃了多少年了呢 葛老的文字递增程序，要学习 学习学习 楼主厉害，谢谢分享