Arcasdk

Merci (Gile) Je fait t'expliquer pourquoi je cherche à sélectionner une entité bien que j'ai déjà son "identifiant" En fait la raison de ce post c'est que je cherche à retrouver une entité que je vois sur un plan ouvert sur un poste "X" mais que je ne vois pas sur ce même plan ouvert avec un poste "Y". J'avais donc pour idée de prendre le nom d'entité de l'objet lorsque je suis sur le poste "X" et de le chercher en étant sur le poste "Y" j'ai vérifié l'état des calques, les versions (LT ou non), mais il m'est toujours impossible de faire apparaitre certains objets.... Mystères.... Donc finalement je suis peut être dans la bonne rubrique [Edité le 16/9/2009 par Arcasdk]

Ah okok, Autant pour moi donc. Milles excuses. Mais mon problème n'est toujours pas résolu. A vrai dire je n'ai pas trop compris le message de vinz24!!!!!

Bonjour, merci vinz34 pour la réponse. Et en passant vite fait aussi il me semble que même en lt il m'est possible d'écrire du lisp dans la ligne de commande. non? ;) Fred

Bonjour tous le monde, est il possible de retouver une entité grace à son code dxf ex: (-1 . Nom d'entité: 683a6498) j'ai essayé un (setq toto (ssget "_X" '((-1 . [Nom d'entité: 683a6498])))) mais il me retourne une erreur. Merci [Edité le 15/9/2009 par Arcasdk]

Moi j'ai fait un ptit truc simple.... Peut être pas aussi complet que vous mais ca marche bien. Voici le code Lisp (defun c:clq (/ fichier f data ligne nom coul typline epline) (command "-purger" "tout" "tout" "o") (if (not (tblsearch "LTYPE" "AXES")) (command "-TYPELIGNE" "CH" "AXES" "acadiso.lin" "") ) (if (not (tblsearch "LTYPE" "FANTOME")) (command "-TYPELIGNE" "CH" "FANTOME" "acadiso.lin" "") ) (if (not (tblsearch "LTYPE" "CACHE")) (command "-TYPELIGNE" "CH" "CACHE" "acadiso.lin" "") ) (command "-calque" "n" "0,AXE,CACHE,CADRE,COTATION,COTATION-ANG,Defpoints,DESSIN,DESSIN FIN,EPURE,FENETRE PAPIER,HACHURE,INDICE A,INDICE B,MODIFICATION,REFRACTAIRE,SOUDURE,TEXTE,TEXTE-ANG,TEXTE CARTOUCHE,TITRE,TITRE-ANG,TRAIT FIN CARTOUCHE" "") ;DEFINIR LA DESTINATION D'ENREGISTREMENT (if (eq dirclq nil) (setq dirclq "D:\\Lisp\\Calque SGG\\Calque SGG.data") ) (setenv "mem" dirclq) (if (or (EQ "P" (setq dirclq (getstring (strcat "\nIndiquer l'emplacement du fichier de lecture des calques ou [Parcourir] <"(getenv "mem")">: ")))) (EQ "p" dirclq)) (progn (if (not (setq dirclq (getfiled "Selectionner le fichier texte..." "C:\\Documents and Settings\\F6134717\\Desktop\\" "data" 8))) (progn (setq dirclq (getenv "mem"))))) (setq dirclq (getenv "mem")) ) (princ dirclq) ;DEFINIR LA DESTINATION D'ENREGISTREMENT (FIN) (setq f (open dirclq "r")) (while (setq data (read-line f)) (setq ligne (read (strcat "(" data ")"))) (setq nom (nth 0 ligne)) (setq coul (nth 1 ligne)) (setq typline (nth 2 ligne)) (setq epline (nth 3 ligne)) (setq trac (nth 4 ligne)) (command "-calque" "CO" coul nom "TL" typline nom "EP" epline nom "T" trac nom "") (princ "\n") (princ ligne) (princ "\n")) (close f)) et voici le fichier comprenant les propriétés de calque (Calque SGG.data) "0" 7 "CONTINUOUS" "0.13" "T" "AXE" 1 "AXES" "0.15" "T" "CACHE" 2 "CACHE" "0.2" "T" "CADRE" 1 "CONTINUOUS" "0.15" "T" "COTATION" 1 "CONTINUOUS" "0.15" "T" "COTATION-ANG" 1 "CONTINUOUS" "0.15" "T" "Defpoints" 7 "CONTINUOUS" "0.13" "A" "DESSIN" 3 "CONTINUOUS" "0.5" "T" "DESSIN FIN" 1 "CONTINUOUS" "0.15" "T" "EPURE" 4 "CONTINUOUS" "0.15" "A" "FENETRE PAPIER" 7 "CONTINUOUS" "0.13" "A" "HACHURE" 6 "CONTINUOUS" "0.15" "T" "INDICE A" 1 "CONTINUOUS" "0.15" "T" "INDICE B" 1 "CONTINUOUS" "0.15" "T" "MODIFICATION" 5 "CONTINUOUS" "0.15" "A" "REFRACTAIRE" 4 "FANTOME" "0.15" "T" "SOUDURE" 6 "CONTINUOUS" "0.15" "T" "TEXTE" 2 "CONTINUOUS" "0.35" "T" "TEXTE-ANG" 2 "CONTINUOUS" "0.35" "T" "TEXTE CARTOUCHE" 1 "CONTINUOUS" "0.15" "T" "TITRE" 50 "CONTINUOUS" "0.6" "T" "TITRE-ANG" 50 "CONTINUOUS" "0.6" "T" "TRAIT FIN CARTOUCHE" 2 "CONTINUOUS" "0.15" "T" Fred

Coucou LUDWIG, Oui j'ai vu passé ce lisp, et je crois même que c'est moi qui est à l'origine. Voici le code en V-LISP (defun c:5(/ doc js sel) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (vl-catch-all-apply 'vla-add (list (vla-get-layers doc) "[b]DESSIN[/b]")) (and (setq js (ssget)) (progn (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (vla-put-layer ent "[b]DESSIN[/b]") [surligneur](vla-put-color ent 256) (vla-put-linetype ent "ByLayer")[/surligneur] ) (vla-delete sel) ) ) (sssetfirst nil js) (vla-endundomark doc) (princ) ) Change les textes en gras par le nom de ton calque et ce qu'il y a en jaune si tu veux garder ton type de ligne et ta couleur. Je ne suis pas encore un expert en V-LISP mais cela doit être ça... N'hésite pas si tu as des questions Voici le lien du post . Bon courage, Fred!

C'est le lien que j'ai mis 3 post plus haut.... ;-) Mieux vaut deux fois qu'une

Coucou stephd et bienvenue, Comme dit bseb67 il n'y a pas de rubrique de présentation. Cela dit j'avais trouvé un post où il y avait pas mal de présentations...: http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&fid=59&tid=577&page=4 Monsieur aime aussi la musique (instrumentale)... Et de quel instrument il s'agit? En tout cas bonne continuation et j'espère que tu trouveras réponses à tes questions ici. @+ Fred

Coucou Tofjo, Quelque moteur pdf tu utilises??? Sinon y a ptet un truc à regarder dans les options de Autocad structural detailling...

Bonjour Ye-Woof, Ta remarque est pertinente mais ce n'est pas pour autant que je vais pas voir les mails. Je ne m'arrête pas à ce genre de détail. La preuve en est, que je viens de lire le tien alors que le titre non plus ne me renseignait pas sur la raison de ton post. ;) A bientôt [Edité le 9/4/2009 par Arcasdk]

Bonjour à toutEs et tous Un bon coup de crayon ou de stylet?????? Y a de la tablette dans l'air... C'est quel soft? Paint, Toshop, .....

Merci beaucoup Patrick_35, c'est bon je m'y lance....

Merci tout marche nikel. Je voulais rajouter une propriété.....L'épaisseur de ligne. Je pense avoir trouver le code V-lisp mais je ne sais pas quelle réponse il attend pour stipuler l'épaisseur de ligne "DuCalque" il s'agit bien de LineWeight? (vla-put-lineweight ent "LnWtByLayer") En revanche le LnWtByLayer ne doit pas être bon!!! Ahhh j'ai trouvé... c'est "-1". J'ai tapé (setq toto (vla-get-lineweight ent)) sur une ligne avec une épaisseur de ligne en DuCalque.... Pas CON Jean Pierre..... ;-) Ou est ce que je peux trouver ce genre de renseignement. J'ai trouver certains trucs dans l'explorateur du VBA (Alt+F11 et F2) mais je ne cherche peut être pas au bon endroit. Merci [Edité le 8/4/2009 par Arcasdk]

Bonjour, as tu essayé en passant par la sélection rapide tu sélectionnes toutes les lignes par exemple qui ont une échelle de type de ligne égale à "x" et tu changes tout d'un coup par "x/5"... non? tu ne devrais pas en avoir pour longtemps. @+

Coucou, bienvenue... Est ce que la commande cui fonctionne?

Y a pas de souci. Je vois que même avec mes modestes connaissances, j'arrive à être utile. ^^

Et les droits d'auteur alors??????

Ah ouais, ça va déjà mieux... Tu n'utilises pas le V-Lisp toi? j'essayais de le faire en V-Lisp suite à ton message Merci

... Merci Patrick_35 mais cela ne fonctionne toujours pas. Tu l'as testé? Tu as supprimé le sslenght et ajouté un entupd. C'est bien ça? Le code "67" et "6" existe toujours..... :casstet: et le "redraw" ne dois pas être la commande que je cherche.

Bonjour, eh bien y a du nouveau. J'ai rajouté les éléments en surbrillance mais il ne se passe rien ou pas comme je le souhaite La fonction "vl-remove" ne fonctionne pas. (pas d'erreur non plus) Et le "redraw" laisse bien mon entité en surbrillance mais n'est pas sélectionnée pour autant. Mon jeu de sélection est vide. ;Mettre le jeu de sélection dans le calque 0; (defun c:5 (/ js x name paire code ent) (vl-load-com) (or js (setq js (ssget))) (sslength js) (setq x 0) (while (/= x (sslength js)) ;ECRIRE LE PROGRAMME (setq ent (ssname js x)) (setq name (entget ent)) (setq paire (cons 8 "DESSIN")) (setq name (subst paire (assoc 8 name) name)) [surligneur](if (setq code (assoc 67 name)) (vl-remove code name)) (if (setq code (assoc 6 name)) (vl-remove code name)) (redraw ent 3) (entupd name)[/surligneur] (entmod name) ;FIN FDU PROGRAMME (setq x (+ x 1)) ) ) Ai-je oublié quelque chose? [Edité le 7/4/2009 par Arcasdk]

Bon ben je suis résigné à me mettre au V-Lisp... Merci Patrick_35

Bonjour à tous. Voici un de mes lisps qui me permet de mettre un ensemble d'entité dans le calque voulu juste en lui donnant un numéro. ;Mettre le jeu de sélection dans le calque CACHE; (defun c:2 (/ js x name paire) (or js (setq js (ssget))) (sslength js) (setq x 0) (while (/= x (sslength js)) ;ECRIRE LE PROGRAMME (setq name (entget (ssname js x))) (setq paire (cons 8 "CACHE")) (setq name (subst paire (assoc 8 name) name)) (entmod name) ;FIN FDU PROGRAMME (setq x (+ x 1)) ) ) • Je souhaiterai améliorer ce lisp en forçant aussi la couleur à devenir DuCalque. Je sais que dans ce cas qu'il me faut enlever le code DXF 62..... Est-ce possible? Et si elle n'existe pas,eh bien ne rien faire cela va de soi! • J'aimerai aussi que quand ce programme se termine, qu'il me laisse en surbrillance mon jeu de sélection. comment sélectionner un objet via le lisp.? PS: J'ai remarqué que ce genre de programme ne fonctionne pas pour changer le calque d'une fenêtre de présentation. Merci à tous [Edité le 7/4/2009 par Arcasdk]

Grand Merci neptune38!! ;)

Ca marche pô...!! J'ai 4 nil à la suite....... :casstet: Mais c'est pas grave le principale c'est que maintenant ça marche

Salut (gile), Merci d'avoir jeté un coup d'oeil sur mon problème... Tu le lances comment ce programme.... Sinon je l'ai fait avec le fichier acaddoc.lsp ça fonctionne merci bcp.