Tool to insert then explode a block
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Google
 
Web cadforums.net
Tool to insert then explode a block

 
Post new topic   Reply to topic    CADForums.net Forum Index -> VBA
Author Message
jcarter
Guest





Posted: Wed Dec 08, 2004 1:37 am    Post subject: Tool to insert then explode a block Reply with quote

I have a tool that contains the following command:

ID__21 [_Button("FAHS", "FABS.bmp", "FABS.bmp")]^C^C-layer;s;E-AUXR;;-INSERT;FABS-EX;S;(getvar "dimscale");;EXPLODE;L;;

I just added the ";;EXPLODE;L;;" portion to insert "FABS-EX" then explode it, but it stops after inserting the block? Any ideas?

Back to top
Tom Roberts
Guest





Posted: Wed Dec 08, 2004 4:59 am    Post subject: Re: Tool to insert then explode a block Reply with quote

From the help file:
Preceding the name of the block with an asterisk (*) explodes the block and
inserts the individual parts of it. The block definition is not added to the
drawing.

Try this
^C^C-layer;s;E-AUXR;;-INSERT;*FABS-EX;\(getvar "dimscale");;

This isnt a vba question you would be better off posting to the
autodesk.autocad.customization newsgroup

--
Regards
Tom Roberts
__________________________
MechWest Design & Drafting
Perth, Western Australia


"jcarter" <nospam@address.withheld> wrote in message
news:11271430.1102451872062.JavaMail.jive@jiveforum1.autodesk.com...
Quote:
I have a tool that contains the following command:

ID__21 [_Button("FAHS", "FABS.bmp",
"FABS.bmp")]^C^C-layer;s;E-AUXR;;-INSERT;FABS-EX;S;(getvar
"dimscale");;EXPLODE;L;;

I just added the ";;EXPLODE;L;;" portion to insert "FABS-EX" then explode
it, but it stops after inserting the block? Any ideas?
Back to top
GTVic
Guest





Posted: Wed Dec 08, 2004 3:39 pm    Post subject: Re: Tool to insert then explode a block Reply with quote

You forgot to account for the insertion point and you had an extra ; at the end.

to allow user to specify insertion point and rotation:
^C^C-layer;s;E-AUXR;;-INSERT;FABS-EX;S;(getvar "dimscale");\\EXPLODE;L;

to allow user to specify insertion point only with a rotation of 0°
^C^C-layer;s;E-AUXR;;-INSERT;FABS-EX;S;(getvar "dimscale");\0;EXPLODE;L;

to insert without any prompts at 0,0 with a rotation of 0°
^C^C-layer;s;E-AUXR;;-INSERT;FABS-EX;S;(getvar "dimscale");0,0;0;EXPLODE;L;

Back to top
 
Post new topic   Reply to topic    CADForums.net Forum Index -> VBA All times are GMT
Page 1 of 1

 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum




Windows Server DSP VoIP Electronics New Topics
Powered by phpBB