• このフォーラムは、www.cad3d.it/forum1 - イタリアのデザインコミュニティの機械翻訳です。いくつかの用語は正しく翻訳されていません。

カスタムプロパティを削除します。

  • Thread starter Thread starter mula
  • Start date Start date

mula

Guest
ciao... chiedo gentilmente aiuto...
su inv 2013
ho una serie di file ipt (centinaia) dove sono presenti delle proprietà personalizzate che vorrei eliminare
in seguito copierò le prorpietà personalizzate ok copiandole da un file a posto...
come faccio a eliminarle in modo veloce?
in design assistant c'è l'opzione "copia prorpietà progetto" ma non c'è "elimina"
grazie
 
design assistant>properties>(selezione singola/multipla dei files con ctrl /shift) tasto destro>iproperties> aggiorni i valori

oppure se assieme anche dal bom
 
se tutti i tuoi ipt hanno sempre le stesse iproperties da eliminare, fanne una copia in c:\test\ e fai partire questa macro inserendola in vba (alt-f11 per accedere all'editor visual basic). apre tutti i file della cartella, cancella le iprop che non ti servono e aggiunge quelle che ti servono. devi aggiungere/togliere righe ma è intuitivo, al limite chiedi.
ciao!


private sub delete_iprop()
dim myfile, mypath, myname
dim oapp as inventor.application
set oapp = thisapplication

dim odoc as document

mypath = "c:\test\" ' set the path.
myname = dir(mypath) ' retrieve the first entry.

dim opropsets as propertysets
dim ocustprops as propertyset
dim omyprop as property

do while myname <> "" ' start the loop.
' ignore the current directory and the encompassing directory.
if myname <> "." and myname <> ".." then
set odoc = oapp.documents.open(mypath & myname, true)
set opropsets = odoc.propertysets
set ocustprops = opropsets.item("{d5cdd505-2e9c-101b-9397-08002b2cf9ae}")

set omyprop = ocustprops.item("iprop_1") ' al posto di iprop_1 sostituire le iproperty personalizzata da eliminare
omyprop.delete

set omyprop = ocustprops.item("iprop_2") ' come sopra
omyprop.delete

call ocustprops.add("valore personalizzato_1", "mynewproperty_1") ' per aggiungere nuove iproperty

odoc.save
odoc.close
end if
myname = dir ' get next entry.
loop


end sub
 
ho provato come dice pompeo79...
funziona...
allora farò così...
creo un mega assieme con le parti dove devo cancellare le proprietà personalizzate, poi con design assistant le cancello...
grazie ancora
 

Forum statistics

Threads
46,674
Messages
380,976
Members
2
Latest member
loop80
このフォーラムは、www.cad3d.it/forum1 - イタリアのデザインコミュニティの機械翻訳です。いくつかの用語は正しく翻訳されていません。

Members online

No members online now.
Back
Top