DenisHen

Effectivement, je pensas aussi au "hors sujet"... Aucun problème... Je reste à ta disposition... Denis...

Salut (gile), Le simple fait que t'arrive et Hop ! ! Comme par magie, c'est réparé... En recopiant le code pour te le poster, j'ai vu ça ! ! ! (if (= (setq rot (getorient p1 (strcat "\nOrientation du texte :"))) 0 ) (setq rot (vlax-ldata-get "Phalene" "AngSCU")) ) (setvar "orthomode" VOrtho) [surligneur](if (not rot) (setq rot (getvar "snapANG"))) [/surligneur] (command "_-mtext" "_none" p1 "j" Just "h" (/ (* Haut Ech) 1000.0) "_r" (polar p1 (+ rot (/ pi 2)) 1000) "_w" "0.00" Texte "" ) ;_ Fin de command Je ne sais pas pourquoi, mais sans cette ligne (qui devait fonctionner) ça a l'air d'aller mieux... Mais merci quand même ! ! Denis...

Par contre, j'ai un petit problème, (vlax-ldata-put "Phalene" "AngSCU" (angle p1 p2)) Stock bien mon angle... Mais quand je le lis dan d'autres routine pour définir l'angle d'un texte, ce dernier devrait être horizontal dans le sens de la lecture (de gauche à droite). Mais dans mon cas, il est bien horizontal, mais à l'envers, il est à +200gr ou -200gr ! ! Comment je peut m'en sortir ? Merci, Denis...

Bonsoir, J'ai commencé une macro cette semaine... Tu sélectionne une polyligne (attention, sinon erreur, je n'ai pas fini) puis elle écrit un texte multiligne dans AutoCAD : La voilà : Public Sub TableauDA() Dim objPoly As AcadLWPolyline Dim basePnt, returnPnt As Variant Dim nbPoints, Pt, Echelle As Integer Dim Tableau(200), Lot As String Dim MtextObj As AcadMText Ph = "Phalene": Ech = "Ech1" 'ThisDrawing.SendCommand "(setvar " & """useri1""" & " (vlax-ldata-get " & """Phalene""" & " " & """Ech1""" & "))" & vbCr 'Echelle = ThisDrawing.GetVariable("useri1") 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 & Chr(9) & "X=" & Round(CCur(Tableau(a)), 2) & Chr(9) & "Y=" & Round(CCur(Tableau(a + 1)), 2) returnPnt = Val(Str(Tableau(a)) & Str(Tableau(a + 1))) Pt = Pt + 1 a = a + 2 Loop Texte = "Tableau des coordonnées\P" + Texte returnPnt = ThisDrawing.Utility.GetPoint(, "Cliquez le coin Haut Gauche du Cadre :") Set MtextObj = ThisDrawing.ModelSpace.AddMText(returnPnt, 200, Texte) MtextObj.Height = 1 MtextObj.Update End Sub Bon courage... Denis...

Je vien de créer un fichier FRM (qui est en ASCII) qui fait 400 lignes. Mais VBA m'a créé un autre fichier avec, un frx qui lui, est "compilé"... mon dvb fait 60ko, le frm en fait 17 et le frx en fait 7... Je vais faire un tour dans VBA et VB...

D'après ce que je sais, le fichier dvb (macro vba) contien des modules (macro "public") et des feuilles (userform) et d'autres trucs encore... Le tout tient dans le fichier dvb qui n'est pas ASCII, mais je pense qu'on peut les exporter en fichier ASCII type *.bas (module), *.frm (ffeuille), *.cls (classe).... Je tente de les publier, mais je ne sais pas trop comment tu pourras les récupérer... J'ai déjà fais des essais qui ont quasiment tous échoués... Denis...

Ca y est, le dvb est fait... -vbarun;Proprio; Je le poste comment ?

Comme le redit Oli553 : Patrick_35 frole le miracle... mes milliers de mercis... Denis...

J'ai déja fais une UserForm mais je ne sais pas comment la poster. Avec, tu comprendrais en une seconde, sinon, je posterai mon dvb. Écrire le ou les noms de propriétaire d'une parcelle cadastrale... La parcelle est défini par sa Section (string) et son numéro (real). (exemple : AN n°56, AN n°256, AP n°123, AP n°124........) Chaque parcelle peut avoir un ou plusieurs propriétaire, il y a a) le "plein propriétaire" qui donne "propriétaire" s'il est seul ou "propriétaires indivis" s'il sont plusieurs (mari et femmes, des frères, des petits enfants.... b) le "nu propriétaire" : il ne possède la parcelles que "fiscalement" qui donne le ou les "nu propriétaires" c) l'"usufruitier" : il n'a droit que d'utiliser la parcelle qui donne le ou les "usufruitiers" La a) est toujours seul tandis que le b) est indissociable du c) Toutes ces personnes peuvent être représenté par une autre... Ce qui donnera dans le texte final (à écrire dans la parcelle) : Propriétaire : Monsieur TOPALOFF Michel ou Propriétaire : Commune de TRISOUILLE LES FLAQUETTES représenté par Monsieur BARBA Truc (Maire adjoint) ou alors : Propriétaires indivis : - Monsieur RENARD Jules représenté par Monsieur RENARD Gustave - Monsieur ALIEN 2 Salvador Et un petit dernier : Nu propriétaire : - Madame CLAUDE Simone Usufruitiers : - Monsieur LAGAFFE Gaston représenté par Monsieur PRUNEL Guy-René - Monsieur CABREL Francis Bon, je pense avoir fais simple ... mais pour moi. Aucun problème pour d'autre renseignement... Et bon courage pour ton tuto... Moi, je vais bosser mon "Proprio.dvb" Denis...

Bonsoir à tous, Bon, j'ai enfin trouvé un truc... Merci encore à vous, qui ne m'avez pas seulement aider à progresser, mais aussi à apprendre et , donc, à comprendre le LiSP... Le chemin est encore long pour atteindre un niveau honorable, mais bien accompagné, il n'y a plus de frontières... Merci encore... Je n'en serais jamais là sans vous... Donc, v'là mon truc (que j'ai eu dans un sujet du "VBA et VB" et c'est fabcad qui avait la réponse. Merci à lui) : ThisDrawing.SendCommand "(setvar " & """useri1""" & " (vlax-ldata-get " & """Phalene""" & " " & """Ech1""" & "))" & vbCr Echelle = ThisDrawing.GetVariable("useri1") MsgBox "Échelle du dessin : " & Echelle C'est plus du ressort du forum "VBA et VB", mais il fallait une "colclusion" pour clore ce sujet... Merci... Denis...

Tu m'étonne ! !

Bonsoir à tous, je cherche juste à récupérer un XData écrit en LiSP depuis VBA... Denis...

C'est donc bien Patrick_35 qui en connait un rayon en VLisp... Dont je me sers à ne plus savoir qu'en faire ! ! ( c'est donc à lui que dois d'en connaitre un minimum...) Sont-ce des variables (les Xdatas) qui encombrent les DWG ? Ce qui m'étonne (dans ce que dit Grand Gile), c'est que les USERS sont limités, et pas les XData... Et que : dans ce que j'ai compris des Xdata, c'est que c'est une variable qu'on créer en l'ajoutant au dessin...Il est nullement question d'un utilisateur, mais plutôt d'un "utilisé"... Mais je cherche... Je cherche... Denis...

Mille excuses, ce doit être Patrick_35.... C'est ce qui est dommage quand on ne cotoye pas de visu... Je tente de te faire un truc compréhensible pour vendredi...Mais pô sur... Denis...

PS pour Tramber ( ou autres ) : Je sais que tu est callé en Vlisp et, si mes souvenirs sons bons, tu connais le VBA... Mon sujet est : J'ai (vlax-ldata-put "Phalene" "AngSCU" (angle p1 p2)) que je stock depuis une routine... et j'utilise : (vlax-ldata-get "Phalene" "AngSCU") dans plein d'autres routines... (je le sais, c'est toi qui me l'as appris ;) ) Ma question est : Comment récupérer l'Xdata "Phalene" "AngSCU" depuis le VBA...? Merci... Denis...

Bonsoir à tous, Merci mille fois Tramber, mais je pense à ObjectDCL parce que j'ai commencé une routine en LiSP et sans boite de dialogue, je ne pense pas m'en sortir. J'aimerais que cette routine reste conviviale pour l'utilisateur... Mais je vais tenter, cela me prendra facillement plusieurs jours, de synthétiser mon code pour l'associé à une boite de dialogue qui n'existe pas encore... Mais je me demande, en écrivant ces lignes, si ce ne serait pas plus simple en VBA... Car c'est juste une fenêtre avec des "TextBox" pour en final créer un unique texte multiligne... Mais si je trouve la solution en VBA, je pourrais te la poster si le jeu te convient... Je continu de chercher... Nul doutes, je trouverais... Merci... Denis...

Bonsoir, J'essayais juste d'expliquer pour qui et peut-être pourquoi les SCU général est important, car moi aussi, je modifie mon SCU pour des façades ou des coupes... Je ne répondais que pour tenter de renseigner les autres... J'essai d'aider les autres quand je le peu (même peu)... J'ai tellement reçu d'aide sur CadXP que je me dois de le lui rendre... Sur ce... Bonsoir... Denis...

Bonjour, En tant qu'utilisateur (et pas développeur) d'AutoCAD depuis 15 ans, mon SCU est toujours général, et pour plus de confort, mon curseur est toujours "orthométrique" à l'écran... (command "RESOL") (<= WAOW, je fais du LiSP sans le savoir ;) ) Je suis géomètre et le système de coordonnées est primordial... Et il ne peut se faire qu'en SCU général. J'ai déja testé des commandes qui jonglais avec différents SCU et plusieurs fois, force était de constater que c'était beaucoup trop dangereux... De plus, certaines commandes sont "non évidentes" pour AutoCAD avec des SCU particuliers... Mais qu'est-ce qui te gêne avec le SCU ? Denis...

Merci à tous les deux... Je vais chercher à faire pour le mieux... Celà vaux t'il que je la poste dans "Pour aller plus loin" ? Où il n'y a que moi qui puisse utiliser cette routine ? Merci encore... Denis...

Désolé, je n'avais pas vu qu'il y avait déjà un forum "ObjetDCL"... (Je ne comprend que maintenant, pourtant Gile m'avait fait un lien....) PFFFF Je me décole les paupières et je m'y rend... Denis...

Bonjour à tous J'ai installé le gratuiciel "ObjectDCL" mais je n'arrive à rien... L'aide est en anglais et est trop simpliste, le site ne répond pas.... Quelqu'un en connait un peu plus ? Merci... Denis...

J'ai oublié ! ! J'ai rajouté çà pour l'utiliser pour écrire des texte horizontaux... (vlax-ldata-put "Phalene" "AngSCU" (angle p1 p2)) Denis...

Bonsoir à tous... J'ai écris ce soir une petite routine ( pour géomètre ) qui fait : - sens des angles = horaire - axe des Y = NORD - unité angulaire = Grade, trois décimales pour les principales; les autres sont plus du gout de l'utilisateur - taille et style des points... Mais le plus important, en cliquant deux points (la direction des X du plan pour la présentation et la rotation des écritures) - modifie l'angle de vue - modifi l'angle du curseur ( parallèle à l'écran). Tout-çà pour garder le SCU général ! ! Très important, non ? L'avantage de cette manipulation, c'est que la fenêtre texte ne défile pas des lignes et des lignes comme avec les deux "menus" que j'avais avant : [Convention topo]^C^C-unites;2;2;3;2;0,0;@0,1;O;pdmode;32;pdsize;.1;PLINEGEN;1;-couleur;ducalque;^C^Cfiledia;1;attdia;1;-typeligne;a;ducalque;;ecrangra;_ucs;_w;^C [Orientation du plan]^C^C_ucs;_z;\\_plan;courant;_ucs;_w;resol;r;\\;in; Et je ne clique plus que deux points, avant, c'était 4... J'aimerais le perfectionner pour poster une routine plus "propre"... Alors, si vous avez des remarques... Allez-y à coeur-joie ! ! (defun c:OrientSCU (); Variables Géomètre + Rotation de vue (setq Echo (getvar "cmdecho")) (setvar "cmdecho" 0) (command "-unites" "2" "2" "3" "2" "0,0" "@0,1" "O") (setvar "pdmode" 32) (setvar "pdsize" 0.1) (setvar "plinegen" 1) (command "-couleur" "ducalque") (setvar "filedia" 1) (setvar "attdia" 1) (command "-typeligne" "a" "ducalque" "") (command "_ucs" "_w") (setq p1 (getpoint "\nPoint de départ : ")) (setq VOrtho (getvar "orthomode")) (setvar "orthomode" 0) (setq p2 (getpoint p1 (strcat "\nDirection des X :"))) (princ "\nOrientation : ") (setvar "orthomode" VOrtho) (setvar "cmdecho" 1) (setvar "snapang" (angle p1 p2)) (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 1000)) (command "_ucs" "_z" p1 p3) (command "_plan" "courant") (command "_ucs" "_w") (command "resol" "r" p1 p2) (setvar "snapmode" 0) (setvar "cmdecho" Echo) ) Il est 1h du matin... Je n'ai pas relu à fond le code... Merci... Denis...

Salut Gile Merci encore pour tout ! ! ! Mais j'ai un gratuiciel ( ObjectDCL en anglais ) mais je ne fais que des .ODC... Tu connais le truc ?

Bonsoir à tous... J'ai fais une routine mais sans boite de dialogue (que je tente de gérer avec "ObjectDCL") je ne m'en sortirais jamais... Ma question est donc la suivante : Comment faire... Écrire le LiSP en entier avant la Boite de dialogue, faire le contraire ou les deux en même temps... J'aimerais aussi un petit lien vers quelques aides en DCL... Merci... Denis...