oliveprodgn

bonjour, essaies la manip suivante: places une cloture entres la commande FENCE DROP ASSOCIATION

lorsqu'on copie une cote associative le style change pour montrer qu'elle est associative pour casser l'asociation entrer "DROP ASSOCIATION" puis suivre instructions (il faut pointer précisément les points d'association, il peut y en avoir 1 ou +) pour ne pas associer les cotes, désactiver l'option au moment du placement

menu élément/style de traits/editer voir aide rubrique Line Style Libraries

les informations sont stockées dans les bibliothèques de style de traits (rsc) on peut en créer à volonté (élément/style de traits/éditer) les composantes sont des segments ou des "symbol"

j'ai eu le même cas récemment si la solution de mdvs31 ne marche pas j'ai fait une macro mettre les fichiers dans le même répertoire générer une liste avec commandes dos (dir > liste.txt) créer conversion.txt sur la base de liste.txt avec excel "fichier1.dgn","fichier1.dwg" "fichier2.dgn","fichier2.dwg" "fichier3.dgn","fichier3.dwg" ... Sub main Open "c:\conversion.txt" For input As #1 do while eof(1)=0 Input #1,dgn$,dwg$ MbeSendCommand "rd=c:/"+dgn$ '(chemin ou sont stockés les dgn) MbeSendCommand "DIALOG SAVEAS " MbeSetAppVariable "MGDSHOOK", "tcb->graphicsFileType", 4& MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFilterCmd *.dwg" MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\voyer\dwg\" MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd "&dwg$ MbeSendCommand "MBE1 CLOSEMODAL OK" MbeSendCommand "MBE1 CLOSEMODAL OK" loop End Sub

peut-être qu'avec OLE l'image est mise à jour en cas de modification ???

bonjour essaies avec fichier/importer/image

salut je ne suis pas certain d'avoir bien compris le problème mais personnellement je déplacerais tous les éléments du fichier pour qu'ils soient bien placés par rapport à la référence puis j'entrerais la commande GO= pour redéfinir l'origine du dessin de telle sorte que l'origine soit la même sur tous les fichiers (faire un test sur des copies)

Bonjour, à part créer une macro, je ne vois pas d'autre solution

bonjour, la commande pour attacher une cellule tuteur (at=) ne marche plus en V8 y a t'il une autre commande ou bien cette commande a disparu ?

en V8 il faut faire : > editer/mettre en avant plan les versions précédentes il faut que l'élément que l'on souhaite voir en avant plan soit le plus récent dans l'ordre chronologique de création si ce n'est pas le cas il faut le copier puis supprimer l'ancien

Je ne connais pas assez la V8 pour savoir mais je ne pense pas il faut recréer la bibliothèque s'il s'agit de cellules de formes régulière on peut les construire automatiquement avec des macros

entrer la commande fichier/modèle créer un ou plusieurs modèles attacher en référence le fichier sur lui-même dans le nouveau modèle

salut, tout simplement avec l'outil mesurer longueur

Je ne suis pas sûr d'avoir bien compris la question s'il s'agit de récupérer les informations contenues dans le dessin sous forme de base de données, il faut créer un modèle de rapport, puis générer le rapport bon week end

apparemment quand on travaille sur un fichier dwg on ne peut assigner des labels que sur des cellules (blocs d'autocad) mais sur un fichier dgn natif il n'y a pas de restriction pour parvenir à assigner un label, il faut donc créer une cellule orpheline (editer/grouper) une cellule orpheline comporte minimum 2 éléments s'il y en a un seul, le copier sur lui même pour pouvoir créer un groupe

on peut assigner un label à tout élément graphique mais il n'y a pas de polyligne dans microstation

pour comparer à autocad, le tableau n'apparait pas au moment du placement de la cellule la cellule se place comme elle a été construite ensuite on édite le jeu de label qui apparait sous forme de tableau il est toutefois possible de faire un tableau au placement de la cellule à l'aide d'une macro

il y 2 solutions soit intégrer des champs de données dans la cellule soit attacher un jeu de labels à la cellule

Etant inscrit depuis peu ma réponse est très tardive voici une solution pour joindre 2 arcs pour 2 lignes c'est plus long il faut sélectionner les 2 arcs à jondre puis lancer la macro (v7) Sub main dim centroid as MbePoint:dim centroid2 as MbePoint Dim elemSet as new MbeElementSet:Dim setMember as MbeSetMember Dim elem as New MbeElement:Dim filePos as Long if elemSet.fromSelectionSet (1) <> MBE_Success then mbemessagebox "pas de selection":exit sub if elemSet.getfirst(setMember)<> MBE_Success then exit sub filePos = elem.fromFile(setMember.filePos, setMember.fileNum) if elem.type=16 then goto arc mbemessagebox "impossible de traiter la sélection" arc: stat=elem.getOrigin(centroid) ang1#=elem.startAngle:ang11#=elem.sweepAngle if elemSet.getNext(setMember)<> MBE_Success then mbemessagebox "sélectionnez 2 éléments":exit sub filePos = elem.fromFile(setMember.filePos, setMember.fileNum) if elem.type<>16 then mbemessagebox "sélectionnez 2 arcs":exit sub stat=elem.getOrigin(centroid2) ang2#=elem.startAngle:ang21#=elem.sweepAngle if elemSet.getNext(setMember)= MBE_Success then mbemessagebox "sélectionnez 2 éléments uniquement":exit sub if centroid.x<>centroid2.x and centroid.y<>centroid2.y then mbemessagebox "arcs non concentriques":exit sub if ang1 if ang1+ang11 end if if ang1>ang2+ang21 then mbemessagebox "arcs impossibles à joindre":exit sub else ang3#=ang2:ang31#=ang1-ang2+ang11 fin: mbelocateelement filepos MbeSendCommand "DELETE ELEMENT " stat=elemSet.getfirst(setMember) filePos = elem.fromFile(setMember.filePos, setMember.fileNum) elem.startAngle=ang3 elem.sweepAngle=ang31 stat=elem.rewrite() End Sub

Bonjour, Je ne comprends pas bien la méthode utilisée pour créer une image. La méthode qui me parait la mieux recommandée est de passer par le menu utilitaires/image/enregistrer il faut redimensionner la vue au préalable pour obtenir la proportion souhaitée on peut également en enregistrer plusieurs à l'aide des vues sauvegardées