Add Fittings to Plant 3D with VBA

[joshuaadams]

Hi,

I am currently trying to add fittings to a Plant 3D drawing automatically from a database utilising VBA.

My current code parses commands directly to the plant 3D command line utilising the ThisDrawing.SendCommand function.

However, when I send the following code to plant 3D:

Thisdrawing.SendCommand ("_PLANTFITTINGADD " & vbCrLf), a dialog box appears as follows:

Is there someway that I can control this dialogbox with VBA?

Or is there another way that I can insert fittings into my plant3D drawing through VBA that doesn't involve going through this dialogbox?

Thanks alot in advance for any help!!

- Josh

[jabowabo · Accepted solution]

"-PLANTFITTINGADD"

😉

[joshuaadams]

Jabowabbo. You ma main man!

Worked perfectly!

Thanks for the help and the quick response.

[joshuaadams]

Hi JaboWabbo,

I'm having another issue related to above that I thought you may be able to assist with. I am sending the following information to Plant3D:

ThisDrawing.SendCommand ("-PLANTFITTINGADD ")
SendKeys "Flange" & vbCr
SendKeys "1" & vbCr
SendKeys "50" & vbCr
SendKeys "0,0,0" & vbCr
SendKeys "0" & vbCr

However, I am now stuck inside the "-PLANTFITTINGADD" command. See screenshot below.

I have tried using SendKeys Char(27) (the escape key) & SendKeys Char(24) (cancel) to exit me out of the command with no luck.

Any ideas?

Thanks again for your help.

Cheers,

Josh

[joshuaadams · Accepted solution]

It seems I may have asked this question too soon. I've figured it out myself if anyone out there is interested. Simply add the two lines in red below to exit you out of the current command and clear the AutoCad command line.

doc.SendCommand ("-PLANTFITTINGADD ")

SendKeys "Flange" & vbCr
SendKeys "1" & vbCr
SendKeys "50" & vbCr
SendKeys "0,0,0" & vbCr
SendKeys "0" & vbCr
SendKeys " " 'Exits the plant fitting add command
doc.SendCommand Chr(27) & Chr(27) & Chr(27) 'Clears the command line