Bred

Salut, Je cherche à faire un "retour état initial" dans un code, mais à part (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) .....................le prog.................... (command "_undo" "_back") Je ne vois pas comment faire.... merci !

Salut, oui.... l'Editeur Visual lisp. Outils -AutoLisp - Editeur Visual Lisp ou _vlide en commande.

Bonjours à toutes et tous. Un petit conseil en passant : utilisez l'éditeur visual lisp ! Celui-ci vous permettra trés simplement de - vérifier vos codes en ne chargeant qu'une "phrase" par exemple, - sélectionnert une variable vous pouvez voir trés rapidement ce quel contient, - vérifier si les parenthèses se fermes en double-cliquant après l'une d'elle, - faire appel à l'aide du developpeur directement en selectionnant une commande... Je vous laisse le découvrir, il est assez simple d'utilisation... N'hésitez pas à demander si besoin !

Salut, :casstet: hein ?... C'est vendredi, je dois avoir la tête en confiture.... (surtout après le challenge12 ou je ne crois pas t'avoir vu....) ;)

Salut, Pour "argumenter" un fichier lisp, il suffit de commencer par un point virgule, tous ce qu'il y aura après (sur la même ligne) ne sera pas pris en compte par le programme. utilise l'éditeur Autocad, c'est parlant.

Merci ! ... mais c'ets justement pour éviter de le faire en autolisp....

Salut, Pour savoir si je suis le seul : J'ai des erreurs fatal trés souvent lorque je réalise des copies/déplacer de "l'interieur" d'une fenêtre de présentation à un autre.... et vous ? (Pour info je suis en 3D)

Tiens.... Une discussion résolu. Sur le thème de la résolution de discussion.... Attention à la boucle sans fin !!! ;)

:mad: :casstet: :exclam: ... Ben tu viens encore de me gacher la journée !.... Et dire que c'est toi qui m'a "forcé" à jouer........

Ben tiens.... merci.... faut que je le corrige dans mes lisps perso, je n'avais jamais fait attention !!! Correction : (defun polar3D (p1 p2 Lg) (if (not (equal p1 p2)) (mapcar '(lambda (x1 x2) (+ (/ (* Lg (- x2 x1)) (distance p1 p2)) x1)) p1 p2)) ) (defun remove-align-3D (lst / lst-t) (setq lst-t lst) (mapcar '(lambda (x1) (if (> (length (member x1 lst)) 2) (if (equal (polar3D x1 (cadr (member x1 lst)) (distance x1 (caddr (member x1 lst)))) (caddr (member x1 lst))) (setq lst-t (vl-remove (cadr (member x1 lst)) lst-t))))) lst) lst-t ) (gile) J'ai du mal à comprendre tes routines : Je ne vois pas comment en récupérant le vecteur normé de 2 points tu arrives à savoir si un troisième est au milieu... (et en cherchant à comprendre j'ai remarqué que pour 2 points identiques, tu pourrais au lieu de faire (equal p1 pt 1e-9), faire (not (vec1 p1 pt)) ... )

Re, je l'avais loupé ce message..... J''avoues ne pas comprendre ce que tu veux faire du fait de récupérer les points au moment de les pointer..... Si c'est absolument ce que tu veux faire, tu peux tricher en créant une "fausse polyligne" en demandant une série de (getpoint) et en créant une polyligne à 2 points chaque fois, puis quand l'utilisateur à fini de "pointer" tu transformer ton ensemble en polyligne unique.... Le plus long, pour que ce soit totalement invisible, et de re-créer les options à chaque clic (avec initget ...)

... et encore une petite correction : retourne nil si ne trouve rien. :exclam:

Et......... oui.... pfffffff..... je corrige. merci !

Salut, variable SDI à 0.

Salut, Pour les points 3D : ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Polar3D : coord point entre 2 point/distance ; (defun polar3D (p1 p2 Lg) (mapcar '(lambda (x1 x2) (+ (/ (* Lg (- x2 x1)) (distance p1 p2)) x1)) p1 p2) ) (defun remove-align-3D (lst / lst-t) (setq lst-t lst) (mapcar '(lambda (x1) (if (> (length (member x1 lst)) 2) (if (equal (polar3D x1 (cadr (member x1 lst)) (distance x1 (caddr (member x1 lst)))) (caddr (member x1 lst))) (setq lst-t (vl-remove (cadr (member x1 lst)) lst-t))))) lst) lst-t ) ... et ça fonctionne en 2D aussi.... [Edité le 11/10/2007 par Bred]

Ah oui! désolé, j'avais mal lu....

Salut, Tu les récupères tous en forme de texte comme cela : (setq chem (vla-get-SupportPath (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))) ... puis tu les modifies en rajoutant au texte precedement trouvés le chemin de ton répertoire (avec un point-virgule avant, puis tu fais : (vla-put-SupportPath (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))) chem-modif)

Je te donne une solution : Tu fait un code qui ne peut fonctionner QUE sur les ordinateurs de ta boite (et ceux que tu décides), en testant le nom d'utilisateur par exemple, le N° du disque dur ou autre..... Tu as des exemples de récup d'info ici. ... Mais tu peux aussi créer un mot de passe en parrallèle te permettant de la faire fonctionner ou tu veux....

Salut, la meilleur solution est celle qui te convient Moi, je fait cela, en effet, et c'est une obligation vu que lorsque je fait un détail, j'y met des cotes que ne ne pourrais pas mettre dans une echelle trop petite. C'est en effet trés pratique... mais si j'ai besoin de répéter une vue avec les même cotes...ben je ne le faits pas parceque ce serait un travail double... je n'ai aucune raison de faire deux fois la même chose, sauf à une echelle différente, mais voir mon explication ci-dessus concernant les détails.

:casstet: Il n'y a aucun point à enlever dans cette liste.... et pour les doublons, tu as ça : ;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste (defun remove_doubles (lst) (if lst (cons (car lst) (remove_doubles (vl-remove (car lst) lst))) ) ) ... devine de qui c'est ?

Ah ! j'avais commencé à regarder avec inters, mais je tournais en rond !!!..... Bonne idée !

Ma solution revu en un peu plus "stylé"... :P (defun remove-align (lst / lst-t) (setq lst-t lst) (mapcar '(lambda (x1) (if (> (length (member x1 lst)) 2) (if (equal (angle x1 (cadr (member x1 lst))) (angle x1 (caddr (member x1 lst)))) (setq lst-t (vl-remove (cadr (member x1 lst)) lst-t))))) lst) lst-t ) T'aurais un exemple de liste (pour regarder ça....) merci

Re, alors, ma première proposition vite fait et pas trés stylé : (defun remove-align (lst / i lst-t) (setq i 0 lst-t lst) (repeat (- (length lst) 2) (if (equal (angle (car lst-t) (cadr lst-t)) (angle (car lst-t) (caddr lst-t))) (setq lst (vl-remove (cadr lst-t) lst))) (setq lst-t (vl-remove (car lst-t) lst-t) ) ) lst ) ... j'essaye de faire mieux....

:casstet: Hey !!!! je n'avais pas compris ça ! Si c'est ordonnée, ça change tout !!!!! En effet, merci, ton exemple est trés parlant. Certainement, mais je pense que pour un traitement de "boucle de boucle" par élément à comparer à x éléments, la récursivité semble être la meilleur arme... si on sait la manier.... [Edité le 10/10/2007 par Bred]

Mais ce n'est pas du pinaillage !!!!! c'est vital pour certaines informations que l'on affiche pendant les lisp.... Je bosse avec une ligne de commande sur 2 ou 3 lignes au maximum, et j'ai les messages des lisps qui sont tronqués à cause de ça !!!!! Je l'ai vu Je l'ai tenté J'ai démoralisé..... j'avoue que sur ce coup là, j'attends impatiement la réponse, car je pense qu'il va en ressortir un truc génial !.... Alors poste là !!!!!!!!