如何用VBA修改图块（block）的属性？

spirit_sw

在lisp中我可以用subst、entmod两个函数修改块的属性，比如块名什么的。但在VBA中该如何实现呢？请大家帮忙啊，十万火急。我这有用CASS成的图，但单位要把这些图改成自己开发的一套系统中，此系统与CASS系统图块名不一样，现在我要把他们改过来，该怎么办啊？

mccad

如果块未插入，则可以直接用.Name属性来改名称。

spirit_sw

块都插入了，怎么修改啊？.NAME属性好象不能修改的。另外如何建立块选择集呢？建立好了如何一个个提起，查看单个块属性呢？（诸如插入点、缩放比例、块名等）有没有实例呢？谢谢了

klydp

就是，如何选择已插入的块，然后再旋转、移动啊？

arden

俺也想知道包括如何读取块的属性。

雪山飞狐_lzh

先读取所有得块参照的属性，存入数组，再更改块名，然后读取数组中的数据重生成

spirit_sw

说的容易，怎么操作呢？有具体的实例吗？我真的很急啊，谢谢了

CLARKLEE

'========如果有属性修改任务=========
'===================================
'===================================
DoEvents
fileright = False
If Check7.Value = 1 Then
If dwgfile.ActiveSpace = acModelSpace Then
For Each obj In dwgfile.ModelSpace
cadmessage.Label7.Caption = "正在进行属性修改： 查找目标块块 " & mainblock & " 当前 " & obj.ObjectName

If obj.ObjectName = "AcDbBlockReference" Then
If obj.Name = mainblock Then
fileright = True
cadmessage.Label7.Caption = "正在进行属性修改： 已找到 " & mainblock & " 当前正属性修改中。。。"
objatts = obj.GetAttributes
For m = LBound(objatts) To UBound(objatts)
For n = 0 To Combo6.ListCount - 1
If objatts(m).TagString = Combo6.List(n) Then
If Combo8.List(n) <> "" Then
If Combo8.List(n) = "null" Or Combo8.List(n) = "NULL" Then
objatts(m).TextString = ""
Exit For
Else
objatts(m).TextString = Combo8.List(n)
Exit For
End If
End If
End If
Next n
Next m
End If
End If
Next obj
End If


If dwgfile.ActiveSpace = acPaperSpace Then
For Each obj In dwgfile.PaperSpace
cadmessage.Label7.Caption = "正在进行属性修改： 查找目标块块 " & mainblock & " 当前 " & obj.ObjectName
If obj.ObjectName = "AcDbBlockReference" Then
If obj.Name = mainblock Then
fileright = True
cadmessage.Label7.Caption = "正在进行属性修改： 已找到 " & mainblock & " 当前正属性修改中。。。"
objatts = obj.GetAttributes
For m = LBound(objatts) To UBound(objatts)
For n = 0 To Combo6.ListCount - 1
If objatts(m).TagString = Combo6.List(n) Then
If Combo8.List(n) <> "" Then
If Combo8.List(n) = "null" Or Combo8.List(n) = "NULL" Then
objatts(m).TextString = ""
Else
objatts(m).TextString = Combo8.List(n)
End If
End If
End If
Next n
Next m
End If
End If
Next obj
End If
End If

spirit_sw

谢谢先，我试试看