I'm trying to translate a VBA MAcro to VBscript and I have some problems.
I check every entity in ModelSpace if is a AcDbBlockReference then I check if it has HasAttributes and then and so on but when I want to know the position of this block by
ThisDrawing.Utility.Prompt ObjRef.InsertionPoint(0)I have an error
For c = 0 To ThisDrawing.ModelSpace.Count - 1 Set ent = ThisDrawing.ModelSpace.Item(c) ThisDrawing.Utility.Prompt ent.ObjectName If (ent.ObjectName = "AcDbBlockReference") Then Set ObjRef = ThisDrawing.ModelSpace.Item(c) If ObjRef.HasAttributes Then AttList = ObjRef.GetAttributes Valori.JOB = AttList(0).TextString Valori.DWG = AttList(1).TextString Valori.MAT = AttList(5).TextString Valori.QTY = AttList(6).TextString ThisDrawing.Utility.Prompt ObjRef.InsertionPoint(0) End If End If Next
So where I can find all this information?
thnak you