【转帖】create a user input form to generate parts

yang686526

create a user input form to generate parts
can someone provide a generic "template" form with these input parameters to build a simple part?
need to offset the front plane,
sketch a rectangle,
extrude,
then sketch again on the right plane.
can this be done or is this wishfull thinking??
thanks!
have you tried driveworksxpress?
adrian velazquez
cswp
cswp-smtl
solidworks x64 2009 sp3.0
nvidia quadro fx 570
it will take about 10 minutes in vba.
just be more specific; do you want to specify the size and location of the rectangle, the distance of the extrusion, the second sketch is what?, etc...
luke, yes, i want to specifiy the length and width of the rectangle and that the location will be centered on the origin. also need to be able to input the extrusion depth on the form.
the second sketch is another rectangle off the right plane. this sketch will be extruded a different depth.
please let me know if you need more info .
thanks!
luke, have you completed this sample? please post if possible.
thanks.
option explicit
dim swapp as sldworks.sldworks
dim swmodel as modeldoc2
dim selmgr as selectionmgr
sub main()
set swapp = application.sldworks
' use currently active part
'set swmodel = swapp.activedoc
' or create new one...
set swmodel = swapp.newdocument("c:\programdata\solidworks\solidworks 2008\templates\part.prtdot", 0, 0#, 0#)
set selmgr = swmodel.selectionmanager
swmodel.extension.selectbyid2 "front plane", "plane", 0, 0, 0, false, 0, nothing, 0
swmodel.createplaneatoffset3 0.01, true, true
swmodel.extension.selectbyid2 "plane1", "plane", 0, 0, 0, false, 0, nothing, 0
swmodel.sketchmanager.createcenterrectangle 0, 0, 0, 0.05, 0.02, 0
swmodel.featuremanager.featureextrusion2 true, false, true, 0, 0, 0.01, 0.01, false, false, false, false, 0, 0, false, false, false, false, 1, 1, 1, 0, 0, false
swmodel.extension.selectbyid2 "right plane", "plane", 0, 0, 0, false, 0, nothing, 0
swmodel.sketchmanager.insertsketch true
swmodel.sketchmanager.createcenterrectangle 0, 0, 0, 0.05, 0.02, 0
swmodel.extension.selectbyid2 "sketch2", "sketch", 0, 0, 0, false, 0, nothing, 0
swmodel.featuremanager.featureextrusion true, false, true, 0, 0, 0.01, 0.01, false, false, false, false, 0, 0, false, false, false, false, 1, 1, 1
swmodel.editrebuild3
end sub
alter dimensions and positions to suit. can expand to have user form to gather information if required.