Aller au contenu

Messages recommandés

Posté(e)

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Si je peux aider (2 ans d'experience ODCL), publie ton code mais aussi ton ODC, pour cela, il faut uploader quelque part, on a déjà parlé de ce genre de possibilité dans le forum Cadxp, comment ca marche.

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Posté(e)

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Salut

C'est une simple boite pour saisir du texte ?

Dans ce cas, utilise cette routine

 

(defun InputBox (Titre Message Defaut / *acad* users1 valeur)
 (setq *acad* (vlax-get-acad-object) users1 (getvar "users1"))
 (acad-push-dbmod)
 (vla-eval *acad* (strcat "ThisDrawing.SetVariable \"USERS1\"," "InputBox (\"" Message "\", \"" Titre "\", \"" Defaut "\")"))
 (setq valeur (getvar "users1"))
 (setvar "users1" users1)
 (acad-pop-dbmod)
 valeur
)

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Posté(e)

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...

 

 

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)
Je sais que tu est callé en Vlisp et, si mes souvenirs sons bons, tu connais le VBA...

 

Mauvaise pioche. Je n'y connais rien du tout (mais alors rien de rien).

 

En revanche, j'interviens quand les gens sont perdus avec les noms de commande en Anglais, par exemple.

 

Moi je pense à créer un petit tuto pour démarrer avec ODCL, et ton exemple semble un bon point de départ. Je ferai peut-être ca ce WE !

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Posté(e)

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Je ne connais rien en VBA non plus, mais il me semble qu'on utilise les variables système USERSn, USERIn et USERRn pour passer des données d'un langage à l'autre.

 

(setvar "USERR1" (vlax-ldata-get "Phalene" "AngSCU")) , pour attribuer la valeur à la variable, pour la récupérer en VBA, je te laisse faire.

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Posté(e)

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

Je n'ai pas dit que les USER* et les Xdata c'est pareil, je donne juste un moyen de faire passer une valeur d'un langage de programmation à un autre.

Il y a peut-être un moyen de récupérer les Xdata en VBA, je ne le connais pas.

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Posté(e)

Je ne connais pas la syntaxe exacte en vba mais je pense que soit doit être du style

set Ma_var ThisDrawing.GetVariable "USERS1"

Et comme le dit (gile), ne confond pas les deux. Tu dois faire avant le lire la variable en vba, la retranscrire en lisp --> ex : (setvar "USERS1" "MON'TEXTE")

Tu as 3 types de USER

le I --> Integer (entier)

le R --> Real (réel)

le S --> String (texte)

et par type, tu as 5 variables possibles, ce qui fait qu'un USERS1 veux dire que c'est la première variable de type string pour permettre le lecture en vba

 

ps : Pour ce qui est du vlisp, je pense que (gile) et bien d'autres t'on aussi aidé à progresser

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Posté(e)
ps : Pour ce qui est du vlisp, je pense que (gile) et bien d'autres t'on aussi aidé à progresser
Tu m'étonne ! !

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)
Moi je pense à créer un petit tuto pour démarrer avec ODCL, et ton exemple semble un bon point de départ. Je ferai peut-être ca ce WE !

 

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

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.

 

Ca y est, le dvb est fait...

-vbarun;Proprio;

 

Je le poste comment ?

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)

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...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Posté(e)
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.

.

 

Nous ferons un autre sujet. Je n'ai rien à voir ici, la conversation tourne trop autour du VBA.

 

Si j'ai le temps, je prépare tout ça ce WE.

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Posté(e)

Effectivement, je pensas aussi au "hors sujet"...

 

Aucun problème...

 

Je reste à ta disposition...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité