QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
9天前
查看: 3407|回复: 5
收起左侧

[已答复] CAD2008中如何采用编程手段修改字段内容???

[复制链接]
发表于 2008-6-18 08:28:09 | 显示全部楼层 |阅读模式 来自: 中国辽宁鞍山

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
CAD2008中增加了字段功能,* ]$ i1 F* s( t* j5 @
但如何采用编程手段修改字段内容???
发表于 2008-6-18 09:55:44 | 显示全部楼层 来自: 中国辽宁营口
1、“字段”并非2008的新功能,至少我知道在2005中就有;
, ^* \1 ?1 a( t1 D' X/ l' I0 d* s2、“插入字段”实际上是在调用文档对象及其子对象的属性,所以CAD对象集中并没有“字段”对象,如想“修改字段”应该直接修改相应的对象属性。
发表于 2008-6-18 19:44:53 | 显示全部楼层 来自: 中国浙江宁波
首先字段是多行文本对象或单行文本对象(AcadMText、AcadTex),参考二对象的FieldCode方法的帮助或许会得到启发!具体没有试过,猜测应该是按fieldcode方法来区分一个文本对象是否为字段;普通文本对象的fieldcode方法是文本对象的内容,而字段则为通配符,至于下面该怎么做你自己考虑吧!
4 u) A- e6 |  N  ?/ ^- Z下面是ACAD2008的帮助例子
1 A5 T" H% v' @" p, SSub Example_FieldCode(); [5 u& E: S+ U* l% u% [( P
    ' This example creates a text object in model space., h4 Y! u  T$ ]! Q/ [: v' j
    ' It then returns the field code string for the object.
1 _% F0 R$ t  B! h8 B: i0 E- ]
$ \( b' b/ W2 ~    Dim textObj As AcadText
2 c7 C2 M# M5 n, H7 w4 q    Dim text As String1 Y/ `8 a0 _! O, a
    Dim insertionPoint(0 To 2) As Double9 ?- ~. x) o" C+ h% b, E% g
    Dim height As Double
* M7 l0 [4 L3 D4 ?
2 X& _. s+ Y& X    ' Define the text object
! L# f2 W  W: N! @    text = "%<\AcVar Date \f ""M/d/yyyy""%>%"
& m! v3 P0 q1 z& F% Z0 D6 @    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 01 _$ l; A- v4 t+ d) c, d) k
    height = 0.5
0 Y* o0 a$ g. g7 }8 _( d, D    ( O. F% {( U* @+ E  F( R1 Z# x
    ' Create the text object in model space! Z& L( _1 M) k0 l: R
    Set textObj = ThisDrawing.ModelSpace.AddText(text, insertionPoint, height)4 m2 f0 _1 q6 [3 ], ^8 R! w/ c
    ZoomAll
. c) P- c2 b. c- c" X+ k" W    " j; r! Q% v% U9 e6 [, A  z
    ' Return the current text string for the object
9 [: ]% l  C1 [  F    text = textObj.FieldCode
6 }5 M+ ]! w% v# i7 d    MsgBox "The FieldCode for the text object equals: " & text, vbInformation, "FieldCode Example"
8 G5 w# {% T, E* n! }; F. T4 b! Z. f* X' `) @
End Sub
& U% d6 I. p; V/ R- w# x9 w% K! W& p* J" q5 e7 m
[ 本帖最后由 sealive_leafage 于 2008-6-18 20:04 编辑 ]

评分

参与人数 1三维币 +5 收起 理由
woaishuijia + 5 应助

查看全部评分

发表于 2008-6-18 20:23:24 | 显示全部楼层 来自: 中国

回复 3# 的帖子

有一点不同看法:
( ]* q. a; t! w  g% P$ S1、字段可以插入到任意种类的文字(公差除外)中,其中包括表单元、属性和属性定义中的文字。
# Q6 S7 t0 @/ Q! ^) G1 ]2 [" _+ t2、FieldCode函数是用来获得文字对象的代码的。在本例程中,单行文字使用了日期字段,查看TextString属性得到的是系统日期字符串,而用FieldCode函数就能得到它的代码"%<\AcVar Date \f ""M/d/yyyy""%>%"。如果一个文字不包含字段,那么TextString和用FieldCode函数得到的代码就是一样的。
发表于 2008-6-18 21:17:18 | 显示全部楼层 来自: 中国
刚才内急,有点词不达意。0 ^2 T4 O: n7 m4 X' c6 e
我的意思是说,FieldCode是一个函数,它不能用来修改字段本身。当然,可以通过比较TextString属性和FieldCode函数来判断一个文字对象中是否含有字段。不过,换一个其它字段恐怕不是楼主的本意吧?
: t* C: H; Q' P1 r6 ~如果修改字段本身,就本例程而言,只要用Date方法修改系统时间,再全部重生成,字段也就改变了。如果是要换一个字段,你的方法可能是最好的了。
 楼主| 发表于 2008-6-19 13:55:51 | 显示全部楼层 来自: 中国辽宁鞍山
看来确实比较难, 不如直接用属性块算了, 来得方便,谢谢大家
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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