Patrick_35

En passant par la commande convertpstyles @+

Si c'était si simple, ce serait le rêve, mais non, c'est la ligne de commande qui à disparu, et je peux voir ce que je fais avec le touche F2 uniquement.Dans une version pleine, il est possible de définir le nombre de ligne (par défaut à 3), mais pas sur une LT97 :( @+

Je ne comprends pas ce que tu cherche à faire exactement. Plusieurs images et quand tu clique sur l’une d’elles, tu fait apparaître dans ta list_box le nom du cliché ou en sélectionnant dans cette list_box, tu fais apparaître le cliché. Dans un cas comme dans l’autre, il faut gérer deux listes. Tu peux faire par exemple (action_tile "dessin" "(selection_symbole $value)") $value étant retourné comme une valeur à l’emplacement de ta sélection (ne pas oublier dans ton dcl de préciser le multiple_select en false). Si tu clique dans ta list_box à la neuvième position, la valeur retourné sera 8, puis tu fais afficher l’image correspondant à cette position @+

On s'en fout, ce qu'il faut, c'est une distance, donc si snapang reste à 0, je ne vois pas en quoi ca change pour faire le rectangle @+

Tu doit définir dans ton dcl une image, par exemple : image {key = "view"; width = 15; height = 5;} Dans ton lisp, tu fais par exemple (start_image "view") (fill_image 0 0 x y 0) (slide_image 0 0 x y "image.sld") (end_image) @+

Ce n'est pas la question des fonctions que tu ne connais pas, mais de la variable snapang que tu mets dans ton lisp à 45° @+

Ah Didier ( Donc Il Doit Infiniment En Rire, hou la la, c'est bientôt le week-end), pense à ce pauvre qui pose une question, tombe sur un poisson d'avril et je ne suis pas certain qu'il comprenne nos réponses @+

Bravo Chchat, mais je ne comprends pas pourquoi tu as gardé ton angle à 45° Voici en un peu plus court pour l'exercice 3 C'est en coordonnées relatives et avec seulement 3 variables, c'est juste pour changer par rapport à l'exercice 2 (setq pt1 (getpoint "\nCoin bas gauche du carré : ")) (setq pt2 (getcorner "\nCoin haut droit du carré : " pt1)) (setq x (distance (list (car pt1) 0.0) (list (car pt2) 0.0))) ; calculer la longueur d'un coté (command "_pline" pt1 (strcat "@" (rtos x) ",0")(strcat "@0," (rtos x))(strcat "@-" (rtos x) ",0") "c") @+

Didier, n'oublie pas les glaçons et les cahuètes ;) Mais plus sérieusement, la fonction autolisp sadd crée un jeu de sélection @+

Je connais bien un moyen de faire une purge radicale du dessin, mais c'est à utiliser avec précaution Tu rends actif tous les calques dont tu as besoin, puis tu fais un wbloc de ton dessin (pour la sélection, tu peux faire tout ou _all) @+

Et encore une précision, plutôt que de faire plein de cond sur un Oui, oui, OUI, etc, il y a la fonction strcase qui transforme le tout en majuscule @+

Il y à aussi le Bug connu du SEQEND qui reste sur le calque que l'on veux supprimer et qui reste impossible à changer (même par prog). @+

Il est vrai que je n’avais pas pensé à la sélection rapide, mais si on veux ajouter des ou, and, not, etc, rien de mieux que notre bon vieux filtre Va voir le lien que je t'ai déjà indiqué, il y a aussi une explication de la part de Tramber sur attextr @+

J'avais préparé un post assassin pour défendre Cadxp avec même le reprise du refrain de la marseillaise. J'avais un doute à cause du 1er Avril, et je trouve la plaisanterie un peu légère sur ce sujet, mais sans rancune @+

Il est quand même possible de passer par un filtre pour connaître le quantitatif d'un bloc dans le dessin aussi bien pour une LT que pour une version pleine Tu peux aller voir cette discution qui pourrai un peu mieux te renseigner @+

C'est la variable SDI @+

Bravo Didier, faire une boucle dans une commande, voilà une manière de faire auquel je n'avais jamais pensé @+

Je vois, parfois un princ bien placé suffit et évite que les commandes s'enchaînent par exemple (setq total 5 n 0) (princ "\nCeci est un test") (while (< n total) [color=red] (if (= n 0) (princ))[/color] (setq n (1+ n)) (alert (strcat "Boucle indice " (itoa n))) ) (princ) Si tu enlève le princ , la boucle s'exécute sans avoir affiché dans ma ligne de commande "Ceci est un test" @+

defun ou encore setq sont des commandes autolisp alors que vl-..., vlr-... ou vla-... sont des commande visual lisp @+

Je ne vois pas trop l'intêret de ton lisp, la commande _pline suffit voici une méthode un peu plus courte (setq jeu_tot (ssadd)) (setq pt00A (getpoint "\nPoint de départ ? ")) (while (setq pt00D (getpoint "\nPoint suivant : ")) (command "_line" pt00A pt00D "") (setq pt00A pt00D) (ssadd (entlast) jeu_tot) ) (command "_pedit" (entlast) "O" "j" jeu_tot "" "") @+

L'encyclopédie est juste là pour regrouper des termes du métier il me semble par exemple, des murs banchés, de l'ourdi, des tétines, une aiguille, des crapauds, un kutch (je ne suis pas sûre de l'orthographe), etc... @+

Merci Tramber, la lumière fût @+

Eh me... Patrick, help, une aide serait sympa pour ceux qui voudrait intégrer un peu de code dans leur post Sitehttp://aidacad.com/fr/autolisp.htm

Raté je la refais Site

Je rejoins Didier sur ce point de vue, ça fait un sacré boulot Ta as ce [url]http://aidacad.com/fr/autolisp.htm[/url]Site qui te donne les principales fonctions avec leurs explications @+