我刚接触VBA,小问题求助?
请问怎么用VAB修改用CAD命令绘制的线条的属性如厚度thickness最好是用属标点取对象再提示输入值
谢谢！ Sub pick()
Dim ent As AcadEntity
Dim tkn As String
Dim pnt As Variant
ThisDrawing.Utility.GetEntity ent, pnt, "选择实体"
tkn = ThisDrawing.Utility.GetString(1, "输入属性")
ent.Thickness = tkn
End Sub
页:
[1]