Hey guys,
i have this..
ThisDrawing.Application.ActiveDocument.Activate
returnPnt = ThisDrawing.Utility.GetPoint(, "Select Insert Point: ")
insertpoint(0) = returnPnt(0)
insertpoint(1) = returnPnt(1)
insertpoint(2) = returnPnt(2)
' Insert the block
Dim blockRefObj As AcadBlockReference
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(returnPnt, "v:\Common_Assy\AHU\gtc_ahu_12-001.dwg", 1#, 1#, 1#, 0)
This works fine but is the following possible?
returnPnt = ThisDrawing.Utility.GetPoint(, "Select Insert Point:
")<---I would like to feed a value of 0,0,0 here for insertion without needing user input. any help appreciated