Matt666

Ouep

Dommage :) Je ne sais pas encore... J'ai envoyé une requête à BricsCAD pour qu'ils analysent le problème. Cela viendrait du "/" dans la commande "defun" (séparation entre arguments et variables locales). Peut être aussi du nombre de programmes dans un seul fichier. La version testée est la dernière en anglais... [Edité le 8/9/2008 par Matt666]

Faut faire gaffe au lisp, c'est pas encore au point... +1

+1 ;)

Salut ! Tu as plusieurs solution pour ça. Perso, j'utilise getenv et setenv. Ces fonctions écrivent les variables souhaitées dans le registre, et tu peux les rappeler quand tu veux. Par exemple : (defun c:test (/ eht) (if (not (getenv "hcotestxt")) (setenv "hcotestxt" "0.2") ) (if (not (setq eht (getdist (strcat "\nHauteur des textes [" (getenv "hcotestxt") "] : ")))) (setq eht (atof (getenv "hcotestxt"))) ) (setenv "hcotestxt" (rtos eht)) (princ eht) ) Après je n'utilise jamais getdist... plus getstring, car lorsque tu fais [entrée] pour avoir la valeur entre crochets ("hauteurd de textes: <0.2>"), getstring retourne "". C'est plus facile pour créer une condition ! (if (eq [variable] "") (setq [variable] "valeur entre crochets")) [Edité le 2/9/2008 par Matt666]

Le bac à sable est dispo aussi en version gratuite... Voui !

Salut ! Dans menu fichier, tu as "envoyer à Layout"... Par contre s'il est grisé c'est que soit : - C'est Su gratuit - Tu es arrivé à la fin de la période d'essai.

Salit bred. Avec un formatage bas niveau, tu dois pouvoir remettre les 30 jours d'essai à 0...

Impressionnant, comme d'habitude... Merci pour tous ces efforts de travail !

Eh ben, on rigole pas dans le coin !! Le droit... Acheter une idée. Un concept... Et se l'approprier. C'est bizarre, quand même, nan ? Bref. [Edité le 24/7/2008 par Matt666]

Merci gile ! ;)

C'est marrant ce truc ! 87 aussi. B+ J'ai pas eu ce genre de pb, Bred.

CHAMPION DU MONDE !!! :D :D :D :D A savoir aussi que l'écriture oblique est à interpréter au 2ème degré.... J'adore ce type :thumbup: :thumbup: :thumbup: . Regarde par là, tu verras que les gens de ce forum connaissent la programmation... On fait même des challenges. Si tu veux t'y coller, n'hésite pas ! :heartpump: Au :yltype: messieurs, ya du pain sur la planche !

Oh bah même pour les pseudo jeunes dino ... ;)

Ton problème c'est le "dialogue" entre ton DCL et ton LISP ? C'est normal c'est toujours dur au début :cool: Gile t'as mis sur une bonne voie en te donnant les commandes les plus utilisées en lisp+dcl ! 1- Respecter la casse des "key" dans ton lisp. 2- key = nom de ton control dans le DCL = pareil dans ton lisp. 3- Très important : traduction "Si l'utilisateur clique sur ce bouton, fais ceci" Exemple : (action_tile "Annuler" "(done_dialog 5)") (action_tile "Zoome" [b]"[/b](command \"zoom\" \"e\")[b]"[/b]) Attention toutes les actions sont entre parenthèses ! 4- 5- Insérer une liste définie, dans une popup_list Soit tu la fais directement dans le dcl :popup_list {label = "Justification: " ; [b]list = "Gauche\nCentre\nDroite"[/b] ; value = "0" ; key = "Incmtjust" ; } soit tu le fais dans le lisp (ce qui est un peu plus compliqué...) Dans le dcl on ne voit aucune liste apparaître : :popup_list {key = "calques";label="Calques";} Dans le lisp, il te faut créer une liste des calques existants (setq lst (cons (cdr (assoc 2 (setq a (tblnext "layer" T)))) lst)) (while (setq a (tblnext "layer")) (setq lst (cons (cdr (assoc 2 a)) lst)) ) (setq lst (acad_strlsort lst)) Ensuite intégrer la liste dans la popup_list (start_list "calques")(mapcar 'add_list lst)(end_list) Enfin lorsque tu te serviras de ta liste pour choisir un calque, ton résultat sera sous forme d'index de liste (0 ou 1 ou 2, etc). Pour retrouver le nom du calque choisi, il te faudra le retrouver à partir de son index ! (action_tile "calques" "(setq resultat (nth (atoi $value) lst))" ) 6- Tu l'auras ptet remarqué, mais $value retourne le résultat de l'action dans la boite de dialogue. Voilà, bon courage !!

+1 :thumbup: :thumbup: :thumbup: :thumbup:

Raaah oué ce serait vraiment po mal !! Bonne idée Bred !

:casstet: :casstet: :o :( En plus le lien était présent.... Quelle bille !

:laugh: Raaah c'était juste ça... Merci Maximilien !

Ah oui... C'est vrai ! :cool: Je parlais surtout d'un point de vue code brut ! ;) La beauté du code quoi. Mais le résultat l'est moins, c'est vrai !

(setq ent (ssget "_:S:E" '((0 . "MLINE")))) est quand même beaucoup plus joli que (and (setq ent (car (entsel)) (setq elst (entget ent)) (= (cdr (assoc 0 elst)) "MLINE") ) ... Soit dit en passant...

Bonjour ! Je viens de changer de thème des mes préférences. Très beau ! Sauf que le lien d'accès aux préférences n'est plus disponible avec ce thème... Qqn pourrait-il me donner le lien vers les préférences siouplé ? Merci !

Oui, elle l'est ! Et la dernière aussi, évidemment !

:P :) :D :thumbup: Pauvre Bred... Cela fait plusieurs fois que je te lis et que tu dis être déçu et avec l'impression d'être invisible... En même temps je lis tes réponses longtemps après que tu les ai écrites. Perso je n'ai pas l'impression que tu sois dans une autre dimension (une des 11 dimensions... Va savoir laquelle maintenant...) Il faudrait faire un test : Envoie une réponse dans ce post à une heure fixée (genre 10 h du matin mercredi 16 juillet) et on voit en combien de temps elle sera affichée. Qu'en penses-tu ? 10 h demain c'est possible ? [Edité le 15/7/2008 par Matt666]

Salut ! Autocad est un excellent logiciel (un peu cher mais bon). Il permet de dessiner un taaaas de trucs en 2D comme en 3D. Cependant, (je pèse mes mots) :) La 3D n'est pas du tout intuitif. J'eus essayé la 3D aussi, fut un temps, et j'ai sacrément ramé. Après j'ai pas essayé depuis la v2006... Donc bon. J'ai toujours défini AutoCAD comme un logiciel de 2d 1/2... Je rejoins x_all en disant qu'il existe des logiciels de conception 3D bien plus performants qu'AutoCad. Il en existe pas mal, payants (et très cher) ou bien gratuits (ah aha ah) Solidwords, Catia, Inventor, SketchUp, etc... Voilà. Personnellement (je repèse mes mots :cool: ) (defun c:23d () (if (setq q (strcase (getstring T "\nUtilité d'Autocad ? [2D / 3D / 2D et 3D]"))) (cond ((eq q "2D")(princ "\nOuéééé !!")) ((eq q "3D")(princ "\nNaaaan !!")) ((eq q "2D ET 3D")(princ "\nNaaaan !!")) ) ) (princ) ) :P :P :P A bientot. Matt.