【函数分享】修改文字内容函数（包括天正文字）

wowan1314 · 发表于 2013-6-12 18:00:49

本帖最后由 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))
)
)

含泪的射手 · 发表于 2016-10-6 14:19:50

能否修改天正实体（墙体、柱子）的颜色呢？纠结了很久都没有解决。

fcrosstour · 发表于 2018-5-30 13:57:10

新版的天正可以通过该组码直接修改单行文字了

bai2000 · 发表于 2013-6-12 18:05:56

谢谢老大，

langjs · 发表于 2013-6-12 19:30:19

本帖最后由 langjs 于 2013-6-12 19:38 编辑

介意加到我的刷子里边么？或者直接加好发上来

wowan1314 · 发表于 2013-6-12 19:48:00

本帖最后由 wowan1314 于 2013-6-12 19:49 编辑

langjs 发表于 2013-6-12 19:30
介意加到我的刷子里边么？或者直接加好发上来

发上来就是让大家随便用撒，不过后果自负。哈哈

tianyi1230 · 发表于 2013-6-12 20:12:56

希望wowan1314大侠的东西能共享到明经论坛，谢谢

wowan1314 · 发表于 2013-6-12 20:52:34

tianyi1230 发表于 2013-6-12 20:12
希望wowan1314大侠的东西能共享到明经论坛，谢谢

我lisp编程也才刚入门！没编几个程序呢。独立编的程序均已发到论坛上了。

到现在还在使用别人的函数库文件呢。所以水平有限。

且论坛已有大量源码基本够我使用了。基本也不用我再编什么了。

注册 · 发表于 2013-6-12 22:02:03

wowan1314 发表于 2013-6-12 20:52
我lisp编程也才刚入门！没编几个程序呢。独立编的程序均已发到论坛上了。

到现在还在使用别人的函数 ...

你个黄瓜吃了多少年了呢

gtj116600 · 发表于 2013-6-13 06:39:42

葛老的文字递增程序，要学习

xiaoyuzj-503 · 发表于 2013-6-13 11:25:27

学习学习

ps122hb · 发表于 2013-6-13 15:04:00

楼主厉害，谢谢分享

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

[源码] 【函数分享】修改文字内容函数（包括天正文字）

评分

本帖被以下淘专辑推荐:

点评

点评

点评

[源码] 【函数分享】 修改文字内容函数（包括天正文字）

评分

本帖被以下淘专辑推荐:

点评

点评

点评

[源码] 【函数分享】修改文字内容函数（包括天正文字）