Insérez l'image dans un cartiglio

[mastro.alle]

au revoir à tous,
j'ai commencé à partir d'un des exemples présents pour créer un type de cartilage personnalisé dans lequel le logo de mon entreprise devrait apparaître.
quelqu'un sait-il comment insérer une image lors de la création automatique du cartilage ?

je vous remercie.

 

[inbomba]

au revoir !
j'insère simplement->image. . .
cependant, il utilise pas trop lourd jpg sinon la taille du .catdrawing devient élevée.
si le logo est noir et blanc, vous pouvez aussi le recréer dans un dxf et l'importer.

salutations
plus riche

 

[mastro.alle]

bonjour.
peut-être ai-je mal expliqué... je sais que pour insérer une image dans une catdrawing la procédure est "insérer->image...", mais je voudrais savoir s'il y a un moyen de faire cette opération automatiquement tout en créant le panier. ce qui me manque sont les lignes de code à insérer dans la macro, car catia n'enregistre aucune opération si j'active l'enregistreur macro tout en insérant manuellement une image.

y a-t-il un expert en vb qui peut m'aider ?

 

[DistantVision]

j'ai commencé à partir d'un des exemples présents pour créer un type de cartilage personnalisé dans lequel le logo de mon entreprise devrait apparaître.

incroyable. j'ai eu le même problème depuis trois semaines. mais je ne peux pas vous aider..
j'ai précédemment apporté des changements impensables à l'exemple d'un cartilage existant, en interprétant le code en vb (dont je n'ai aucune maîtrise).
le cartiglio sans image me fonctionne bien, mais pour cela j'ai perdu dans des passages comme ceci:

sous catcreatelogoazienza()
«----------------------------------
'comment créer le logo
«----------------------------------
avec image
.image = image de charge("c:\...\...\...\....jpg")
.stretch = vrai
.gauche = 0
.top = 0
.width = moi.width
.hauteur = moi.hauteur
fin avec
«----------------------------------
avec événements imaginez comme image
set imagine = cata.controls.add("vb.image", "imagine" & index_imagine)
index_imaginaire = index_imaginaire + 1
imaginez. étirement = vrai

avec imaginer
.visible = vrai
.left = txtleft.text
.top = txttop.text
.largeur = txtwidth.text
.hauteur = txtheight. texte
.image = image de charge("c:\...\...\...\....jpg")
fin avec
fin sous

... plus tous les appels dispersés dans le code, comme cela arrive pour l'autre sous.
comme cela ne fonctionne pas, il y a des erreurs, peut-être conceptuelles, peut-être même graves:confusées: qui sait.
je l'ai renvoyée quand j'ai eu le temps d'étudier un peu plus le vb. si je trouve quelque chose, je l'écrirai ici.vous l'avez résolu ?salué.

 

[atofras]

je voudrais pouvoir intervenir mais je n'ai pas de dimisticité avec les cads mais je trouve intéressant le sujet. bonjour.

 

[DistantVision]

je voudrais pouvoir intervenir mais je n'ai pas de dimisticité avec les cads mais je trouve intéressant le sujet. bonjour.

ici le problème est la programmation, malheureusement, dans le langage visuel de base.
sur le cad puis vous allez seulement faire les tests d'insertion du cartilage dans le réglage de la table, pour voir si cela se produit correctement.

 

[Francesco CATIA V5]

bonjour à tous.
je suggère de quitter cette route... il a essayé mon compagnon programmeur et après plusieurs tentatives il s'est rendu.
je l'ai résolu à ma façon... pour différents formats a0-a1-a2 etc... j'ai créé un fichier catdrawing indépendant en modifiant manuellement le cartilage dans la commande d'arrière-plan de la feuille d'édition et en insérant toutes les images que je veux... quand j'ai besoin de mon bon tableau de dessin, j'ouvre le fichier et exécute la commande enregistre par nom .... créer à ce point un nouveau fichier catdrawing avec un codage dédié pour le projet et modifier les répertoires !!! résultat?? tous dans le bureau a suivi ce mythe et aussi d'autres amis.
j'espère avoir été utile... bonjour.

 

[ferdo]

rationone = 0
ratio const privé=1
ratio const privé = 2
dim odocument
feuilles minces
dim osheet
dim oview
dim ophotographies


sous-secteur public()

suite de l'erreur
set odocument = catia.activedocument
si err.number <> 0 puis
set odocument = catia.documents.add("drawing")
erreur.
fin si
en cas d'erreur aller à 0

set osheets = odocument. feuilles
set osheet = osheets.activesheet
set oview = osheet.views.activeview
set opictures = oview. images

msgbox "la macro insérera un fichier jpg dans votre dessin à la position x =150, y =0. le fichier doit être dans le dossier c:\temp\ (qui doit être créé avant de lancer la macro) et doit avoir le logo du nom. modifier le code si vous voulez autre chose"

inscrire "c:\temp\coe_logo.jpg", 150, 0, ratioheight, 100,25


fin sous

sous insertimage (strpath, dblanchorx, dblanchory, prratio, dblwidth, dblheight)
dim objimage

set objphotograph = opictures.add(strpath, dblanchorx, dblanchory)
image de format, prratio,-1 ,-1 , dblwidth, dblhight

définir objphoto = rien
fin sous

image sous format public(objimage , prratio , dblanchorx, dblanchory, dblwidth , dblhight )
dim dblscalar

si dblanchorx >= 0 puis objphoto.x = dblanchorx
si dblanchory >= 0 puis objphoto.y = dblanchory

si prratio = largeur de rapport alors
'image graduée par largeur avec rapport fixe
si la largeur > 0 puis
dblscalar = image obj. largeur / largeur
c'est une image. hauteur = image.hauteur / dblscalar
c'est une image. largeur = largeur
fin si
sinon prratio = ratiohight alors
'image graduée par hauteur avec rapport fixe
si dblhight > 0 puis
dblscalar = image obj. hauteur / hauteur
objphoto.width = objphoto.width / dblscalar
c'est une image. hauteur = dblhight
fin si
autre
'image graduée par largeur et hauteur
si la largeur > 0 puis image obj. largeur = largeur
si dblhight > 0 puis image obj. hauteur = dblhight
fin si

fin sous


ps es un catscript