sechanbask

ne te réjouis pas trop il arrive que la macro ne s'adapte pas partout, fait des test sur plusieurs postes et si tu ne relèves pas de problème, il faut que tu débugges ta macro en mettant : On error resume next Si tu as des problèmes, corriger les. Si tu n'y arrives pas fait une gestion d'erreur... je te retrouverais sur l'autre sujet pour tes poutres peut-être... bon courage

Comme on vit dans un pays dans lequel les U.S.I. sont applicables et pas mal aplliquée... j'ai rendu ta commande portable, mais basé sur les U.S.I., si tu utilises les unités anglosaxonnes, il faudras faire des modifications... Option Explicit Sub CmdCoffrage() Dim linetypeHidden As String Dim linetypeCenter2 As String Dim linetypePhantom2 As String linetypeHidden = "CACHE" linetypeCenter2 = "AXES2" linetypePhantom2 = "FANTOME2" ThisDrawing.SetVariable "MEASUREINIT", 1 ThisDrawing.SetVariable "MEASUREMENT", 1 Dim entry As AcadObject For Each entry In ThisDrawing.Linetypes If StrComp(entry.Name, linetypeHidden, 1) = 0 Then Dim trouve As Boolean trouve = True Exit For Else End If Next If trouve = False Then Dim fichier1 As String fichier1 = "acadiso.lin" ThisDrawing.Linetypes.Load linetypeHidden, "acadiso.lin" Else End If For Each entry In ThisDrawing.Linetypes If StrComp(entry.Name, linetypeCenter2, 1) = 0 Then End If Next If trouve = False Then ThisDrawing.Linetypes.Load linetypeCenter2, "acadiso.lin" Else End If For Each entry In ThisDrawing.Linetypes If StrComp(entry.Name, linetypePhantom2, 1) = 0 Then End If Next If trouve = False Then ThisDrawing.Linetypes.Load linetypePhantom2, "acadiso.lin" Else End If Dim newlayer1 As AcadLayer Set newlayer1 = ThisDrawing.Layers.Add("BETON-CSP-CACHE") Dim color As AcadAcCmColor Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16") Call color.SetRGB(0, 255, 255) newlayer1.TrueColor = color newlayer1.Linetype = linetypeHidden Dim newlayer2 As AcadLayer Set newlayer2 = ThisDrawing.Layers.Add("BETON-CSP-COUPE") Call color.SetRGB(255, 127, 255) newlayer2.TrueColor = color Dim newlayer3 As AcadLayer Set newlayer3 = ThisDrawing.Layers.Add("BETON-CSP-VU") Call color.SetRGB(159, 255, 127) newlayer3.TrueColor = color Dim newlayer4 As AcadLayer Set newlayer4 = ThisDrawing.Layers.Add("BETON-PREF-VU") Call color.SetRGB(0, 255, 255) newlayer4.TrueColor = color Dim newlayer5 As AcadLayer Set newlayer5 = ThisDrawing.Layers.Add("BETON-PREF-COUPE") Call color.SetRGB(255, 255, 0) newlayer5.TrueColor = color Dim newlayer6 As AcadLayer Set newlayer6 = ThisDrawing.Layers.Add("BETON-PREF-CACHE") Call color.SetRGB(255, 0, 0) newlayer6.TrueColor = color newlayer6.Linetype = linetypeHidden Dim newlayer7 As AcadLayer Set newlayer7 = ThisDrawing.Layers.Add("HOURDIS-COUPE") Call color.SetRGB(114, 76, 152) newlayer7.TrueColor = color Dim newlayer8 As AcadLayer Set newlayer8 = ThisDrawing.Layers.Add("HOURDIS-PLAN") Call color.SetRGB(114, 76, 152) newlayer8.TrueColor = color newlayer8.Linetype = linetypePhantom2 Dim newlayer9 As AcadLayer Set newlayer9 = ThisDrawing.Layers.Add("PREDALLES-PLAN") Call color.SetRGB(114, 76, 152) newlayer9.TrueColor = color newlayer9.Linetype = linetypePhantom2 Dim newlayer10 As AcadLayer Set newlayer10 = ThisDrawing.Layers.Add("MAC-COUPE") Call color.SetRGB(152, 114, 76) newlayer10.TrueColor = color Dim newlayer11 As AcadLayer Set newlayer11 = ThisDrawing.Layers.Add("MAC-VU") Call color.SetRGB(255, 255, 255) newlayer11.TrueColor = color Dim newlayer12 As AcadLayer Set newlayer12 = ThisDrawing.Layers.Add("MAC-CACHE") Call color.SetRGB(255, 0, 0) newlayer12.TrueColor = color newlayer12.Linetype = linetypeHidden Dim newlayer13 As AcadLayer Set newlayer13 = ThisDrawing.Layers.Add("METAL-COUPE") Call color.SetRGB(255, 127, 159) newlayer13.TrueColor = color Dim newlayer14 As AcadLayer Set newlayer14 = ThisDrawing.Layers.Add("METAL-VU") Call color.SetRGB(255, 0, 0) newlayer14.TrueColor = color Dim newlayer15 As AcadLayer Set newlayer15 = ThisDrawing.Layers.Add("METAL-CACHE") Call color.SetRGB(255, 127, 0) newlayer15.TrueColor = color newlayer15.Linetype = linetypeHidden Dim newlayer16 As AcadLayer Set newlayer16 = ThisDrawing.Layers.Add("AXES") Call color.SetRGB(255, 255, 255) newlayer16.TrueColor = color newlayer16.Linetype = linetypeCenter2 Dim newlayer17 As AcadLayer Set newlayer17 = ThisDrawing.Layers.Add("NUM-ELEMENT") Call color.SetRGB(255, 0, 0) newlayer17.TrueColor = color Dim newlayer18 As AcadLayer Set newlayer18 = ThisDrawing.Layers.Add("NUM-AXES") Call color.SetRGB(255, 255, 255) newlayer18.TrueColor = color Dim newlayer19 As AcadLayer Set newlayer19 = ThisDrawing.Layers.Add("TITRES") Call color.SetRGB(255, 255, 0) newlayer19.TrueColor = color Dim newlayer20 As AcadLayer Set newlayer20 = ThisDrawing.Layers.Add("PERCEMENTS") Call color.SetRGB(152, 76, 76) newlayer20.TrueColor = color Dim newlayer21 As AcadLayer Set newlayer21 = ThisDrawing.Layers.Add("CADRES") Call color.SetRGB(255, 255, 255) newlayer21.TrueColor = color Dim newlayer22 As AcadLayer Set newlayer22 = ThisDrawing.Layers.Add("CARTOUCHE") Call color.SetRGB(255, 255, 255) newlayer22.TrueColor = color Dim newlayer23 As AcadLayer Set newlayer23 = ThisDrawing.Layers.Add("TEXTES") Call color.SetRGB(0, 255, 255) newlayer23.TrueColor = color Dim newlayer24 As AcadLayer Set newlayer24 = ThisDrawing.Layers.Add("HACH-BETON-CSP") Call color.SetRGB(76, 152, 152) newlayer24.TrueColor = color Dim newlayer25 As AcadLayer Set newlayer25 = ThisDrawing.Layers.Add("HACH-BETON-PLAN") Call color.SetRGB(214, 214, 214) newlayer25.TrueColor = color Dim newlayer26 As AcadLayer Set newlayer26 = ThisDrawing.Layers.Add("HACH-BETON-PREF") Call color.SetRGB(114, 76, 152) newlayer26.TrueColor = color Dim newlayer27 As AcadLayer Set newlayer27 = ThisDrawing.Layers.Add("HACH-MAC") Call color.SetRGB(255, 127, 127) newlayer27.TrueColor = color Dim newlayer28 As AcadLayer Set newlayer28 = ThisDrawing.Layers.Add("HACH-DIVERS") Call color.SetRGB(255, 255, 255) newlayer28.TrueColor = color Dim newlayer29 As AcadLayer Set newlayer29 = ThisDrawing.Layers.Add("COTES-AXES-100") Call color.SetRGB(255, 255, 255) newlayer29.TrueColor = color Dim newlayer30 As AcadLayer Set newlayer30 = ThisDrawing.Layers.Add("COTES-AXES-50") Call color.SetRGB(255, 255, 255) newlayer30.TrueColor = color Dim newlayer31 As AcadLayer Set newlayer31 = ThisDrawing.Layers.Add("COTES-AXES-25") Call color.SetRGB(255, 255, 255) newlayer31.TrueColor = color Dim newlayer32 As AcadLayer Set newlayer32 = ThisDrawing.Layers.Add("COTES-AXES-20") Call color.SetRGB(255, 255, 255) newlayer32.TrueColor = color Dim newlayer33 As AcadLayer Set newlayer33 = ThisDrawing.Layers.Add("COTES-100") Call color.SetRGB(255, 255, 255) newlayer33.TrueColor = color Dim newlayer34 As AcadLayer Set newlayer34 = ThisDrawing.Layers.Add("COTES-50") Call color.SetRGB(255, 255, 255) newlayer34.TrueColor = color Dim newlayer35 As AcadLayer Set newlayer35 = ThisDrawing.Layers.Add("COTES-25") Call color.SetRGB(255, 255, 255) newlayer35.TrueColor = color Dim newlayer36 As AcadLayer Set newlayer36 = ThisDrawing.Layers.Add("COTES-20") Call color.SetRGB(255, 255, 255) newlayer36.TrueColor = color Dim newlayer37 As AcadLayer Set newlayer37 = ThisDrawing.Layers.Add("COTES-10") Call color.SetRGB(255, 255, 255) newlayer37.TrueColor = color Dim newlayer38 As AcadLayer Set newlayer38 = ThisDrawing.Layers.Add("DIVERS") Call color.SetRGB(255, 255, 255) newlayer38.TrueColor = color Dim newlayer39 As AcadLayer Set newlayer39 = ThisDrawing.Layers.Add("VPORT") Call color.SetRGB(255, 127, 0) newlayer39.TrueColor = color newlayer39.Plottable = False Dim newlayer40 As AcadLayer Set newlayer40 = ThisDrawing.Layers.Add("CONSTRUCTION") Call color.SetRGB(91, 91, 91) newlayer40.TrueColor = color newlayer40.Plottable = False Dim newlayer41 As AcadLayer Set newlayer41 = ThisDrawing.Layers.Add("METRE") Call color.SetRGB(255, 127, 0) newlayer41.TrueColor = color newlayer41.Plottable = False End Sub j'espère que ça ira.. pour moi j'ai pas de problème pour les calques lors de la preview.

tu n'a pas tenu compte de mes précédentes remarques... pas très bien ça... bon , je ne t'en tiendrai pas rigueur et je te change ton code (si je peux) pour te le redonner mais attention que ça ne se reproduise pas. Sinon (et là je fronce les sourcils) : "ademus queratum, errores files" ça ne veut rien dire en latin mais je trouvais que ça clôturait bien mon post. P.S. SS'il te plait, essaie de pas faire trop de faute de français dans tes messages, ça fait pas trop joli surtout que ça reste puisque c'est un écrit... Essaie firefox, on peux lui inclure une correction orthographique... P.S.S. Tu travailles avec des plan en unités S.I. ou anglosaxonnes ?

ta preview est en couleur ou seulement ta présentation ? Si c'est ta preview, je plus simple serai que tu me renvoies ton code fini pour que je regarde...

Essai de faire un regen entre la pose des tes blocs et ta sélection, si ta sélection prend tout, je pense qu'il faudrait que tu mettes à jour ton bloc après chaque insertion comme ça : bloc.update

Je pense que c'est possible (en partant du principe que tout est possible mdr). Je ne dis pas que je serais capable de le faire mais... Tu pourrais mettre dans dans fichier de ton bloc un attribut dans ton bloc avec le champs du nom, comme ça en l'insérant tu auras au moins le nom, je me demande même si tu peux pas mettre le chemin de ton fichier dans un attribut... Bon courage, j'espère que ça t'aidera ATTENTION : j'ai perdu mon bloc en mettant le champs du fichiers avec le nom du chemin. Quand j'ai fermé mon éditeur de bloc(j'ai une version2006) Fait des essais avant de faire ça avec de vrais blocs. [Edité le 2/7/2007 par sechanbask]

bon sang mais c'est bien sûr, j'avais pas pensé à la 3D... merci je testerai ça sous peu.. Merci tu es un chef, chapeau bas, en tout cas je crois que je ne sais pas lire. Voilà le code pour tracer une spline avec 3 points choisis par l'utilisateur via la méthode getpoint : Sub spline() ' This example creates a spline object in model space. ' Create the spline Dim splineObj As AcadSpline Dim startTan(0 To 2) As Double Dim endTan(0 To 2) As Double Dim pins As Variant Dim fitPoints(0 To 8) As Double startTan(0) = 0: startTan(1) = 0 endTan(0) = 0: endTan(1) = 0 pins = ThisDrawing.Utility.GetPoint(, vbCrLf & "premier point:") fitPoints(0) = pins(0): fitPoints(1) = pins(1): fitPoints(2) = 0 pins = ThisDrawing.Utility.GetPoint(, vbCrLf & "deuxième point:") fitPoints(3) = pins(0): fitPoints(4) = pins(1): fitPoints(5) = 0 pins = ThisDrawing.Utility.GetPoint(, vbCrLf & "troisième point:") fitPoints(6) = pins(0): fitPoints(7) = pins(1): fitPoints(8) = 0 Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan) End Sub [Edité le 2/7/2007 par sechanbask]

Je suis content que tu n'ai pas à tout retaper. P.S. N'oublie pas de mettre ton sujet comme résolu : (c'est une ampoule en dessous de ton premier message, quand tu es loggé)

Bon courage, je sais que le métier du bâtiment est en manque de techniciens(nes) (surtout dans le génie thermique climatique (mon domaine)). J'ai trouvé du travail avant même d'avoir fini mon DUT Génie thermique et énergie. Et mon entreprise a dû mal à trouver des personnes fiables dans le domaine. Je te souhaite de réussir ton changement de cap.

Si c'est un copier coller on peut l'attraper sur autocad 2006... mais pour les versions antérieures ??? Essai de faire une sélection rapide si tu as OLE dans les entités. Si c'est pas le cas, il s'agit d'une image JPG incorporée (mais ça serait bizarre normalement ça devrait aussi être un OLE) et là tu peux plus rien faire sauf la supprimer...

Ce pas un problème t'en fais pas. C'est un peu moins pratique car une fois que ta userform est apparue, tu ne peux plus voir une partie de ton plan et tu ne peux pas te déplacer sur ton plan pour voir un truc que t'as pas vérifié avant de lancer la commande. Alors commençons par le début, pour faire un menu déroulant sur une feuille c'est avec combobox. combobox = Zone de liste modifiable appelons la "combobox" combox2 sur la userform "Parametres" dans ton module ou useform qui lance la combobox2 With Parametres.ComboBox2 .Clear 'impératif sinon à chaque fois que tu lances ton application, ça te rajoutera des item en plus .AddItem "texte" .AddItem "débit" .AddItem "diamètre" .AddItem "espace" End With bon je vais manger, et cette après midi, je ne suis pas là alors bon courage et à bientôt

Tu travailles avec quel logiciel? si autocad, quelle version? car si tu as une version supérieure ou égale à 2006, je pense que le plus simple sera de faire des demandes dynamiques (à l'écran comme les commandes autocad).

Je comprends bien ton désarroi... Si je fait du VBA, c'est pour gagner du temps (non en fait pour ne pas en perdre) et peu pour le plaisir de créer. Je ne connais pas du tout ton domaine, je travaille dans un BE fluides, d'ailleurs, généralement on aime pas (par convention collective) les personnes qui font la structure car ils nous mettent des poutres et des poteaux partout, mais le pire dans tout ça c'est les dalles précontraintes dans lesquelles on doit donner toutes les réservations même pour les tout petits trous... Afin d'enterrer la hache de guerre : je te donne ce que j'ai fait grâce à Winfield Sub rec() Dim PTA As Variant Dim PTB As Variant Dim pt1(1) As Double Dim pt2(1) As Double Dim pt3(1) As Double Dim pt4(1) As Double Dim Obj_Decal As AcadLWPolyline Dim points(0 To 15) As Double 'Dim StrCalqueCourantH As String Dim newlayer1 As AcadLayer Dim newlayer2 As AcadLayer INSAUTO.CalqueCourant 'MsgBox StrCalqueCourantH Set newlayer1 = ThisDrawing.Layers.Add("16--") ThisDrawing.ActiveLayer = ThisDrawing.Layers("16--") PTA = ThisDrawing.Utility.GetPoint(, "Indiquez le premier coin.") PTB = ThisDrawing.Utility.GetCorner(PTA, vbLf & "Indiquez le second coin.") 'PTA = ThisDrawing.Utility.TranslateCoordinates(PTA, acUCS, acWorld, False) 'PTB = ThisDrawing.Utility.TranslateCoordinates(PTB, acUCS, acWorld, False) pt1(0) = PTA(0): pt1(1) = PTA(1) pt2(0) = PTB(0): pt2(1) = PTB(1) pt3(0) = pt2(0): pt3(1) = pt1(1) pt4(0) = pt1(0): pt4(1) = pt2(1) points(0) = pt1(0): points(1) = pt1(1) points(2) = pt3(0): points(3) = pt3(1) points(4) = pt2(0): points(5) = pt2(1) points(6) = pt4(0): points(7) = pt4(1) points(8) = pt1(0): points(9) = pt1(1) points(10) = pt2(0): points(11) = pt2(1) points(12) = pt3(0): points(13) = pt3(1) points(14) = pt4(0): points(15) = pt4(1) Set Obj_Decal = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) With Obj_Decal .Closed = True .Update End With 'Set newlayer2 = ThisDrawing.Layers.Add("16--COT") 'ThisDrawing.ActiveLayer = ThisDrawing.Layers("16--COT") 'ThisDrawing.Application.Update ThisDrawing.SendCommand "_qdim" & vbCr 'ThisDrawing.Application.Update ThisDrawing.ActiveLayer = ThisDrawing.Layers(StrCalqueCourantH) End Sub

Tu souhaites faire un polyligne avec des demande à l'utilisateur? ex. "sélectionner le premier point : "? Si c'est une polyligne créée par VBA sans demande à l'utilisateur : Sub Example_LinetypeGeneration() ' This example creates a polyline in model space and ' queries and changes the linetype generation for ' the polyline. ' To see the effect of changing the linetype generation, set ' the linetype of the polyline to something other than continuous, ' ByBlock, or ByLayer. Dim plineObj As AcadPolyline Dim points(0 To 14) As Double ' Define the 2D polyline points points(0) = 1: points(1) = 1: points(2) = 0 points(3) = 1: points(4) = 2: points(5) = 0 points(6) = 2: points(7) = 2: points(8) = 0 points(9) = 3: points(10) = 2: points(11) = 0 points(12) = 4: points(13) = 4: points(14) = 0 ' Create a lightweight Polyline object in model space Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points) End Sub

J'avoue ne pas avoir compris ton message... et ton code chez moi ne fonctionne pas, la cote est dans le calque 0 et non dans "16--COT". Si tu as une autre idée pour créer cette cotation pour qu'elle soit dans le bon calque, je suis preneur.

J'ai tenté une modification de ta macro et aussi de la mienne et j'arrive au même problème : Sub rectplein() 'Winfield 'Rectangle hachuré pour resa Dim Coin1 As Variant Dim Coin2 As Variant Dim Pt(0 To 7) As Double Dim ObjRect(0 To 0) As AcadEntity Dim ObjHach As AcadHatch Dim BlnAssoc As Boolean Dim LongType As Long Dim StrNomHach As String Dim newlayer1 As AcadLayer Dim newlayer2 As AcadLayer Dim StrCalqueCourantH As String StrCalqueCourantH = ThisDrawing.ActiveLayer.Name Set newlayer1 = ThisDrawing.Layers.Add("16--") ThisDrawing.ActiveLayer = ThisDrawing.Layers("16--") StrNomHach = "Solid" LongType = 0 BlnAssoc = True On Error Resume Next With ThisDrawing.Utility Set ObjHach = ThisDrawing.ModelSpace.AddHatch(LongType, StrNomHach, BlnAssoc) Coin1 = .GetPoint(, "Indiquez le premier coin.") Coin2 = .GetCorner(Coin1, vbLf & "Indiquez le second coin.") If Err <> 0 Then Exit Sub End If Pt(0) = Coin1(0): Pt(1) = Coin1(1) Pt(2) = Coin2(0): Pt(3) = Coin2(1) Pt(4) = Coin1(0): Pt(5) = Coin2(1) Pt(6) = Coin2(0): Pt(7) = Coin1(1) Set ObjRect(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(Pt) ObjRect(0).Closed = True ObjHach.AppendOuterLoop (ObjRect) Pt(0) = Coin1(0): Pt(1) = Coin1(1) Pt(2) = Coin1(0): Pt(3) = Coin2(1) Pt(4) = Coin2(0): Pt(5) = Coin2(1) Pt(6) = Coin2(0): Pt(7) = Coin1(1) Set ObjRect(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(Pt) ObjHach.Evaluate ObjHach.Update End With Set newlayer2 = ThisDrawing.Layers.Add("16--COT") ThisDrawing.ActiveLayer = ThisDrawing.Layers("16--COT") 'MsgBox ThisDrawing.ActiveLayer.Name [surligneur] ThisDrawing.SendCommand "_qdim" & vbCr [/surligneur] ThisDrawing.ActiveLayer = ThisDrawing.Layers(StrCalqueCourantH) End Sub Sur la ligne surlignée, la commande _qdim n'est pas affectée par mon changement de calque ... Je me demande bien pourquoi.

Dans ton entreprise, tu n'as pas de poste avec une version autre que 2004LT ? Est-ce que tes plans sont confidentiels? Sinon, tu pourrais peut-être les envoyer pour qu'on essaie quelque chose...

j'ai oublié de te dire de déclarer : Dim entry As AcadObject je vais le mettre en jaune sur le code que je t'ai réécrit. c'est important sinon sur un autre poste tu risques d'avoir des erreurs si les options sont stricts au niveau de la déclaration des variables...

Alors pour que le calque ne soit pas imprimable : newlayer1.Plottable = False Je te remets mon code en entier car j'ai fait des modifications afin d'être sûr que ça marche quelque soit la valeur de la variable MEASUREMENT. Je pense que c'est important pour que ton application soit portable (pour qu' elle fonctionne partout, même sur un PC pour lequel rapnouv crée un plan avec les unités anglaises). Attention, il faut aussi que les lignes que tu souhaites charger soient toutes dans acadiso (seul le nom change un peu mais les 2 fichiers contiennent les mêmes lignes) car c'est acadiso.lin qui sera chargé. Option Explicit Sub calques() Dim newlayer1 As AcadLayer Set newlayer1 = ThisDrawing.Layers.Add("NOM DU CALQUE") Dim color As AcadAcCmColor Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16") Call color.SetRGB(80, 100, 244) newlayer1.TrueColor = color newlayer1.Plottable = False Dim linetypeName As String linetypeName = "ZIGZAG" [surligneur]Dim entry As AcadObject[/surligneur] For Each entry In ThisDrawing.Linetypes If StrComp(entry.Name, linetypeName, 1) = 0 Then MsgBox linetypeName & " a été trouvé dans dessin actif." Dim trouve As Boolean trouve = True Exit For Else End If Next If trouve = False Then Dim fichier1 As String Dim var As String [surligneur]var = ThisDrawing.GetVariable("MEASUREMENT") If var = 0 Then ThisDrawing.SetVariable "MEASUREMENT", 1 var = ThisDrawing.GetVariable("MEASUREMENT") MsgBox "Le système des unités est initialisé en unités S.I." End If fichier1 = "acadiso.lin"[/surligneur] MsgBox var MsgBox linetypeName & " n'a pas été trouvé dans dessin actif. Nous allons donc le chercher dans le fichier " & fichier1 ThisDrawing.Linetypes.Load linetypeName, [surligneur]"acadiso.lin"[/surligneur] MsgBox "trouvé dans fichier..." Else End If newlayer1.Linetype = linetypeName MsgBox "le calque NOM DU CALQUE a pour type de ligne : " & linetypeName End Sub bon courage [Edité le 30/6/2007 par sechanbask]

Pour en revenir au sujet, pour ton énorme lisp (Spruge), je pense que ton code serait encore plus puissant en ajoutant ce que tu m'a donné ici : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=14245#pid56210 Mais ce n'est que mon opinion. Bon aller bonne soirée.

Le mieux pour éviter les ARX_ERROR, c'est de copier le bloc et de le mettre sur un dessin autocad 2004 crée par un PC équipé d'une version antérieure à 2007... C'est un peu la merde le DWG 2007... Désolé, je ne saurais pas le faire..

C'est là que le bât blesse, comment dois-je m'y prendre pour faire une spline de 3 points ? 2 points ça fait 6 éléments (????) 3 points ça fait 9 éléments ??(???) Je suis un peu coincé...Je ne vois pas comment faire pour les coordonnées du point 1, 2, et 3, car pour moi ça ne représente que 6 valeurs.

tu as fait des modifications ? [Edité le 30/6/2007 par sechanbask]

c'est vraiment dommage..

>Patrick_35 J'utilise depuis peu ta super lisp OU, c'est vraiment très pratique. Malheureusement, j'ai remarqué qu'il ne fonctionne pas bien avec les blocs dynamiques. L'idéal serait qu'après la sélection de bloc dynamique, qu'on puisse choisir s'il doit chercher les blocs suivant leur nom (le nom visible pour l'utilisateur) ou suivant leurs nom d'entité (où la visibilité est prise en compte, etc.) Merci d'avance [Edité le 24/7/2008 par sechanbask]