社区 › VB › 求助斑竹:清华天河中修改明细表块参照属性一问

tanhaotian 发表于 2004-7-31 14:08:00

求助斑竹:清华天河中修改明细表块参照属性一问

我用GetAttributes获得函数后,将其中的块参照的TextString属性修改了,可在图中看到改变后的结果,但是当我把明细表刷新或重新生成明细表后,TextString属性又改回去了

雪山飞狐_lzh 发表于 2004-7-31 22:34:00

看看你的代码？
重新生成明细表当然不会修改了，TextString是针对不同的块参照有不同的值
另外，你定义的属性是固定属性？

tanhaotian 发表于 2004-8-2 14:41:00

代码如下：
Sub rename()
'定义变量
Dim elem As Object '定义一个对象
Dim varAttributes As Variant '定义一个属性变量
Dim OldName As String
Dim NewName As String
Dim CgName As String
Dim L As Integer
Dim LL As Integer
Dim LLL As Integer
Dim number As Integer
Dim I As Integer
Dim found As Boolean
Static sset As AcadSelectionSet
Dim sss1 As AcadSelectionSet
Dim ObjSelectionSet As AcadSelectionSet
found = False
I = 0
'获取当前文件名
NewName = ThisDrawing.Name
L = Len(NewName)
NewName = Left(NewName, L - 4)
'获取当前文档标题栏中的图号
On Error Resume Next
Dim fft(1) As Integer, ffd(1)
ThisDrawing.SelectionSets("ss").Delete
Set sset = ThisDrawing.SelectionSets.Add("ss")
fft(0) = 0: ffd(0) = "Insert"
fft(1) = 2: ffd(1) = "PC_TITLE_BLOCK"
sset.Select acSelectionSetAll, , , fft, ffd
varAttributes = sset.Item(0).GetAttributes
OldName = varAttributes(4).TextString
'选择明细表
On Error Resume Next
Dim ss1 As AcadSelectionSet
Dim ft(1) As Integer, fd(1)
ThisDrawing.SelectionSets("*TlsTest*").Delete
Set ss1 = ThisDrawing.SelectionSets.Add("*TlsTest*")
ft(0) = 0: fd(0) = "Insert"
ft(1) = 2: fd(1) = "PC_MXB_BLOCK"
ss1.Select acSelectionSetAll, , , ft, fd
'修改明细表和标题
For Each elem In ss1
               varAttributes = elem.GetAttributes
               
               CgName = varAttributes(1).TextString
               L = Len(NewName)
               LL = Len(OldName)
               LLL = Len(CgName)
               If OldName = Left(CgName, LL) Then
                       CgName = Right(CgName, LLL - LL)
                       CgName = NewName & CgName
                       varAttributes(1).TextString = CgName
                       elem.Update
               End If
Next
For Each elem In sset
                               varAttributes = elem.GetAttributes
                               varAttributes(4).TextString = NewName
Next
'删除标题栏和明细表选择集
ThisDrawing.SelectionSets("*TlsTest*").Delete
ThisDrawing.SelectionSets("ss").Delete
End Sub
举例说明一下该代码主要目的：
有一dwg文件，文件保存为ZJ40DBST,则文件的图样代号也为ZJ40DBST，明细表中代号也以ZJ40DBST开头来排序，但当我想把ZJ40DBST改为ZJ70LDB时，只需改一下保存的文件名，然后打开ZJ70LDB文件，运行上面的代码即可，但修改是针对天河PCCAD2002所写代码，故需在PCCAD2002下才能发现该情况，谢谢！

雪山飞狐_lzh 发表于 2004-8-2 14:56:00

是天河PCCAD2002自动把属性又改回去了？
如果是的话就不好办了

tanhaotian 发表于 2004-8-3 12:04:00

你说的对，我用上面的代码虽然能改明细表，也能看到修改的结果，但用天河的明细表刷新，数据就又改回去了，我不知道天河把数据存在什么地方（但绝对在图中，不会另外存一处，我做过实验）

tanhaotian 发表于 2004-8-4 11:38:00

怎么解决，请斑竹帮忙想想办法呀！

phgcad 发表于 2004-8-25 17:40:00

天河将标题栏和明细表的数据存放在数据库中,所以当你用天河的工具打开时,它会自动恢复到原来的样子.这样你只更改属性块中的属性是不行的.

tanhaotian 发表于 2004-8-30 18:17:00

那又怎么解决数据库的问题，请提示，谢谢

phgcad 发表于 2004-8-31 11:56:00

这个最好是向天河公司咨询了.
我改INTECAD就是这样,更麻烦.国产的开发商故意把那些属性搞得很罗嗦,让别人无法集成.真是悲哀呀.以后市场只有越来越小.

tanhaotian 发表于 2004-9-1 16:07:00

谢谢你，不过我用的是D版，不好去咨询，如果你有了解决办法。麻烦告诉我一声。

查看完整版本: 求助斑竹:清华天河中修改明细表块参照属性一问