)ci sono molti fattori che fanno si che il risultato non sia buono, ad esempio il formato (a3-a4 ecc ) chi lo sceglie? e il fattore scala e la distanza delle viste?buongiorno a tutti
è da tempo che sto pensando di creare una nuova macro per la realizzazione delle tavole di piegatura lamiere.
(lavoro ripetitivo e noioso
le tavole che devo creare sono molto semplici.
nelle tavole ci deve essere:
-sviluppo piano della lamiera quotato
-le quote delle varie pieghe
-materiale e spessore della lamiera
essendo un buon progettista ma neofita nella realizzazione di macro, mi chiedevo se qualcuno di voi ha già creato qualcosa di simile.
grazie mille
ciao a tutti, grazie per la condivisione di queste macro... ottima macro, chiedo solo se sapete come fare una piccola variazione.. nel nome file del pdf dwg e step vorrei aggiungere la proprietà "revisione", ma dovrei andarla a prendere nelle proprietà della parte, perchè la tavola in se non ha proprietà.
private function getthatinfo(custominfovalue as string) as string
dim swapp as sldworks.sldworks
dim swmodel as sldworks.modeldoc2
dim swdrawing as sldworks.drawingdoc
dim swview as sldworks.view
dim errors as long
dim document1 as object
set swapp = application.sldworks
set swmodel = swapp.activedoc
' is document active?
if swmodel is nothing then
swapp.sendmsgtouser2 "a drawing file must be open.", swmbwarning, swmbok
exit function
end if
' is it a part document?
if swmodel.gettype <> swconst.swdocdrawing then
swapp.sendmsgtouser2 "a drawing file must be open.", swmbwarning, swmbok
exit function
end if
set swdrawing = swmodel
set swview = swdrawing.getfirstview
set swview = swview.getnextview
if swview is nothing then
msgbox "please insert a model view first!"
end
else
swapp.activatedoc3 swview.getreferencedmodelname, false, swrebuildonactivation_e.swuserdecision, errors
end if
set document1 = swapp.activedoc
getthatinfo = document1.getcustominfovalue("", custominfovalue)
swapp.closedoc swview.getreferencedmodelname
end function