drloveless

merci Lomming pour ta réponse. Pas besoin de transmettre le fichier LIN d'un type de ligne que j'aurais créé c'est déjà çà. Concernant le texte il ne faut pas que çà soit un type de ligne car le texte doit refléter un champs libre à l'utilisateur, qu'il pourrait changer via les propriétés de l'objet, mais pas en fonction d'un style de ligne ( plusieurs style de ligne à créer, et texte infini donc impossible à gérer de cette manière). D'autant plus qu'ensuite, il faut que je puisse récupérer cette information. A moins qu'on puisse programmer un type de ligne avec texte dont le texte sera à la guise de l'utilisateur, mais je doute que çà soit possible en définissant simplement un type de ligne, aussi complexe soit-il. Au boulot on tourne avec Autocad 2012, sans les expresstools....

Merci pour vos réponses. Après réflexion, le symbole en milieu de segment n'est pas obligatoire, il peut être n'importe où, et le texte n'a pas besoin d'être spécifiquement à côté du symbole. Donc pour çà, il faut que je crée un nouveau style de ligne via le fichier .lin . Mais si je veux diffuser mes documents, le fichier "lin" sera accroché à mon dessin ou il faudra que je l'envoie en même temps? Toujours concernant les styles de lignes, j'avais déjà essayé il y a quelques années, mais impossible de faire un rond remplit comme symbole! Concernant l'ajout d'un texte, si j'ai bien compris c'est faisable en VLISP et en VBA, mais si je veux pouvoir continuer à me servir des réacteur, alors mieux vaut passer en LISP? je demande çà parce que j'ai plus l'habitude du VB (EXCEL). Et est-ce que ce texte peut être modifiable via les propriétés de l'objet crée ? Il s'agit simplement d'une information quantitative. Enfin, est-ce que cette polyligne évoluée sera raccrochée à mes dessins crée? (idem question concernant les lin, les autres utilisateurs pourront se servir de ces objets directement sur le dessin ou bien faudra-t-il que j'envoie un autre fichier en plus du dwg)? désolé pour ces questions, j'ai bien envie de me lancer ( p'tit défi perso), mais je veux bien partir... Merci pour vos avis!!

Salut. Après plusieurs années sans Autocad, et sans création de routines sous autocad, j'aurais besoin de vos avis... Est-il possible en VB d'améliorer des polylignes ( ou de créer un nouvel objet fonctionnant comme une polyligne)? Il faudrait que je puisse ajouter des symboles distinctifs en fonction d'un choix de disponible dans les propriétes( carré, rond, triangle, ligne), au milieu de chaque segment de la polyligne, et d'indiquer un texte au dessus du symbole. Avant de ma lancer, et vu que mon cerveau est rouillé, pensez-vous que c'est possible? Avez vous des pistes? Je me souviens qu'on peut créer ses propres style de lignes, mais avec des symboles personnalisés?!? Merci pour vos avis!

Ha ok, ca parait tellement simple maintenant, merci beaucoup, problème réglé !!

OK, effectivement nous sommes deux maintenant. J'avais déjà vu ces interrogations en faisant mes recherches, et vous êtes donc le même Patrick !! Etant novice en la matière, je n'ai pas compris en quoi concernant la méthode de faire deux codes en fonction de l'erreur !! Car avant je supprime les blocs de mon dessin et purge celui-ci, le fameux bloc n'existe donc plus dans la bibliothèque de bloc du dessin !! Un p'tit coup de main ? [Edité le 24/2/2010 par drloveless]

Salut à Tous, J'ai crée une appli en 2004 pour mettre automatiquement un Cartouche sur un plan et enregsitrer ce plan qq part. sur Autocad 2004, pas de probleme, mais depuis çà cagouille!! Je suis actuellement en 2009. cas 1 : Je pars d'un nouveau plan, je clique sur mon petit bouton, et hop AUCUN problèmes. Depuis ce nouveau plan, je clique à nouveau sur mon p"tit bouton et hop, çà foire !!. cas 2 : Je pars d'un nouveau plan, je clique sur mon petit bouton, et hop AUCUN problèmes. Je ferme Autocad, puis réouvre le dernier plan ( celui qui vient d^'étre crée) je clique à nouveau sur mon p"tit bouton AUCUN problème. Depuis ce nouveau plan, je clique à nouveau sur mon p"tit bouton et hop, çà foire !!. Comprends pas pourquoi un coup çà marche, et le coup d'après çà plante !! Donc en fait à chaque fois, si je pense bien à refermer Autocad avant de me reservir de cette Appli, pas de problème, mais comme à chaque fois j'oubli.... ca me saoule. J'ai cherché à fond sur Internet et fait une batterie de test et de correction, mais rien n'y fait .... alors A L'AIDE !!!!!!!!!!!!!! Message d'erreur renvoyé: "erreur dexecution'-2145356445 (80200033) - Erreur de fichier Voici la ligne qui est pointée: Set objCartouche = MECA.Block.InsertBlock(PtInsert, "C:\Cartouches\Cartouches.dwg", 1, 1, 1, 0) Voici le code : Dim objCartouche As AcadBlockReference Dim PtInsert(0 To 2) As Double Dim CalCou As String Dim layerObj As Object Dim Curlayer As Object Dim MECA As AcadLayout Dim MecaExist As Boolean PtInsert(0) = 0: PtInsert(1) = 0: PtInsert(2) = 0 ‘--------------------------------------------------------------------------------------------- '------ Supression des cartouches existants présent sur le document ouvert ‘--------------------------------------------------------------------------------------------- ‘---- Supression des cartouches de MODELSPACE For Each elem In ThisDrawing.ModelSpace If elem.EntityType = acBlockReference Then If elem.Name = "Cartouche" Then elem.Delete End If Next ‘---- Supression des cartouches des PAPERSPACE For Each Present In ThisDrawing.Layouts NomPres = Present.Name Set MECA = ThisDrawing.Layouts(NomPres) For Each elem In MECA.Block If elem.EntityType = acBlockReference Then If elem.Name = "Cartouche" Then elem.Delete End If Next Next ‘---- Supression des cartouches de la bibliothèque de bloc du plan ouvert For Each ObjBlo In ThisDrawing.Blocks If ObjBlo.Name = "Cartouche" Then For Each elem In ThisDrawing.Blocks.Item("Cartouche") elem.Delete Next elem End If Next ObjBlo '-------------------------------------------------------- '--Test si une présentation nommée MEP1 existe déjà '-------------------------------------------------------- Set Layouts = ThisDrawing.Layouts MecaExist = False For Each Layout In Layouts If Layout.Name = "MEP1" Then MecaExist = True Next If MecaExist = True Then Set MECA = ThisDrawing.Layouts.Item("MECANOBLOC") If MecaExist = False Then Set MECA = ThisDrawing.Layouts.Add("MECANOBLOC") ThisDrawing.ActiveLayout = MECA '-------------------------------------------------------- '--Insertion du cartouche nouveau cartouche sur « MEP1 » '-------------------------------------------------------- Set objCartouche = MECA.Block.InsertBlock(PtInsert, "C:\Cartouches\Cartouches.dwg", 1, 1, 1, 0) Set dbNumPlan = OpenDatabase("C:\BasedeDonnée\BDDNUMPLAN.mdb") Set NumPlan = dbNumPlan.OpenRecordset("NumPlan-RD", dbOpenDynaset) If Not (NumPlan.EOF And NumPlan.BOF) Then NumPlan.MoveFirst Do Until NumPlan.EOF objCartouche.GetAttributes(0).TextString = NumPlan![Produit] objCartouche.GetAttributes(1).TextString = NumPlan![NomPlan] objCartouche.GetAttributes(2).TextString = NumPlan![NomPlan2] objCartouche.GetAttributes(3).TextString = "0" objCartouche.GetAttributes(58).TextString = NumeroDePlan objCartouche.GetAttributes(59).TextString = "0" Exit Do NumPlan.MoveNext Loop End If dbNumPlan.Close Set dbNumPlan = Nothing Set objCartouche = Nothing Unload Me ThisDrawing.SaveAs cheminplan End Sub