flat model extensions

[dicifa]

hello to all, I have a question to ask you....
when they are in sheet metal environment I need to export the extensions of the flat model in iproperties before making the tables (where there is already the possibility to insert the development in the cartigllio).....I tried but there is no way to do it....you have any idea?

Thank you. .

 

[Stiky]

hello to all, I have a question to ask you....
when they are in sheet metal environment I need to export the extensions of the flat model in iproperties before making the tables (where there is already the possibility to insert the development in the cartigllio).....I tried but there is no way to do it....you have any idea?

Thank you. .

only with a macro vba

 

[dicifa]

Where can I find her?

 

[Stiky]

I can't answer you.

I bought a plug-in developed by my dealer.

 

[Tarkus]

hello to all, I have a question to ask you....
when they are in sheet metal environment I need to export the extensions of the flat model in iproperties before making the tables (where there is already the possibility to insert the development in the cartigllio).....I tried but there is no way to do it....you have any idea?

Thank you. .

for extensions do you mean the size of the sheet panel from where to develop?

 

[dicifa]

Yes, tarkus, I really need that.... do you know how to do it?

 

[Tarkus]

Yes, tarkus, I really need that.... do you know how to do it?

No, unfortunately, it would make me comfortable too...

 

[diegus]

when you make the table there is the possibility to obtain these measures as a data field of a text: sheet/extension properties

 

[dicifa]

Thanks diegus.... I knew it already but it's not what I'm looking for. I tried to ask my dealer and asked me about 1200€....

 

[selva]

trovato!

=<flat length="" pattern=""> cm
=<flat pattern="" width=""> cm
=<flat area="" pattern=""> cm^2</flat></flat></flat>

 

[diegus]

That's what I said

 

[diegus]

trovato!

=<flat length="" pattern=""> cm
=<flat pattern="" width=""> cm
=<flat area="" pattern=""> cm^2</flat></flat></flat>

I didn't read the question well.... .

 

[dicifa]

trovato!

=<flat length="" pattern=""> cm
=<flat pattern="" width=""> cm
=<flat area="" pattern=""> cm^2</flat></flat></flat>

I'm sorry, but I don't understand.

sent by my gt-i9100 with tapatalk 2

 

[dicifa]

I didn't read the question well.... .

I don't understand. I've been trying, but I don't come to a conclusion.

 

[Catafratto]

Thanks diegus.... I knew it already but it's not what I'm looking for. I tried to ask my dealer and asked me about 1200€....

per 1150€ (un'offertona, come vedi) ti concedo il permesso di copiarti questa macro nel modulo vba (con procedura descritta in precedenza in questo forum trovala!)

contanti?

private sub flatpatternextents()
' definisce le variabili principali
dim opart as partdocument
dim oflat as flatpattern
dim osheetcompdef as sheetmetalcomponentdefinition


' controlla che il documento attivo sia un documento o un flatpattern
if not ((typeof thisapplication.activeeditobject is flatpattern) or _
(typeof thisapplication.activeeditobject is partdocument)) then
msgbox "una parte o un flatpattern devono essere presenti"
exit sub
end if

if typeof thisapplication.activeeditobject is partdocument then
set opart = thisapplication.activeeditobject
set osheetcompdef = opart.componentdefinition
set oflat = osheetcompdef.flatpattern
else
set oflat = thisapplication.activeeditobject
set opart = oflat.document

end if



' controlla che il flatpattern esista
if oflat is nothing then
msgbox "la parte deve avere il flatpattern"
exit sub
end if

' si crea l'iproperty "sviluppo" e si compila
' nota: si moltiplica *10 per convertire da cm a mm
dim otext as string
otext = round(oflat.width) * 10 & "x" & round(oflat.length * 10)

dim ocustompropset as propertyset
set ocustompropset = opart.propertysets.item("{d5cdd505-2e9c-101b-9397-08002b2cf9ae}")

'elimina la proprietà e la scrive nuova
'se non esiste si ignora l'errore generato
on error resume next
ocustompropset.item("sviluppo").delete

call ocustompropset.add(otext, "sviluppo")

end sub

 

[Tarkus]

:4425: great cataract, cad3d users should apply for the nobel prize for vba :4425:

 

[Catafratto]

:4425: great cataract, cad3d users should apply for the nobel prize for vba :4425:

too good but...
the eurines??? :biggrin:

Or do you pay me what I can drink at first? :tongue:

 

[Tarkus]

too good but...
the eurines??? :biggrin:

Or do you pay me what I can drink at first? :tongue:

good the second..:finger:

 

[dicifa]

per 1150€ (un'offertona, come vedi) ti concedo il permesso di copiarti questa macro nel modulo vba (con procedura descritta in precedenza in questo forum trovala!)

contanti?

private sub flatpatternextents()
' definisce le variabili principali
dim opart as partdocument
dim oflat as flatpattern
dim osheetcompdef as sheetmetalcomponentdefinition


' controlla che il documento attivo sia un documento o un flatpattern
if not ((typeof thisapplication.activeeditobject is flatpattern) or _
(typeof thisapplication.activeeditobject is partdocument)) then
msgbox "una parte o un flatpattern devono essere presenti"
exit sub
end if

if typeof thisapplication.activeeditobject is partdocument then
set opart = thisapplication.activeeditobject
set osheetcompdef = opart.componentdefinition
set oflat = osheetcompdef.flatpattern
else
set oflat = thisapplication.activeeditobject
set opart = oflat.document

end if



' controlla che il flatpattern esista
if oflat is nothing then
msgbox "la parte deve avere il flatpattern"
exit sub
end if

' si crea l'iproperty "sviluppo" e si compila
' nota: si moltiplica *10 per convertire da cm a mm
dim otext as string
otext = round(oflat.width) * 10 & "x" & round(oflat.length * 10)

dim ocustompropset as propertyset
set ocustompropset = opart.propertysets.item("{d5cdd505-2e9c-101b-9397-08002b2cf9ae}")

'elimina la proprietà e la scrive nuova
'se non esiste si ignora l'errore generato
on error resume next
ocustompropset.item("sviluppo").delete

call ocustompropset.add(otext, "sviluppo")

end sub

you are a great!!!...I in return can fix you an appointment with ruby steals hearts!!! :36_1_1::36_1_1::36_1_1:

...but here comes a little problem... I don't remember how to make macros....

 

[Catafratto]

Open the .idw template file
alt+f11 to access the basic visual editor
in the browser, expand document project > modules
double click on module1
copy the macro in the big window.
connect the macro to a button to your own taste by dx button on the top bar -> customize user commands