John2020
Guest
Bonjour, monsieur.
récemment j'ai copier un ilogic depuis le forum autodesk, et actually je souhaite exporter le motif de déplier vers dxf avec le numéro de pièce au lieu du nom de fichier dans les fichiers ipt. Merci de m'aider à modifier le code comme ci-dessous.
mon échantillon était attendu: Pour de plus amples informations, veuillez contacter:dim odoc comme document = cette demande. document actif
si odoc.documenttype <>documenttypeenum.kdrawingdocumentobject puis sortir sous 'dessins seulement
pour chaque omodel comme document dans la boucle odoc.referenceddocuments à travers tous les documents référencés
'pièces en tôle seulement
if omodel.documentsubtype.documentsubtypeid <> "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}"
dim osmcd comme feuille de métalcomposantdéfinition = omodel.composantdéfinition
sinon osmcd. hasflatpattern puis 's'il n'a pas une patte plate, créer un (déplier le modèle)
osmcd.unfold ()
osmcd.flatpattern.exitedit ()
fin si
dim fname comme chaîne = omodel. fullfilename 'get the document's chemin and name
fname = microsoft.visualbasic.left (fname, len (fname) - 4) & ".dxf"
dim sout as string = "flat pattern dxf? acadversion = r12 & rebasegeométrie = true & exteriorprofilelayercolor = 0 & exteriorprofilelayercolor = 0; 0 & interiorprofilelayercolor = 0 & interiorprofilelayercolor = 0; 0 & invisiblelayers = iv_arc_centers; iv_tangent; iv_roll; iv_roll_tangent; iv_altrep_back; iv_altrep_front; iv_feature_profiles_down; iv_feature_profiles_down; iv_tool_center_down; digi_marker_tool_1; digi_marker_tool_2; iv_bend; iv_bend_down Paramètres d'exportation
essayer
osmcd.dataio.writedatatofile (sout, fname) 'export
prises
fin de l'essai
suivant
récemment j'ai copier un ilogic depuis le forum autodesk, et actually je souhaite exporter le motif de déplier vers dxf avec le numéro de pièce au lieu du nom de fichier dans les fichiers ipt. Merci de m'aider à modifier le code comme ci-dessous.
mon échantillon était attendu: Pour de plus amples informations, veuillez contacter:dim odoc comme document = cette demande. document actif
si odoc.documenttype <>documenttypeenum.kdrawingdocumentobject puis sortir sous 'dessins seulement
pour chaque omodel comme document dans la boucle odoc.referenceddocuments à travers tous les documents référencés
'pièces en tôle seulement
if omodel.documentsubtype.documentsubtypeid <> "{9c464203-9bae-11d3-8bad-0060b0ce6bb4}"
dim osmcd comme feuille de métalcomposantdéfinition = omodel.composantdéfinition
sinon osmcd. hasflatpattern puis 's'il n'a pas une patte plate, créer un (déplier le modèle)
osmcd.unfold ()
osmcd.flatpattern.exitedit ()
fin si
dim fname comme chaîne = omodel. fullfilename 'get the document's chemin and name
fname = microsoft.visualbasic.left (fname, len (fname) - 4) & ".dxf"
dim sout as string = "flat pattern dxf? acadversion = r12 & rebasegeométrie = true & exteriorprofilelayercolor = 0 & exteriorprofilelayercolor = 0; 0 & interiorprofilelayercolor = 0 & interiorprofilelayercolor = 0; 0 & invisiblelayers = iv_arc_centers; iv_tangent; iv_roll; iv_roll_tangent; iv_altrep_back; iv_altrep_front; iv_feature_profiles_down; iv_feature_profiles_down; iv_tool_center_down; digi_marker_tool_1; digi_marker_tool_2; iv_bend; iv_bend_down Paramètres d'exportation
essayer
osmcd.dataio.writedatatofile (sout, fname) 'export
prises
fin de l'essai
suivant