winfield

commande : temps Mais les temps de la pause(s) café ou de mise au point d'un projet avec ses collègues etc ..ne sont pas décompté, en clair, ça ne veut pas dire grand chose :cool:

Qqn a des nouvelles d'Eric et de Rebcao ? Je ne les lient plus depuis un moment.........

J'ai eu l'occasion de tester un tout petit moment la version 2007. J'y ai ouvert un fichier créer sur 2004 et bizaremment, voila le curseur que j'ai eu : http://img179.imageshack.us/img179/5073/mireps5.png Le plan est en SCG, rien "d'anormal" en bref Si j'ouvre un fichier nouveau ou d'autres fichier, c'est comme d'hab. Qqn pour m'expliquer ?

Tiens ? Y a un copyright ? :o

MtextObj.Rotation = Val(Angle) Si ta variable Angle est en grade, à 1ère vu je dirais que c'est à cause de ça Transforme la valeur en radian.

La gargouille, maintenant que tu le dis.........ça parait évident :D Merci à tous

Merci Phil Je n'ai pas encore trouvé complètement mon bonheur mais c'est en bonne voie avec ceci :cool:

Bonjour à toutes et a tous, ma question (avec un S) va paraître peut-être stupide mais je suis à la recherche de 2 noms. 1/ Au-dessus d'une porte fenêtre à 1 battant, il y a une autre "fenêtre" mais qui bascule, comment appelle-t-on cette chose ? 2/ Parfois sur les gouttières, il y a un genre de bec qui éloigne les EP pour éviter d'éclabousser, je cherche également son nom....un becquet ? Merci

Salut la rouquine, ça faisait longtemps :) pour ce que tu cherches : donne lui cette adresse .......ce serait plus simple pour tous le monde, non ? ;)

Avec tout ça, j'espère que tu peux aller au bureau à vélo ! ;)

Denis Corvée et Denis House, pas mal pas mal...fallait y penser

http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=12050#pid47869 Il est vraiment étonnant qu'à 24 h près, 2 personnes différentes postent le même style de code pour le même travail dans le même langage, à moins que ça ne soit qu'une coïncidence.............

SAlut, je crois que c'est un truc du genre que tu veux Dim PtNumTxt(2) As Double PtNumTxt(0) = Tableau(a): PtNumTxt(1) = Tableau(a + 1) Set MtextObj = ThisDrawing.ModelSpace.AddMText(PtNumTxt, 200, _ "Pt n°" & Pt & "\PX=" & Format(Tableau(a), "##0.###0") & "\PY=" & Format(Tableau(a + 1), "##0.###0")) Ce qui donne : Public Sub nbPoints() Dim objPoly As AcadLWPolyline Dim basePnt As Variant Dim nbPoints, Pt As Integer Dim Tableau(200) As String Dim MtextObj As AcadMText a = 0: Pt = 1 ThisDrawing.Utility.GetEntity objPoly, basePnt, "Selectionner une polyligne :" For Each Coordinate In objPoly.Coordinates Tableau(nbPoints) = Coordinate nbPoints = nbPoints + 1 Next Do While Tableau(a) <> "" Texte = Texte & "\P" & Pt & " X=" & Tableau(a) & " Y=" & Tableau(a + 1) [surligneur] Dim PtNumTxt(2) As Double PtNumTxt(0) = Tableau(a): PtNumTxt(1) = Tableau(a + 1) Set MtextObj = ThisDrawing.ModelSpace.AddMText(PtNumTxt, 200, _ "Pt n°" & Pt & "\PX=" & Format(Tableau(a), "##0.###0") & "\PY=" & Format(Tableau(a + 1), "##0.###0")) [/surligneur] Pt = Pt + 1 a = a + 2 Loop Texte = "Tableau des coordonnées\P" + Texte 'Saisie du point d'insertion returnPnt = ThisDrawing.Utility.GetPoint(, "Cliquez le coin Haut Gauche du Cadre :") 'Insert le texte au point d'insertion Set MtextObj = ThisDrawing.ModelSpace.AddMText(returnPnt, 200, Texte) MtextObj.Height = 3 ' MtextObj.StyleName = "Time" MtextObj.Update End Sub Bonne continuation

si bien sûr, va voir chez Maxence, pour un début http://perso.orange.fr/maxence.delannoy/cliches.htm si t'en veut plus va ici : http://www.ac-nice.fr/geniecivil/outils/AutoCAD/bibliotheque.htm il te mettent même tous les outils nécessaire Bonne continuation :D

Oups, j'avais oublier ce post :P

Je sais bien kia l'apostrophe, mais à quoi sert 'ThisDrawing.SendCommand "(setvar " & """useri1""" & " (vlax-ldata-get " & """Phalene""" & " " & """Ech1""" & "))" & vbCr j'y connais rien Lisp et encore moi en VLisp, alors help me please :cool:

Set ObjBlockEpDalle = ThisDrawing.ModelSpace.InsertBlock _ (PtInsertBloc, "\\Serveur\D\RepertoireDesBlocs\Blocs_100\MonBloc.dwg", 1, 1, 1, 0) Insérer un bloc est plus facile que de le créer, surtout s'il est complexe....enfin, j'ai peut-être rien compris. pour le reste, DeniH et Chrisfs t'ont donné le nécessaire. Bonne chance

A quand les autocad xxxx 1er semestre et 2ème semestre ? :mad:

En voilà une bonne astuce ! :D C'est Casque Noir qui va en tiré une tête ! Merci beaucoup pour l'Aschtuche [Edité le 16/10/2006 par winfield]

vu comme ça, tu as parfaitement raison :cool:

jsutement, je pensais simuler les ctrl+c et v, mais bon, je me suis cassé les dents dessus :(

Salut à toutes et à tous Lorsque vous tapez un texte, bien sûr il n'y a rien d'anormal par rapport à d'habitude (à part peut-être depuis la 2006, je reviendrai la dessus plus tard). Si vous tapez "lolo" , no prob si vous tapez "55²" , no prob mais comment faire si à la place du ptit 2, je veux que ça soit 5 ? pour en revenir à la 2006, avec les habitudes des autres (précédentes) versions, j'avais pris l'habitude que ça se passe comme ça : Commande:TEXTE je clic un point Spécifiez la hauteur <2.5000>:MaHtDeTxt Spécifiez l'angle de rotation du texte <0>:entrée/MonAngle Entrez le texte:MonTxt_a_Moi Avec (depuis ?) la 2006 : Commande:TEXTE je clic un point Spécifiez la hauteur <2.5000>:MaHtDeTxt Spécifiez l'angle de rotation du texte <0>:entrée Sur la ligne de commande : rien !!! Je sais, vous allez me dire que je chipote, mais bon, vous savez ce que : c'est les habitudes. pour la 2006, c'était juste un clin d'yeux

Je ne connais pas les LT, mais ... avec les LT, pas de "Copier depuis un point" et "coller vers les coordonées d'origine" ? :(

tiré de l'aide et légèrement modifié pour le test Sub TestOrdreTrace() Dim ACADPref As AcadDatabasePreferences Set ACADPref = ThisDrawing.Preferences ACADPref.LineWeightDisplay = True Dim ObjChoisi1 As AcadEntity Dim ObjChoisi2 As AcadEntity Dim pt As Variant ThisDrawing.Utility.GetEntity ObjChoisi1, pt, vbCr & "Selection du 1er objet." ThisDrawing.Utility.GetEntity ObjChoisi2, pt, vbCr & "Selection du second objet." 'Gxet an extension dictionary and, if necessary, add a SortentsTable object Dim eDictionary As Object Set eDictionary = ThisDrawing.ModelSpace.GetExtensionDictionary ' Prevent failed GetObject calls from throwing an exception On Error Resume Next Dim sentityObj As Object Set sentityObj = eDictionary.GetObject("ACAD_SORTENTS") On Error GoTo 0 If sentityObj Is Nothing Then ' No SortentsTable object, so add one If Err Then MsgBox Err.Description Set sentityObj = eDictionary.AddObject("ACAD_SORTENTS", "AcDbSortentsTable") End If Dim ObjIds(1) As Long ObjIds(0) = ObjChoisi1.ObjectID ObjIds(1) = ObjChoisi2.ObjectID Dim varObject As AcadObject Set varObject = ThisDrawing.ObjectIdToObject(ObjIds(1)) Dim arr(0) As AcadObject Set arr(0) = varObject 'Move the circle object to the bottom sentityObj.MoveToBottom arr AcadApplication.Update End Sub

Vi , mais c'est avec une form file moi un mail comme ça t'auras la totale.