quelqu’un peut me dire si c’est possible de faire fonctionner le LISP LXL sur Autocad LT 2026 ?

le lisp LXL contient un fichier DCL, LSP et XLS

Merci à vous 

J'ai cherché et essayé moi même de faire une boîte de dialogue qui interagit instantanément par le biais d'un curseur amovible, en vain.

Pour le moment j'utilise des lisp en boutons "+" et "-" pour monter et descendre ma coupe mais c'est fastidieux et terriblement lent…

Je sais que certains concurrents d'Autocad ont développés des programmes qui déplacent la coupe SANS QUITTER la boîte de dialogue et SANS LACHER le curseur amovible, donc en temps réel.

Dans ce style :

Peut-être impossible sur Autocad, mais je préfère tout de même demander 🙂 ça pourrait bien me sauver

Merci !

Est il possible d'avoir un exemple simple d'une boîte de dialogue avec une liste (list_box) avec choix multiple, ou l'on peu choisir plusieurs lignes, j'ai tout essayer avec ;list ou avec multiple_select mais rien ne fonctionne. 

En vous remerciant pour votre retour par avance. 

Je bloque sur le rappel d'une valeur dans une boite de dialogue :

1) Je reponds à la question : Genre quel age avez vous ? : 47

2) Je repose une question : Genre quel age avez vous ? : (j'aimerai qu'il me proprose 47) 

J'ai testé avec Get_tile et set_tile, mais je n'y arrive pas, quelqu'un peut-il m'aider sur ce coup la  ?

Merci par avance

J'ai un programme qui est long en terme d'exécution et je souhaiterais savoir si quelqu'un a déjà étudié/recherché la création d'une barre de progression (ou chargement).

Ce qu'il se passe c'est que j'ai un incrément qui augmente de 1 à chaque passage de la boucle donc j'avais commencé par chercher avec ceci, me permettant de remplir une image via un pourcentage (par rapport à un maximum définissant l'arrêt de la boucle) :

Code LISP pour remplir l'image à chaque appel de la fonction (Progress) avec TimeCount la variable servant de compteur et TimeOut étant la valeur maximum de la boucle.

(defun Progress ()

	(start_image "ProgBar")
	(fill_image 0 0 (/ (* TimeCount fill_X) TimeOut) fill_Y 92)
	(end_image)
	(set_tile "Error" (strcat (itoa TimeCount) " / " (itoa TimeOut)))

)

Code DCL correspondant à la BDL qui doit simplement afficher la barre au lancement du programme et disparaître lorsque la barre arrive à 100%.

MAJCALQUE_ProgressBar: dialog {
fixed_width = true ;
label = "Barre de progression - commande MAJCALQUE" ;
key = "ProgressBar" ;

: text {
	label = "La commande MAJCALQUE est en cours d'exécution, veuillez patienter SVP." ;
	alignment = centered ;
}
: image {
	key = "ProgBar" ;
	fixed_width = 100 ;
	height = 2 ;
}
: row {
	: errtile {
		key = "Error" ;
		label = "" ;
		width = 30 ;
		alignment = centered ;
	}
}
: row {
	: button {
		key = "OK" ;
		label = "OK" ;
	}
	: button {
		key = "Cancel" ;
		label = "Annuler" ;
		is_cancel = true ;
	}
}

}

Le problème de l'utilisation du langage DCL est qu'une boîte de dialogue possède obligatoirement un bouton OK Cancel (pas possible d'avoir une fenêtre simple sans boutons et uniquement une image). Or le but de la manoeuvre c'est que l'utilisateur n'est pas besoin d'appuyer sur un bouton pour lancer la barre de progression (je fais apparaître cette fenêtre normalement 5 fois au cours du programme).

Je me souviens avoir chercher également du côté de la barre de commande mais je n'ai plus les bout de codes que j'avais testé.

Donc si vous avez une idée de la manière dont on pourrait s'y prendre pour afficher une barre de progression sous autocad sans intervention de l'utilisateur, je vous en serait très reconnaissant.

pas utilisé objectDcl depuis ... 2006 ?

à l'époque beaucoup de bug m'avaient fait rebrousser chemin.

j'ai longtemps poursuivi la chimère d'utiliser VBA ou VB.net en liaison avec lisp,

puis j'ai évité au maximum d'avoir des interfaces DCL, ou alors stéréotypées et séquentielles.

Sauf que la j'aurai besoin d'un dialogue un peu plus abouti, et non modale.

Donc je me dis que ces 2 solutions peuvent devenir intéressantes.

Comme je pars de zéro, quelle solution choisir ?

merci d'avance,

gégé

Est-il possible d'ouvrir une boite de dialogue avec 2 choix possible avec radio_button et de valider avec "ok" et que cette boite reste ouverte pendant que l'on dessine, puis choisir l'autre choix et validé avec "ok" et continuer à dessiner avec cette nouvelle variable choisi ?

En clair comment faire une boite de dialogue qui peut être ouverte et dessiner en même temps sans la refermer ?

Merci pour vos réponse constructives.

Etant néophyte en LISP, j'ai besoin d'aide concernant la création d'une boîte de dialogue et de son fichier LISP qui récupère les valeurs entrées dans la boîte.

Pouvez-vous me donner un exemple "bateau" de dcl contenant une "list_box" (indiquant les couleurs par exemple) ainsi que son lisp qui permet d'afficher du texte en fonction de la couleur choisie dans la liste (si on choisit bleu on affiche ciel, rouge => coquelicot, etc ...).

Merci.

Je n'arrive pas à fermer ma boite de dialogue opendcl

Je l'ouvre avec (dcl-form-show aepf/aep_f)

et lorsque je fais (dcl-form-close aepf/aep_f), voici ce qu'y est retourné : (808.0 488.0).

Pour info, je souhaite fermer avec ok ou annuler (et j'ai bien la sélection par clique)

(defun c:aepf/aep_f/OK#OnClicked (/)
 
 (setq dia (dcl-Control-GetText aepf/aep_f/diaep))
 (dcl-form-close aepf/aep_f)
)
(defun c:aepf/aep_f/Annuler#OnClicked (/)
 (dcl-form-close aepf/aep_f)
)

Ca ne doit pas être grand chose mais ça m'énerve depuis un moment !!!

J'essaye de visualiser un fichier DWF dans une page HTML, pas de problème avec un navigateur !

Est ce que c'est possible avec OpenDCL ?

Car l'Activex ne semble pas fonctionne pour les DWF et pour l'HTML et DWF cela bug aussi !

Je suis partis de l'exemple HTML.odcl et HTML.lsp

Daniel OLIVES

J’ai crée un fichier autolisp pour afficher une boite de dialogue.

Le problème c'est que une foi j'exécute le programme ya un message d'erreur qui s'affiche ((Erreur: Quit / Exit Abort)) sachant que j'ai mis les 2 fichiers .DCL et .LSP à l'intérieur du chemin de recherche AutoCAD. S’il vous plait est-ce-que vous pouvez m’aider

Merci

La fonction suivante fonctionne bien.

(dcl_AxControl_Invoke pdf_formpdf_PDF1 "setZoom" 200.0)

Mais est il possible d'accèder à :

"setView" viewmode: Fit

Daniel OLIVES

(defun c:pdf ()

; Teste si Adobe PdF Reader est installé

(if (acrobat_is_installed)

(progn

(command "opendcl")

(dcl_project_load "pdf")

(dcl_form_show pdf_formpdf)

(dcl_AxControl_Put pdf_formpdf_PDF1 "src" "C:\\TPS\\Acad\\Routines\\Aide\\Ensemble_pour_prog.pdf")

(dcl_AxControl_Invoke pdf_formpdf_PDF1 "setZoom" 200.0)

)

)

(princ)

); pdf

(defun acrobat_is_installed (/ strCLSID strFile)

(and (vl-registry-descendents "HKEY_CLASSES_ROOT\\AcroPDF.PDF")

(setq strCLSID (vl-registry-read "HKEY_CLASSES_ROOT\\AcroPDF.PDF\\CLSID"))

(setq strFile (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\CLSID\\" strCLSID "\\InprocServer32")))

(findfile strFile))

); acrobat_is_installed

J'ai découvert il y peut ce que OpenDCl était capable de faire. Mais une question primordiale avant tout développement sur le sujet !

Sans installation de : "OpenDCL.Studio.FRA.6.0.2.5.msi" est il possible de diffuser des routines lisp acompagnées de leur fichier odcl ?

Si oui comment procède t'on ?

Merci d'avance !

Daniel OLIVES

DTU_EP permet le calcul des sections des moignons EP ainsi que les chutes et collecteur

Votre fichier sera accessible à l'adresse suivante: http://dl.free.fr/eyH6x7HiE

Copiez les 3 fichiers dans

OpenDCL Studio\FRA\Samples

Chargez DTUEPV3.lsp et commande dtu pour le lancement

Voir la notice

Il faut en plus OpenDCL studio (la version gratuite). http://sourceforge.net/projects/opendcl/

Si vous avez des questions ou des améliorations.......

je souhaite visualisé un dwg dans une boite objectdcl.

pour cela j'ai utilisé la fonction DwgPreview.

hors, bien que mon fichier soit chargé comme je le veut, (le zoom est convenablement reglé) et que je distingue l'image. je me suis retrouvé confronté a un problème. l'image est completemen pixelisé. (iliisible)

comment ajusté la définition de l’aperçu? jusqu’à présent affiché des vignette il n'y avais donc pas de problème.

maintenant je souhaite affiché sur une surface d'un papier A4.

ma question est donc peut on réglé cette définition d'image?

Et si ce n'est pas possible connaissez vous une autre fonction object dcl qui permettre de faire cela?

j'avais pu voir dans easydwg une prévisualisation performante d'un dwg. si quelqu'un a des info sur le procédé utilisé je suis preneur.

merci d'avance

harksin

je suis actuellement en train d'essayer de créer une boite dcl, mais je rencontre quelques dificultés:

j'aimerai savoir s'il existe une commande (ou autre) qui me permettrait d'avoir en temps réel une valeur qui varierait en fonction de la valeur d'une liste déroulante qui serait dans cette meme boite dcl.

Pour m'expliquer:

j'ai créé une boite dcl avec 4 listes déroulantes, elles servent a définir le nombre d'éléments que je veux insérer contre une ligne que j'aurait mesurer avant.

mais pour savoir combien j'en veux il me faudrait déja un "encart" qui affichrait la longueur de la ligne

et un deuxieme "encart" qui m'indiquerait la place que qui reste contre la ligne.

donc ce deuxième "encart" se metrait a jour à chaque fois que je changerais les valeurs des listes déroulantes.

Je joins le lisp et le dcl de ce que j'ai fait:

Le Lisp:

(defun c:bdcl_140611 (/ liste n nbre)

 (setq liste_rh (list "0" "1"))
 (setq liste_b3m (list "0" "1" "2" "3" "4" "5" "6" ))
 (setq liste_b2m (list "0" "1" "2" "3" "4" "5" "6"))
 (setq liste_sh (list "0" "1"))

 (setq dcl_id (load_dialog "BDCL_140611.dcl"))

 (if (not (new_dialog "bdcl_140611" dcl_id))

   (exit)

 )

 (start_list "nbr_rh")

 (mapcar 'add_list liste_rh)

 (end_list)

 (action_tile

   "accept"

   "(setq nbre_rh (atof (nth (atoi (get_tile \"nbr_rh\")) liste_rh)))

   (done_dialog))"

 )
 

 (start_list "nbr_b3m")

 (mapcar 'add_list liste_b3m)

 (end_list)

 (action_tile

   "accept"

   "(setq nbre_b3m (atof (nth (atoi (get_tile \"nbr_b3m\")) liste_b3m)))

   (done_dialog))"

 )
 
 
 (start_list "nbr_b2m")

 (mapcar 'add_list liste_b2m)

 (end_list)

 (action_tile

   "accept"

   "(setq nbre_b2m (atof (nth (atoi (get_tile \"nbr_b2m\")) liste_2m)))

   (done_dialog))"

 )
 
 
 (start_list "nbr_sh")

 (mapcar 'add_list liste_sh)

 (end_list)

 
 (action_tile

   "accept"

   "(setq nbre_sh (atof (nth (atoi (get_tile \"nbr_sh\")) liste_sh)))

   (done_dialog))"

 )

 (start_dialog)

 (unload_dialog dcl_id)

 (princ nbre_rh)
 (princ nbre_b3m)
 (princ nbre_b2m)
 (princ nbre_sh)

 (princ)

) 

et le DCL/

bdcl_140611:dialog{

 label="Vue en élévation";

:boxed_row{

:boxed_column{
   :boxed_column{
label="Hauteur de l'ouvrage";
   
   }
   :boxed_column{
label="Reste à coffrer";

   }
   }

:boxed_column{
  label="Choix des éléments";

 :boxed_column{

   label="Ré-hausse";

   :popup_list{

     label="Nombre :";

     key="nbr_rh";

     edit_width=10;

   }

 }

 :boxed_column{

   label="Banche de 3m";

   :popup_list{

     label="Nombre :";

     key="nbr_b3m";

     edit_width=10;

   }

 }

 
 :boxed_column{

   label="Banches de 2m";

   :popup_list{

     label="Nombre :";

     key="nbr_b2m";

     edit_width=10;

   }

 }

 
 :boxed_column{

   label="Sous-hausse";

   :popup_list{

     label="Nombre :";

     key="nbr_sh";

     edit_width=10;

   }

 }
 
 }
 
 }

 ok_cancel;

} 

Merci pour votre aide

je souhaite mettre en place un barre de progression dans ma boite objectdcl.

j'aurais donc besoin des base qui me permètrons d'alimenté et de contrôler cet outil.

pour le contexte j'ai un programme contrôleur qui est une énorme boucle est a chaque fois que je reviens au début je réduit la longueur de la boucle de 1

(pour qu'elle ne soit pas infini)

je voudrai donc maintenant dire

il y avait 15 boucle prévu au départ

il m'en reste 7 a faire

j'ai donc accomplis 50% du travail

(jusque la sa va)

et exporté ce 50% dans la barre de progression

car sachant que un tours met entre 15 et 45seconde l'utilisateur risquerai de s'impatienter...

merci d'avance de vos conseil

Harksin

J’ai crée un fichier autolisp pour afficher une boite de dialogue.

Le problème c'est que une foi j'exécute le programme ya un message d'erreur qui s'affiche ((Erreur: Quit / Exit Abort)) sachant que j'ai mis les 2 fichiers .DCL et .LSP à l'intérieur du chemin de recherche AutoCAD. S’il vous plait est-ce-que vous pouvez m’aider

Merci

Ma question est je pense toute simple.

Peut-on sans passer par une boite de dialogue faite avec OpenDcl paramétrer la taille d'un edit_box en DCL ?

Je voudrais agrandir la taille d'une edit_box sur 2 ou 3 lignes par exemple.

J'ai bien essayé les termes heigth ou fixed_heigth = true mais rien n'y fait,

j'ai toujours mon edit_box dans mon dcl qui apparait sur une ligne.

Je sais que l'on peut modifier le nombre de caractères entré par edit_width donc sur la largeur mais sur la hauteur ???

Merci par avance de vos réponses.

mon problème du moment est le suivant:

j'ai une combobox nommé "materiaux" dont je renseigne la liste de la maniere suivante:

(Setq X_mat
  	   (Odcl_ComboBox_AddList essai1_DclForm2_Materiaux
	 (list
	   "nouveau" [as String]
	   "BBTM" [as String].
	   "GNT 0/20" [as String]
	   "GNT 0/31.5" [as String]



	  )
	 )
 )

jusque ici tout vas bien

cependant maintenant je voudrai ajouté des element a cette liste

je definie une variable liste_mat_vo a l'aquelle j'ajoute autre_mat

 
(setq autre_mat "grave_bitume")
(setq Liste_mat _vo (cons list_mat_vo autre_mat))

bon et la ou le bas blesse c'est ici, je ne sais pas du tout commen definir une lite object dcl a partir d'une liste lisp...

exemple de test infructueux

(Setq X_mat
  	   (Odcl_ComboBox_AddList essai1_DclForm2_Materiaux
	 (list
	 

                 list_mat_vo


	  )
	 )
 )

si quelqu'un a une petite idée je suis preneur

merci d'avance

harksin

mon problème du moment est le suivant:

j'ai une combobox nommé "materiaux" dont je renseigne la liste de la maniere suivante:

(Setq X_mat
  	   (Odcl_ComboBox_AddList essai1_DclForm2_Materiaux
	 (list
	   "nouveau" [as String]
	   "BBTM" [as String].
	   "GNT 0/20" [as String]
	   "GNT 0/31.5" [as String]



	  )
	 )
 )

jusque ici tout vas bien

cependant maintenant je voudrai ajouté des element a cette liste

je definie une variable liste_mat_vo a l'aquelle j'ajoute autre_mat

 
(setq autre_mat "grave_bitume")
(setq Liste_mat _vo (cons list_mat_vo autre_mat))

bon et la ou le bas blesse c'est ici, je ne sais pas du tout commen definir une lite object dcl a partir d'une liste lisp...

exemple de test infructueux

(Setq X_mat
  	   (Odcl_ComboBox_AddList essai1_DclForm2_Materiaux
	 (list
	 

                 list_mat_vo


	  )
	 )
 )

si quelqu'un a une petite idée je suis preneur

merci d'avance

harksin

Il est vrai que cet outil manque réellement aux fonctions Lisp d'Autocad.

De plus, avec ObjectDCL ou OpenDCL, c'est vraiment la galère pour comprendre et faire intéragir un lisp avec une boite de dialogue du type .odcl ou .odc.

Rien qu'avec un bouton text, pour activer une commande lisp définie par (defun c: ...), j'ai vraiment la galère.

J'ai compris le principe de

(dcl_Project_Load "C:/....../M_DAO.ODCL" T)
(dcl_Form_Show m_dao_1) 

pour charger une feuille dans Autocad.

Dans ma boite de dialgoue OpenDCL, j'ai crée un Tab Strip avec plusieurs onglets, j'ai crée un Text Button par dessus. Si j'insére le code ci-dessous dans la console Autolisp, la fenêtre s'affiche mais sans de bouton OK ou annuler en bas, et sans le TextButton.

Quelqu'un aurait il une idée ? ou du moins un exemple ?

Le mieux pour moi serait de récupérer les infos rentrés par l'utilisateur de chaque tab sous forme de liste. Mais encore faut il savoir le faire et pour l'instant je bugge....

Merci par avance de votre aide.

John

http://www.objectdcl.com/en/download.html

J'ai un lisp et une boite de dialogue que j'ai fait avec OpenDCL car les boites de dialogue sont assez limites en pur lisp. Je n'arrive pas à lier les deux, le lisp que j'ai fait et les listes ou combo box de ma boite de dialogue.

Quelqu'un aurait il une idée ? pour avancer surtout que le format OpenDcl est illisible, il est compilé.

Merci par avance de votre aide.

John.

j'ai un probleme et je ne sais pas d'où il vient, en fait quand j'execute (command "OPENDCL")

sous autocad 2010

jai comme retour OPENDCL

mais quand je l'execute sous autocad map 2011 en retour j'ai

OPENDCL Commande inconnue "OPENDCL". Appuyez sur F1 pour obtenir de l'aide.

donc la lib de opendcl ne se charge pas et donc mes commande dcl ne sont pas reconnues

Est ce qu'il y a une commande differente entre les version 2010 et 2011 ou entre autocad et map ?

merci