winfield

Alors là, je ne sais pas trop quoi te dire. Si je fais une poly je n'ai pas ces propriétés là. Est-ce toi qui a créé cette poly avec ton totocad ? Car je me demande si ça n'a pas été fais par un programme tierce. Comme je suis curieux, pourrais-tu m'envoyer un fichier avec une de ces poly ? mail : winfield@laposte.net

Désolé de ne pas comprendre, ou plutot.... j'ai peur de comprendre C'est pas sur autocad, c'est ça ?

qu'entends-tu pas rubrique ?

Effectivement, c'est une des faiblesses de vba autocad, il n'existe pas de fonction prête à l'emploi. Il faut le coder soi-même. Différentes technique ci-dessous : http://faq.vb.free.fr/index.php?question=151

.....fallait faire un couper-coller des lignes du code, pas celles de ta main !

Tous le monde sait qu'un tableur n'est pas une base de données mais là, va falloir m'expliquer un peu plus, car je n'ai pas compris où tu veux en venir.

Pour ma part, je ne suis pas bilingue du tout. Quant à l'utilité de cette chose, je pense que c'est au besoin de chacun, donc difficile à expliquer. Mais si tu veux l'exemple basic, c'est que tu peux modifier un objet d'un dessin sans vraiment l'ouvrir.

Salut, Désolé de mettre mon grain de sel. A la base, je ne suis pas du tout du bâtiment ni de la méca, de près ou de loin. J'ai suivi une formation (assez longue et rémunéréé) il y a quelques années...et je ne connaissais pas du tout l'informatique, je ne savais même pas comment démarrer ce "machin". Aujourd'hui, je bosse dans un bureau d'études en béton armé. Dans le contexte de l'entreprise où je travaille, je suis plus apprenti-projeteur que dessinateur tout court (je ne vois pas la différence mais bon...) malgré mon peu d'ancienneté par rapport à certains collègues. Cette situation peut, peut-être, s'expliquer par mon envie de progresser tant sur le plan des connaissances...qu'au niveau des pépettes. Tout ça pour dire que dans ton projet, il y a plusieurs facteurs : -Motivations (diverses et variées) -Connaissance du boulot -Savoir se vendre (pas comme moi) -un facteur chance Je te souhaite ......un mot en 5 lettres qui fini par ***de (du moins, c'est ce qui se dit dans la région, dans des cas comme celui-ci)

Change tes variables UCSFOLLOWS et UCSVP

Du peu que je connais, peu importe le langage, ce n'est pas possible ( à moins de scanner tous le(s) disque(s) ), vu que dans ton dessin tu n'as qu'une définition de block. Par contre, ouvrir une définition pour modifier, là, tu peux. Et t'as pas besoin de coder, un double-clic sur le bloc suffit. Entre autre chose je ne comprends pas la relation entre le nom du bloc et le reste, mais bon............ Bonne soirée

Je pensais qu'un Update suffirait... Via les SendCommand, activer le calque via ce principe, sinon je vois pas, à part coder.

ThisDrawing.SendCommand "_qdim" & vbCr ThisDrawing.Application.Update ThisDrawing.ActiveLayer = ThisDrawing.Layers(StrCalqueCourantH) Mais bon, avec les SendCommand, on maitrise encore moins par rapport au peu qu'on maitrise. C'est juste mon avis.

Désolé de jouer le rabat-joie, mais par rapport à ce que j'ai entendu des LT, on ne peut pas mettre d'image sauf si.......s'il y a la petite sauce d'Eric et de Reb. A côté de ça, je ne vois pas pourquoi et comment il y aurait cette commande ....sur cette LT ? Ou alors j'ai rien compris :(

1 point (dans l'array=2) Pt1 (0) =X Pt1 (1) =Y Pt1 (2) =Z 2 Pts (par ex cliqués à l'écran) Pt1=2 éléments Pt2=2 éléments Ce qui fait : 1e) Pt1 (0) =X 2e) Pt1 (1) =Y 3e) Pt1 (2) =Z 4e) Pt2 (0) =X 5e) Pt2 (1) =Y 6e) Pt2 (2) =Z Total= 6 éléments et multiple de 3

t'en a peut-être trop enlevé, ou pas assez :casstet: Parfois une petite touche personnelle arrive à décoincer.

Dim fitPoints(0 To [surligneur] 11[/surligneur] ) As Double Tu t'arrêtes à 5

re exemple de l'aide Sub Example_InsertBlock() ' This example creates a block containing a circle. ' It then inserts the block. ' Create the block Dim blockObj As AcadBlock Dim insertionPnt(0 To 2) As Double insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0# Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "CircleBlock") ' Add a circle to the block Dim circleObj As AcadCircle Dim center(0 To 2) As Double Dim radius As Double center(0) = 0: center(1) = 0: center(2) = 0 radius = 1 Set circleObj = blockObj.AddCircle(center, radius) ' Insert the block Dim blockRefObj As AcadBlockReference insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0 Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "CircleBlock", 1#, 1#, 1#, 0) ZoomAll End Sub en vba, tu insères le bloc et ensuite, regarder s'il a un attribut et indiquer la valeur si nécessaire. Ce n'est pas tout à fait la même façon que quand on insère manuellement. ' Move the attribute tags and values into a string to be displayed in a Msgbox Dim strAttributes As String Dim I As Integer For I = LBound(varAttributes) To UBound(varAttributes) strAttributes = strAttributes & " Tag: " & varAttributes(I).TagString & _ " Value: " & varAttributes(I).textString & " " Next MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example" ' Change the value of the attribute ' Note: There is no SetAttributes. Once you have the variant array, you have the objects. ' Changing them changes the objects in the drawing. varAttributes(0).textString = "NEW VALUE!"

Parce qu'il "n'est encore que ceinture jaune", donc il est normal qu'il commette des errorzes....môa, c'est fichu, on peut plus rien...on ne fait pas avancer un âne qui ne veut pas avancer ;)

Alors là ! Chapô bas Jalna ! J'avais lu le post mais .....pas la "feinte" ! Il existe un truc comme ça qui, je crois, sort d'une pseudo théorie, dont le théorème, traduit dans mon langage à môa, se résume à ceci : Il suffit qu'il y des inversions d'une lettre par syllabe (ou un truc du genre), MAIS que si on fait la lecture assez rapidement, la lecture se fait normalement comme s'il n'y avait pas de FOTEs :) ...mais bon, pour ma part, ce n'est pas une excuse, car tout le monde sait (que je suis nul en ortografe & C°) que les excuses c'est comme les ............tout le monde en a ! Veuillez m'excuser, c'est bientôt les vacs comme disent certains...et ce ne sera pas du luxe :P

Pourkoi ? c'était assez fin...........pour garder la ligne :D

Salut, Avant d'utiliser un type de ligne, il faut charger le fichier de définition des types de lignes. Dim StrTypeLigne As String Dim ObjCalque As AcadLayer Dim StrCalque As String Dim ObjLine as AcadLine ......................................... StrTypeLigne = "ZIGZAG" StrCalque="MonCalque" ......................................... ThisDrawing.Linetypes.Load StrTypeLigne, "ACAD.LIN" ...................................... Set ObjCalque = ThisDrawing.Layers.Add(StrCalque) ...................................... ObjLine.Linetype = StrTypeLigne ...................................... [surligneur] car là j'ai très fin... [/surligneur] keceke ce serait si t'av lé cros, avec les SMS, il n'y a pas de FOTES...koike....y'a un dico :( ;) .. Bon WE à tous Dsl d'être arrivé après la bataille (snif) [Edité le 29/6/2007 par winfield]

Salut En espérant que ça puisse t'aider : http://discussion.autodesk.com/thread.jspa?threadID=489812

Salut, Pour ma part, j'arrive à passer par dessus ce problème. Même si je n'ai pas de version inférieure à 2006, j'arrive à créer mes menus perso et sans passer par les fameux CUI. Juste un fichier MNS et un peu de VBA. Je ne me suis pas encore penché sur le pourquoi, ni du comment ça marche, mais ça marche :cool: , je me pencherai là-dessus dès que j'ai un moment de libre.

Salut, va falloir faire un peu de ménage ;) Il y a trops de variables inutiles : 3 variables pour 3 blocs 3 variables pour 3 mêmes type de points 3 variables pour 3 noms de blocs Déclare une fois comme ci-dessous au début du code et ça suffira Dim MonBloc as AcadBlokReference Dim NomBloc as string Dim Pt as variant ....................................... ....................................... Select case inputString Case 1 NomBloc="C:\MonDossier\1Bloc.dwg" Case 2 NomBloc="C:\MonDossier\2Bloc.dwg" Case 3 NomBloc="C:\MonDossier\3Bloc.dwg" End Select ....................................... ....................................... PTI et ses frères ne servent à rien, puisqu'il y a déjà returnPnt Pour ça, je pense que tu trouveras seul l'amélioration à apporter. Cette ligne doit être dans la boucle pour être initialisée ........à chaque boucle Encore quelques efforts, tu y es presque :D