修改文字内容函数（包括天正文字）

wowan1314 · 发表于 2013-6-12 17:50:19

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

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

×

本帖最后由 wowan1314 于 2013-6-14 09:32 编辑

天正文字的修改最好使用VL类函数，不然会造成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))
)
)

cy956 · 发表于 2013-6-12 21:01:06

天正文字的修改最好使用VL类函数，不然会造成CAD崩溃！！！

愿闻其详，请详细点说说，那些实体会那些不会。
一直反感天正，公布了实体代码，又留下崩溃的问题，没劲儿。

wowan1314 · 发表于 2013-6-12 21:17:46

本帖最后由 wowan1314 于 2013-6-13 09:21 编辑

cy956 发表于 2013-6-12 21:01
天正文字的修改最好使用VL类函数，不然会造成CAD崩溃！！！

愿闻其详，请详细点说说，那些实体会那些不 ...

天正多行文字通过修改组码不会崩溃(少量不崩，大量修改会崩)。
而图名标注、引出标注、单行文字、天正门窗都会崩溃。
其他没测试过。天正的东西最好不要通过修改组码来实现。用VL函数可有效避免天正崩溃。

我做了个天正类似的双击增补尺寸，在合并到双击管理器后居然也导致异常。
tch_initstart.arx ARX命令中发生异常。

记得以前编过个天正门窗批量居中布置的程序。后来天正版本升级，就不能再用了。
测试了下发现原先天正的墙的起点终点信息还在组码里能找到，版本升级后居然都找不到此信息了。
怀疑它针对我。就是不让我改他东西。（呵呵）不过(vlax-curve-getEndPoint obj)(vlax-curve-getStartPoint obj)这两函数还是能得到墙的起点与终点坐标的。

。。总之，对于天正真心无语。

marting · 发表于 2013-6-12 22:29:14

本帖最后由 marting 于 2013-6-12 22:31 编辑

wowan1314 发表于 2013-6-12 21:17
天正多行文字通过修改组码不会崩溃。
而图名标注、引出标注、单行文字、天正门窗都会崩溃。
其他没测试 ...

天正应该不是针对你了，我想应该是天正换人了，新来的人又一套代码。天正一直是这样，走了，来了，来了，走了。
天正从5.0后，不一直是自定义实体嘛，后来输了斯维尔的官司，不让用7.5了，这才有天正TS的横空出世（其实之前已经有了，像谁，大家都清楚）。一会自定义，一会又工具集。不知道现在天正TS还继续开发不。

dbqtju · 发表于 2015-3-20 20:50:33

下载留名字。

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

[选择集] 修改文字内容函数（包括天正文字）

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

评分

点评

点评