harksin

Bonjour je viens de lire le post du projet infodwg qui est fort interressant, mais quelque chose m'a interpeller... comment fait on pour crée un .exe à partir d'un objetdcl et d'un lisp? je suis actuellement entrain de crée un projet pour mon entreprise, et si je pouvais faire un petit installateur de maniéré a ce que le quidam n'ai pas a mètre les main dans le cambouis sa serai vraiment parfait. et par ailleurs fournir un code compiler permettrais le produit que je doit a l'entreprise, des source qui m'appartienne. Toute les information serons les bien venus, étant donné mon ignorence bonne journée Harksin

Re bonsoir bon en fait, c'était le on killfocus qui ne passai pas bien du coup j'ai associer la récupération de mes variable au bouton validé et sa marche très bien. Par contre j'aurai besoin d'un conseil, je souhaite faire une petite boite de dialogue qui contiene une celecteur de calque. soit: -une combobox contenant la liste des calque -une "je sais pas encore quoi" pour permetre l'affichage du calque courant. a tu déja rencontrer ce cas? peut tu me conseiller une orientation ou un outil? merci d'avance Harksin

hello bon j'ai revu mes base et bien écouté tes conseil et j'ai réussit a faire ce que je souhaiter ! merci beaucoup! ceci-dit comme plus on en fait plus on veut en faire j'ai continuer mon bout de chemin tout se passer bien jusqu'à ce que je tombe sur une erreur saugrenu... (but de l'opération récupérer le texte d'une cellule object dcl texte standard) voila a priori les deux exemple ci dessou marche... puisque je réussit a récupérer les donné de ma cellule... sauf que voila, peut importe la méthode, je ne récupère jamais je dernier caractère de la cellule voirie==> voiri a tu une idée de se qui peut causer cela? j'avoue être a cours de cartouche.... (defun c:DEF_VO_Voie_Name_OnUpdate (sText /) (Setq vo_name (Odcl_Control_GetText essai1_DEF_VO_Voie_Name)) ) (defun c:DEF_VO_voie_largeur_Onkillfocus () (Setq vo_la (Odcl_Control_GetText essai1_DEF_VO_voie_largeur)) )

Hello bon, je suis arriver a alimenter ma liste ce qui n'est déjà pas si mal! la variable module_name récupère un texte dans ma combobox, ce texte est le nom d'un lisp qui doit être lancer . c'est pour cela que je lui accole "(c:"...")" affin de faire un (eval (read ma variable)). esse une mauvaise manière de faire? y a il un moyen plus trivial d'arriver au mémé résultat? ou bien une autre manière de penser le problème? Ceci étant dit je me trouve dans l'impossibilité de récupère le texte de ma combobox. j'ai appliqué un event onselchange comme tu me l'a conseiller. ma combobox est de type 2 (juste déroulante) mais lorsque je sélectionne un des éléments de la liste la boite me renvoie " erreur: nombre d'arguments trop important" de quoi cela peut il venir a ton avis?? edit : ce qui est surprenant c'est que quand je lance (commande de suivie et animation dans l'editeur lisp il m'arrete la dessu : (defun c:INIT_DEF_OnInitialize () (odcl_ComboBox_AddList essai1_INIT_DEF_Input_Selector (list "Creation_voirie" "Creation_bordure" "Creation_trottoir")) ) hors le on initialise est finie est a fonctioner vue que j'ai la liste qui apparai... alors pourquoi il appelle cette fonction? Harksin [Edité le 24/2/2011 par harksin]

merci pour le temps que tu prend avec moi, je suis dans mes tout début avec object dcl et a peine plus en Lisp... alors je tatone, et j'ai grand besoin de structurer ma pensé... mais avec de la motivation on déplace des montagne non? J'ai vue parler de ce fameux "oninitialize" mais je n'en comprend pas la porté. que doit il contenir? et que peut il contenir? j'ai compris d'ou venez les erreur, en fait le lisp associer dans l'editeur ne se met pas a jour automatiquement. pour le onkillfocus c'était bien une erreur de frappe. mais sa ne marche pas mieux. voici la nouvelle mouture. (defun c:launcher() (Odcl_LoadProject "essai1.odc" T) (defun c:essai1_INIT_DEF_OnInitialize ( /) (odcl_ComboBox_AddList essai1_INIT_DEF_Input_Selector (list "Creation_voirie" "Creation_bordure" "Creation_bordure")) ) (defun c:INIT_DEF_Input_Selector_OnKillFocus() (Setq Module_Name (Odcl_ComboBox_GetTBText essai1_INIT_DEF_Input_Selector)) ) (defun c:INIT_DEF_Gauche_OnClicked () (setq Track_direction 0) ) (defun c:INIT_DEF_Droite_OnClicked () (setq Track_direction 1) ) (defun c:INIT_DEF_wake_up_input_OnClicked () (setq Module_Name (strcat "(c:" Module_Name")")) (eval (read Module_Name )) ) (Odcl_Form_Show essai1_INIT_DEF) )

je vien de remarqué un truc dans mon editeur objectdcl, a priori il faudrait que je résolve ces erreur, mais je n'arrive pas a comprendre leur sens. aurais tu une piste? par ailleurs j'ai réussi a afficher les élément voulu dans la combobox, mais uniquement en renseignant la cellule "liste" dans l'éditeur objectdcl. en fait pour le moment je n'ai réussi aucun transfert d'information entre mon lisp et mon odc. je suis simplement capable de l'afficher. Event handler c:DclForm1_wake_up_input_OnClicked is not implemented. 2011/02/21 15:18:00 ERROR(Project Analyze) Declared in essai1::INIT_DEF::TextButton1. 2011/02/21 15:18:00 ERROR(Project Analyze) Event handler c:INIT_DEF_Input_Selector_OnKillFocus is not implemented. 2011/02/21 15:18:00 ERROR(Project Analyze) Declared in essai1::INIT_DEF::ComboBox1. 2011/02/21 15:18:00 ERROR(Project Analyze) Event handler c:DclForm1_gauche_OnClicked is not implemented. 2011/02/21 15:18:00 ERROR(Project Analyze) Declared in essai1::INIT_DEF::Option1. 2011/02/21 15:18:00 ERROR(Project Analyze) Event handler c:DclForm1_Droite_OnClicked is not implemented. 2011/02/21 15:18:00 ERROR(Project Analyze) Declared in essai1::INIT_DEF::Option2. 2011/02/21 15:18:00 ERROR(Project Analyze) Event handler c:DclForm2_Voie_Name_OnUpdate is not implemented. 2011/02/21 15:18:00 ERROR(Project Analyze) Declared in essai1::DEF_VO::TextBox1. 2011/02/21 15:18:00 ERROR(Project Analyze) Event handler c:DclForm2_addmat_OnClicked is not implemented. 2011/02/21 15:18:00 ERROR(Project Analyze) Declared in essai1::DEF_VO::TextButton2. 2011/02/21 15:18:00 ERROR(Project Analyze) Event handler c:DEF_VO_epsseur_OnKillFocus is not implemented. 2011/02/21 15:18:00 ERROR(Project Analyze) Declared in essai1::DEF_VO::TextBox1. 2011/02/21 15:18:00 ERROR(Project Analyze) Event handler c:DEF_VO_TextBox1_OnKillFocus is not implemented. 2011/02/21 15:18:00 ERROR(Project Analyze) Declared in essai1::DEF_VO::TextBox1. 2011/02/21 15:18:00 INFO(Project Analyze) Analysis found errors. 2011/02/21 15:18:00 INFO(Project Analyze) ----------------------------------------------------- pour finir, je viens de tenter de récupéré l'élément actif de la cellule combbox mais avec l'essai1 je n'obtiens rein dans module_name , est avec l'essai 2 j'obtiens la valeur 1 , ce qui daprés ce que je comprend est louche car c'est le deuxième élément de la liste. A mon avis je suis passé a coté de quelque chose de fondamental, mais j'ignore quoi. (defun c:INIT_DEF_Input_Selector_OnKillFocus() ;;essai1;;(Setq Module_Name (Odcl_ComboBox_GetTBText essai1_INIT_DEF_Input_Selector)) ;;;;essai2;;;(Setq Module_name (Odcl_ComboBox_GetCurSel essai1_INIT_DEF_Input_Selector)) )

voici le code dans sa globalité, l'idée étant de crée un lanceur de boite object dcl. par exemple dans la combobox "input_Selector" on choisirai création_voirie, ce qui permetrai de lancé une boite de dialogue qui recupera les caracteristique voulu par l'utilisateur. mais en l'état la liste déroulante ne comprend aucun des element souaiter. hormis un "combobox1" hérité depuis ou? je ne sais pas. edit : j'ai réglé mon avatar sur 000.gif dans mon compte, pourtant c'est toujour le tien qui apparait. sais tu de quoi ca peut venir? (defun c:launcher() (Odcl_LoadProject "essai1.odc" T) (setq list_module (Odcl_ComboBox_AddList essai1_INIT_DEF_Input_Selector (list "Creation_voirie" "Creation_bordure" "Creation_bordure" ) ) ) (defun c:INIT_DEF_Input_Selector_KillFocus () (Setq Module_Name (Odcl_ComboBox_GetTBText essai1_INIT_DEF_Input_Selector)) ) (defun c:INIT_DEF_Gauche_OnClicked () (setq Track_direction 0) ) (defun c:INIT_DEF_Droite_OnClicked () (setq Track_direction 1) ) (defun c:INIT_DEF_wake_up_input_OnClicked () (setq Module_Name (strcat "(c:" Module_Name ")")) (eval (read Module_Name )) ) (Odcl_Form_Show essai1_INIT_DEF) ) [Edité le 21/2/2011 par harksin]

alors pour l'avatar je ne sais pas du tout ou sa se regle... mais si tu m'explique je le change sans probleme. je voi d'ailleur pas comment c'est arriver mais bon.. qu'est ce que tu entend par oublier ton code complet??

Bon en fait je me revelle incappable de faire un addlist tout bette... la formule prescrite dans l'aide intelligente ne fonctionne pas. (Odcl_ComboBox_AddList essai1_INIT_DEF_Input_Selector (list "Creation_voirie" "Creation_bordure" "Creation_trottoir" ) ) y a il des reglage que j'aurai oublier dans l'editeur de boite? ou bien esse le nom de mes variable qui perd le script? pour le moment je definie ma fonction, puis ma liste comme si dessu, puis les fonction de chaque bouton, et enfin j'affiche la boite. y a il une erreur de procédure dans l'ordre? pour revenir a mon sujet initial ta proposition a l'air de tourner , je suis tombé sur un srcip qui utilisait cette metode. bonne soirer a tous harksin note: mon projet s'appelle "essai1" ma boite "INIT_DEF" et ma combobox "input_selector" [Edité le 17/2/2011 par harksin]

bonjour 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

bonjour 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

c'est efectivement la fonction read qui me fesai défault dans ma pensé merci beaucoup. ceci dit en passant et qui n'a rien a voir, comment supprime on un post? j'ai malheureusement fait deux double poste, et la fonction supprimer a partir du menus édit ne donne pas de résultat...

Bonjour, je viens vers vous après de nombreuse recherche infructueuse. ma question est toute bette mais me torture depuis quelques jours... je souhaite lancer une nouvelle fonction lisp dont le nom est contenue dans une variable exemple: je veut lancer la fonction definie par (defun c:beton() .....) (setq nomdumodule "beton") à terme il sera récupéré depuis une combosbox de objectdcl je souhaite maintenant lancer beton. innocemment j'ai tenter de lancer nomdumodule mais sans résultat j'ai aussi tenter un (car nomdumodule) sans effet aucun. j'avoue ne pas savoir comment prendre ce problème qui doit pourtant etre basique... Une piste de votre par me permettrais sans doute de me débloquer Harksin

Merci , j'essai sa dès ce soir

Bonjour Je souhaiterai pouvoir crée une sélection d'objet . caractéristique de la sélection : -uniquement des polyligne -appartenant au calque COMMENCENT par "MAT_" jusque la pour mes selection j'utilisai une formulation du genre :* " (setq listelement (ssget "X" (list (cons 0 "Lwpolyline")(cons 8 TyRES)))) il serai possible de faire une boucle a partir d'une liste de mes nom de calque en énumérant chaque calque puis en ajoutant a ma "listelement" le objet polyligne que le calque contiens si il répond a la condition de nom. Mais ce serai un procédure lourde et archaïque. et le nombre d'opération a effectuer serai astronomique dans mon cas. J'ai penser a faire un (cons 8 MAT_* ) mais sans resultat. la fonction "filter" pourrai peut être répondre a mes exigence , mais je n'arrive pas a la controler en ligne de commande je suis preneur de toute les pistes de travail en m'excusant par avance pour mon orthographe déplorable Harksin [Edité le 1/2/2011 par harksin]