明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 11608|回复: 21

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

[复制链接]
发表于 2013-6-12 18:00 | 显示全部楼层 |阅读模式
本帖最后由 wowan1314 于 2013-6-14 09:29 编辑

函数用于更新文字图元的内容。
文字图元包括:单多行文字、天正的单多行文字、天正的图名标注文字、天正的引出标注的上标文字。

由于天正文字直接修改组码会造成CAD崩溃,故作此函数。
天正多行文字只能修改组码,不过还好少量修改时不会崩溃。
  1. ;;=========================={ 修改文字内容函数包括天正文字 }=======================
  2. ;;(YY-UPDTEXT X UU)  X为图元名  uu为新的文字内容---BY wowan1314
  3. (DEFUN YY-UPDTEXT (X UU / ENT OB ENTYPE)
  4.   (setq ent (entget x))
  5.   (setq ob (vlax-ename->vla-object X))
  6.   (SETQ entype (cdr (assoc 0 ENT)))
  7.   (COND
  8.     ((= entype "TCH_MTEXT") (COMMAnd "COLOR" "")
  9.      (entmod (subst (cons 1 UU) (assoc 1 ent) ent))
  10.     )
  11.     ((= entype "TCH_TEXT") (vlax-put-property ob 'Text UU))
  12.     ((= entype "TCH_DRAWINGNAME")
  13.      (vlax-put-property ob 'NameText UU)
  14.     )
  15.     ((= entype "TCH_MULTILEADER")
  16.      (vlax-put-property ob 'UPText UU)
  17.     )
  18.     (T (vlax-put-property ob 'TextString UU))
  19.   )
  20. )

评分

参与人数 1明经币 +2 收起 理由
Gu_xl + 2 赞一个!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

发表于 2016-10-6 14:19 | 显示全部楼层
能否修改天正实体(墙体、柱子)的颜色呢?纠结了很久都没有解决。
发表于 2018-5-30 13:57 | 显示全部楼层
新版的天正可以通过该组码直接修改单行文字了
发表于 2013-6-12 18:05 | 显示全部楼层
谢谢老大,
发表于 2013-6-12 19:30 | 显示全部楼层
本帖最后由 langjs 于 2013-6-12 19:38 编辑

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

点评

好的。我来测试。  发表于 2013-6-12 23:15
你让我来加呀!? 还是你加的好! 不然我还得看半天你的程序才能加进去。  发表于 2013-6-12 22:14
 楼主| 发表于 2013-6-12 19:48 | 显示全部楼层
本帖最后由 wowan1314 于 2013-6-12 19:49 编辑
langjs 发表于 2013-6-12 19:30
介意加到我的刷子里边么?或者直接加好发上来

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

点评

那好吧,等我有空加,不过你得负责测试,我这边试不起来  发表于 2013-6-12 22:23
随便用,发上来吧  发表于 2013-6-12 22:11
发表于 2013-6-12 20:12 | 显示全部楼层
希望wowan1314大侠的东西能共享到明经论坛,谢谢
 楼主| 发表于 2013-6-12 20:52 | 显示全部楼层
tianyi1230 发表于 2013-6-12 20:12
希望wowan1314大侠的东西能共享到明经论坛,谢谢

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

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

且论坛已有大量源码基本够我使用了。基本也不用我再编什么了。
发表于 2013-6-12 22:02 | 显示全部楼层
wowan1314 发表于 2013-6-12 20:52
我lisp编程也才刚入门! 没编几个程序呢。 独立编的程序均已发到论坛上了。

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

你个黄瓜吃了多少年了呢

点评

今年才吃的! 以前好像是个美女跑步。哈哈  发表于 2013-6-12 22:16
发表于 2013-6-13 06:39 | 显示全部楼层
葛老的文字递增程序,要学习
发表于 2013-6-13 11:25 | 显示全部楼层
学习学习
发表于 2013-6-13 15:04 | 显示全部楼层
楼主厉害,谢谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 13:40 , Processed in 0.216449 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表