AutoCAD Mechanical Forum
Welcome to Autodesk’s AutoCAD Mechanical Forums. Share your knowledge, ask questions, and explore popular AutoCAD Mechanical topics.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Automate Ref point by VBA

0 REPLIES 0
Reply
Message 1 of 1
ambrosiPZ23D
128 Views, 0 Replies

Automate Ref point by VBA

Hello,

I put a BOM in Mechanical from a csv file, no Pos (as you could see in the picture)

Is it possible by using VBA to insert in the Drawing the reference point instead to use the manual mode (the red arrow in the picture)? What is the method to call? 

Thanks

 

Dim oPartref As McadPartReference
Set oPartref = ThisDrawing.ModelSpace.AddCustomObject("AcmPartRef")

oPartref.ScaleEntity NewPoint, 1


oPartref.Origin = NewPoint

 

Dim oSymbb As McadSymbolBBMgr
Set oSymbb = ThisDrawing.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
Dim oBommgr As McadBOMMgr
Set oBommgr = oSymbb.BOMMgr

ambrosiPZ23D_0-1729093040894.png

 

0 REPLIES 0

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report