DenisHen

Bonjour à tous. J'ai trouvé sur le net une suite de lisp qui dessine un carroyage (DTGrid). Je trouve ces lisp très très intéressants. Mais je suis tombé sur une drole de commande : ;;; Retourne la valeur k (defun UtReturn (k) (setq k k)) Je me pose une question, à quoi peut bien servir cette commande ?

Salut. Je poste à 8h45... Et le message est bien calé sur cette heure...

Salut. As-tu essayé la commande "Renommer" avec : Ancien nom : *_M_* Nouveau nom : *_CM_*

Salut. Pour palier au GoTo, je pense à un while, voici ce que, avec mes petites compétences, j'aurais fais (avec une autre méthode pour dessiner la polyligne) : (defun c:testRtyp (/ Rtyp) (while (and (/= Rtyp "1:CFO") (/= Rtyp "2:Cfa") (/= Rtyp "3:EP") (/= Rtyp "4:EU")) (initget 1 "1:CFO 2:Cfa 3:EP 4:EU") ;_ Fin de initget (setq Rtyp (getkword "\nFaite votre choix : [1:CFO/2:Cfa/3:EP/4:EU] : ") ;_ Fin de getpoint ) ;_ Fin de setq (cond ((= Rtyp "1:CFO") (princ "\nChoix : CFO")) ((= Rtyp "2:Cfa") (princ "\nChoix : Cfa")) ((= Rtyp "3:EP") (princ "\nChoix : EP")) ((= Rtyp "4:EU") (princ "\nChoix : EU")) ) ;_ Fin de cond ) ;_ Fin de while (command "_.pline") (while (not (zerop (getvar "cmdactive"))) (command pause)) ;_ Fin:while (princ) ) ;_ Fin de defun Pour le cas ou le calque n'existerait pas, tu peux prendre l'option "e" et non "ch" de la commande "calque". Ca créé le calque s'il n'existe pas et le rend courant. Denis...

Bonjour. Peut-être comme ça : [->Liste] [Ligne 1] [Ligne 2] ... [<-Dernière ligne]

ben comment faire sans le while... Mais j'ai toujours été d'accord... Même si je me trompe... Errare humanum est Et je ne suis pas le premier... ;) Pour une citation...

Que je ne remercierais jamais assez, tout comme toi, et bien d'autres... Vas-y, défoule toi, tu en a le droit... ;) Continu, ça ne me vexe pas tellement (tout de même un peu), mais surtout ne t’offense pas. Si tu cois que c'est ce que je cherche... Et ça t'honore... Je pense que je l'avais deviné... Oui, pour l'instant, c'est de la science-fiction pour moi... Le lien dont je parlais n'était absolument pas le même que celui que tu m'as posté, raison pour laquelle je me suis perdu, au temps pour moi, j'ai cherché, mais pas autant que j'aurais dû... Mille excuses à vous deux... Je m'étais habitué à ma page, maintenant, Maître (gile) ma donné la version 2018... Que dire... Mille mercis... Je subodore que didier commence à m'avoir en grippe, mais ce n'est pas ma volonté... Et je le comprend... @Didier, ne te retiens pas, soit toi-même, c'est ce qu'on apprécie. @Maître (gile) : que dire... Je n'arrive pas à croire qu'en 2000, tu ne connaissais rien d'un PC... Incroyable... ;) Bien à vous... Et merci pour tout... EDIT : suppression de commentaires hors sujet.

Bonsoir à tous. Voilà, j'ai écris ce que je sais faire (enfin presque), à savoir, un ssget pour sélectionner tous les bloc "NumeroDuLot" dans l'espace papier (courant), le code (simplifié) est donc le suivant : (setq n 0) (if (setq Select (ssget "X" (list (cons 0 "INSERT") (cons 2 "NumeroDuLot") (cons 410 (getvar "CTAB"))))) ;_ Fin de setq (while (setq ent (ssname Select n)) ) ;_ Fin de setq ... Diverses opération sur l'entité ent (setq n (1+ n)) ) ;_ Fin de while ) ;_ Fin:if Mais je suis sûr qu'il y a plus simple avec cecode, car il n'y a qu'un seul bloc nommé "NumeroDuLot" dans cet espace. Mais je ne'arrive pas à me sortir cette boucle, et donc, faire un tri "unique" de l'entité dans le (ssget... Rien n'est grave sur terre (dixit "le diable") mais ça pourrait raccourcir mes routines et de ce fait, les rendre plus claire...

Salut (gile), ou plutôt, ReSalut. J'avais bien trouvé ce lien, que j'ai déjà placé en favoris, mais je parlais d'un autre lien qui avait été posté dans ce forum, c'était, il me semble, le chapitre 6 (de je ne sais pas quoi), qui donnais la liste des "objets" ayant des codes DXF, et en cliquant sur un de ces objet, on avait la liste des codes DXF de cet "objet". Je n'arrive pas à le retrouver... Mais merci tout de même... Par contre, j'ai vu les fonction VL, les VLAX, et j'ai découvert les VLR ? ? ?

Bonjour à tous. Voilà, je suis chez moi, et après réinstallation de mon portable la semaine dernière, je n'ai plus le lien vers la page AutoCAD des codes DXF, je crois que c'est le chapitre 6 mais je n'en suis pas sur. Si une bonne âme pouvait me la poster, je serais sauvé pour ce week-end...

Salut Patrick_35. Je suppose que la réponse est nil s'il n'y a rien de trouvé... Merci pour ton aide...

C'est vrai, aucune excuse, mais j'ai cherché après et j'ai trouvé.

Juste une petite question : quelle est la différence entre les deux méthodes ? Je n'arrive pas à comprendre...

C'est pour cette raison que j'ai laissé le code tel que posté... ;) Comme disait ma grand-mère : "C'est pour le cas où..."

Bonjour à tous. Voilà, je cherche si une liste contient une valeur précise, une chaine en l’occurrence. EDIT : je viens de trouver dans da-code, je cherchais "chaine" au lieu de "cherche"... Et j'ai trouvé... C'est member... J'en connais un qui va se faire un plaisir de faire une remarque... ;)

Salut didier... Ce n'est pas pareil... J'ai donc ceci : (setq Select (ssget "X" (list (cons 0 "INSERT") (cons 2 "NumeroDuLot") (cons 67 1)))) Je pense que le code DXF 0 n'est pas très utile, puisqu'il y a peut de chance pour que le code DXF 2 d'une autre entité soit le même que "NumeroDuLot"... Mais on ne sait jamais... ;) Un grand merci à vous deux...

Salut Vincent, et merci pour ton aide... CTAB... Je n'aurais jamais trouvé ce truc...

Bonjour à tous. Je pense que tout est dans le titre. Je cherche un bloc qui serait dans l'espace papier courant. Si quelqu'un a une solution, une astuce... je suis preneur.

Bonjour à tous. Voilà, je cherche à rappeler deux vues enregistrées dans deux fenêtres de l'espace papier. J'ai une routine qui me les sélectionne une par une et dans le bon ordre. J'ai essayé de jouer avec les viewports, mais je n'ai rien sorti de probant, ni sur CadXP, ni sur da-code. Si quelqu'un a une astuce, un conseil... Je suis preneur.

Oui, tu as bien vu, mais je ne savais pas qu'on pouvait les attacher à des entités... Mille mercis pour votre aide... EDIT : ça fonctionne nickel...

Bon, c'était couru d'avance, je n'y arrive pas. J'ai tenté ça : (defun c:Example_SetXData (/) (setq Select (car (entsel "\nSélectionner la fenêtre 'situation':"))) (setq DataType (vlax-make-safearray vlax-vbInteger '(0 . 9))) (setq Data (vlax-make-safearray vlax-vbVariant '(0 . 9))) (vlax-safearray-put-element DataType 0 1001) (vlax-safearray-put-element Data 0 "Site") ;; Attach the xdata to the line (vla-SetXData Select DataType Data) ) Mais j'ai ça comme retour : Mais je ne suis pas étonné, j'entrave quedal... :huh:

Re Aïe... J'avoue être largué... Pourquoi des accolades en 1002 ? En plus, c'est pour l'utilisser que deux fois, pour différencier deux fenêtres dans un espace papier : fenêtre "plan de situation" ("site") et "plan de détail" ("Détail")...

Salut (gile) et merci de me répondre. Aïe... Alors je vais devoir utiliser le lisp de l'exemple que m'a donné Patrick_35 ? J’hésite, car je ne comprend pas tellement ce code, je vais donc avoir un peu de mal à l'adapter à mes besoins... Mais je vais essayer... Ancore merci à vous...

Salut Patrick_35, et merci pour ta réponse. Maître (gile) a écrit ça : ;; GetXdataForApplication ;; Retourne la liste des données étendues pour l'application ;; ;; Arguments ;; ename : nom d'entité de l'objet auquel les données sont attachées ;; appName : nom de l'application enregistrée (defun GetXdataForApplication (ename appName) (cdadr (assoc -3 (entget ename (list appName)))) ) ;; SetXdataForApplication ;; Affecte à l'objet la liste des données étendues pour l'application ;; ;; Arguments ;; ename : nom d'entité de l'objet auquel les données sont attachées ;; appName : nom de l'application enregistrée ;; data : liste de paires pointées contenant les données (defun SetXdataForApplication (ename appName data) (or (tblsearch "APPID" appName) (regapp appName)) (entmod (append (entget ename) (list (list -3 (cons appName data))))) ) Et je l'utilise tout le temps. Maintenant, j'ai écris ce petit test : (defun c:AttVue () (SetXdataForApplication (car (entsel "\nSélectionner la fenêtre :")) "NomVue" (list (cons 1000 "Site")) ) ;_ Fin de SetXdataForApplication ) ;_ Fin de defun Ca fonctionne sur plein d'entités, mais pas sur les fenêtres...

Bonjour à tous. Voilà, j'essai d'attribuer des Xdata à une fenêtre de l'espace papier, mais je n'y arrive pas. Est-ce possible ou je me trompe ?