写入属性。。。
大家好，我是ACAD的VBA新手，一直在努力适应它，但我想我需要帮助开始。我现在正在开发一个工具，它允许我从VBA用户表单编辑标题栏中的属性字段，总共32个字段。我对需要发生什么的理解是我需要：
1.选择标题栏
2、获取属性信息
3、在标签值中输入数据
我不慢，通常能很好地围绕技术主题进行思考，但这让我难以理解。我知道这是一个简单的代码，所以任何帮助都将不胜感激，我必须先了解这一点，然后再咬下我的下一个初学者项目。
如有任何帮助/链接/代码，将不胜感激。 李有一个很棒的工具
http://www.lee-mac.com/batte.html 这是一个vba示例，您可以使用两种方法，一种是按照本例中属性的顺序，另一种是使用标记名。有很多建议从VBA转移到VL/lisp或。网
Public Sub add_project_number()
' This Updates the project number
Dim SS As AcadSelectionSet
Dim Count As Integer
Dim FilterDXFCode(1) As Integer
Dim FilterDXFVal(1) As Variant
Dim attribs, newtext As Variant
Dim BLOCK_NAME As String
'On Error Resume Next
Dim startCH As Double
newtext = ThisDrawing.Utility.GetString(True, "Enter new project code : ")
FilterDXFCode(0) = 0
FilterDXFVal(0) = "INSERT"
FilterDXFCode(1) = 2
FilterDXFVal(1) = "DA1DRTXT"
BLOCK_NAME = "DA1DRTXT"
Set SS = ThisDrawing.SelectionSets.Add("issued")
SS.Select acSelectionSetAll, , , FilterDXFCode, FilterDXFVal
For Cntr = 0 To SS.Count - 1
attribs = SS.Item(Cntr).GetAttributes
attribs(1).TextString = newtext
attribs(1).Update
Next Cntr
ThisDrawing.SelectionSets.Item("issued").Delete
End Sub
谢谢BIGAL，我很感谢你花时间帮忙，我一定会看看这段代码。我的公司使用过去15年在VBA中创建的专有工具，因此即使我们已经开始将我们的工具转换为。net，这是一项庞大的工作，需要时间；与此同时，我正在开发一些简单的工具来“切齿”，并学习一些基本的编程，以便我们办公室至少有两个人可以支持。作为一名CAD绘图员/3D专家意味着我有很好的技术头脑，但编程是一种完全不同的野兽。
再次感谢您的帮助，我确信在我启动并运行这个工具后，我会回来寻找我的下一个计划工具的帮助。 我很欣赏这个链接，ZAPHOD，我已经下载了它，我期待着玩它。 块属性是属性（X），其中X是属性在其创建顺序中的编号，而不是位置。Ie块4属性属性属性B（0-3）是从0开始
dxfcode来自实体的std Autocad DXF代码（0。Insert）表示块（2。“da1text”）块（0。“line”）的名称表示线（8。“layer1”）表示层名称。示例显示为点对。
尝试此标记名=attribs（1）。标记字符串然后可以对照标记名进行检查。
页:
[1]