didicools

Bonjour a tous, J'ai un petit souci avec la commade _AI_SELALL. Voila mon pb, lors que je tape la commande _AI_SELALL autocad me selectionne bien tout par contre lorsque je tape (command "_AI_SELALL"), il me marque : Commande: (command "_AI_SELALL") _AI_SELALL Commande inconnue "AI_SELALL". Appuyez sur F1 pour obtenir de l'aide. Commande: nil Mon but est le suivant, j'ai besoin de sélectionner tout les objets dans une présentation (icompris les fenetres) pour ensuite les supprimer (j'utilise (command "_.erase")) La commande ne fonctionne pas quand je l'integre dans une LISP bizar.....

J'arrive pas a ce que je veux avec la routine de bonuscad. A chaque sélection de bloc de bloc, je récupère le nom de celui ci en faite et avec le lisp de bonuscad, a chaque déplacement la variable "ent" est redefinie. trop compliqué pour moi <acronym class=dict title= Sinon avec la routine de Carboleum c'est deja pas mal, reste juste le nil a gérer.. Merci a vous

Merci Carboleum! C'est deja une belle avancée, par contre maintenant que je clique sur une partie vide du dessin, le programme plante. N'y aurai t il pas moyen de gérer le "nil" ? c'est a dire que quand un "nil" apparait le lisp continue quand meme? merci

Bonjour, Je souhaiterai faire une boule pour selectionner les un a la suite des autre un certain nombre de block, j'utilise donc en "entsel" dans un "while". jusque la pas pb. (while (setq SEL_BLOC (entsel "\nChoix d'un objet : ")) Le pb est que lorsque je clique dans une zone vide du dessin je sort de mon while Je souhaiterai sortir de mon while en tapant sur la touche "entrée" ou eventuellement en rentrant une lettre au clavier. Est ce que cela est possible ? sinon quelle instruction puis je utiliser pour réaliser une selection succéssive de block et sortir quand je le décide ? Merci pour votre aide

message en double désolé [Edité le 8/8/2011 par didicools]

Merci autospeed!! mon adresse est la suivante: samourai62@hotmail.com merci encore

Bonjour Patrick35, Je cherche désespérément un lien pour télécharger la dernière version de ton lisp JAV, a priori il sagit de la version 3.31 mais le lien ne fonctionne pas sur ton blog. Pourrai-tu nous le poster ? Merci d'avance.

Salut, Tu peu chercher sur internet un LISP qui s'appel SCALELISTDEL.lsp Dans ce lisp, tu as plusieur commande, il faut que tu utilise la commande SCALELISTDELALL Je te conseil de le faire sur tes référence externe dans un premier temps et ensuite sur ton fichier. Sinon tu as le lisp JAV de Patrick35, qui te netoi ton dessin des liste d'echelle, xdata, dictionnaire, des erreur, des ligne de longueur 0,.... d'un tas d'autre chose Bonne journée

Pour répondre a Fraid, Nous avons bien 15 poste identique :mad2: Merci REBCAO, j'ai changé les polices des style de texte et miracle, les fichier s'ouvre instantanement !!! Merci encore

Je pense pas que ca vienne d'autocad, surement du poste, mais le souci c'est que ca me fait ca que sur ces type de plan (exportation caneco). le reste, meme de très gros plan, fonctionne très bien. La config du poste est la suivante: C'est un PC de bureau, on est 15 dans le bureau et on a tous le meme probleme Win XP PRO SP3 CORE 2 DUO E4400 1.99Ghz 2Go de RAM carte graphique ATI Radeon HD 2400 XT Ou peu etre une variable d'autocad ?

Bonjour à tous, J'ai un petit souci avec le fchier dwg suivant, Il est très long à s'ouvrir, long à faire des copier collé, enfin long pour tout !! Ce fichier est issue d'une exportation CANECO, un module est disponible dans ce logiciel pour exporter en DWG. J'ai essayé de le purger, de le récupéré, de supprimer les listes d'echelle, j'ai essayé avec le lisp JAV de patrck35 mais rien y fait, c'est toujour aussi long. C'est la meme chose avec autocad 2010 Auriez vous une solution? je joint le fichier qui pose probleme. http://dl.free.fr/j2k4xuEs4 [Edité le 25/1/2011 par didicools]

Message en double A SUPPRIMER Désolé ;) [Edité le 20/1/2011 par didicools] [Edité le 20/1/2011 par didicools]

effectivement ca me pose plus de pb, est-ce que ca peu etre due a la version d'autocad, parce qu'entre mes 2 essai, je suis passé de la 2009 à la 2010 ? Une autre petite question, a quoi servent ces instruction : vla-StartUndoMark et vla-EndUndoMark Merci pour votre aide

j'arrive bien a inserer mon bloc dynamique mais je vois pas comment je pourai modifier mon attribut [Edité le 18/3/2010 par didicools]

Merci gile, J'ai réussi a faire ce que je voulais mais maintenant j'aimerai si c'est possible insérer un bloc dynamique mais ca ne confonctionne pas ou a moitier, quand je fait un wbloc sur mon bloc dynamique et que je l'insère en vlisp avec le code que tu as donné, il me met un message d'erreur quand il s'enregistre en me disant de récupérer le dessin.

ok, en tous cas, tous cela me fait avancé un peu sur le vlisp, c'est déja ca. Comment pourai-je modifier l'attribut du bloc que je viens d'insérer? [Edité le 5/3/2010 par didicools]

Bon il copie bien le bloc mais ne garde pas la valeur de l'attribut

je pense avoir trouvé http://cadxp.cadmag.info/XForum+viewthread-fid-102-tid-15426.html?POSTNUKESID=115a420d424a281c49f739ebd8d86d32

J'ai une autre idée, si j'insère mon bloc dans le dessin courant, je mofie l'attribut (ca je c faire), je le selectionne avec ENTLAST et je le copie/colle dans mon fichier de destination (sans l'ouvrir). Est ce que ca c possible ? si oui, qu'elle fonction puis-je utilisé ? vla-CopyObjects ?

Merci capde06, je savais pas pour l'asterix, ca va allégé mon code de base, par contre je souterai le faire en vlisp pour pouvoir modifier l'attribut du bloc qui sera inséré dans un dessin sans l'ouvrir. J'arrive bien a insérer un bloc en vlisp dans un dessin sans l'ouvrir mais pas a modifier l'attribut. Et comme je souhaite faire une boucle pour insérer plusieur fois le meme bloc, il faut que je sélectionne la dernière entité avant l'insertion du bloc suivant pour modifier l'attribut.

Bonjour a tous, Je me lance, enfin j'essaye <acronym class=dict title=, dans le lisp et dans le vlisp. Je rencontre une difficulté et malgrès mes recherches je trouve pas. Voila mon souci: J'ai un fichier qui contient eu bloc avec attribut, le fichier contenant le bloc s'appel FICHIER, le bloc dans le FICHIER s'appel BLOC et son attribut s'apelle REPERE. en LISP, donc dans le dessin courant, j'arrive a insérer ce FICHIER en temps que bloc, le décomposé, selectionner la dernière entité pour avoir l'attribut et le modifier. Je voudrai faire cette maip en VLISP dans un dessin qui ne sera pas ouvert, mais je bloque, j'arrive bien insérer le FICHIER en temps que bloc mais j'arrive pas a le décomposer, sélectionner la dernière entité pour pouvoir modifier l'attribut. sur le dessin courant j'arrive a modifier l'attribut en VLISP mais en passant par un ENTLAST pour selectionner la dernière entité. Auriez vous la solution ?? Merci !!

En fait je parlé pas du gestionnaire de calque mais bien du controleur de calque, c pas évident a expliquer. C'est la barre a coté de l'icone pour rentré dans le gestionnaire des calque. J'ai uploader une petite capture http://ups.imagup.com/05/1256927443_Sans%20titre.JPG C'est cette liste la que je voudrai agrandir [Edité le 30/10/2009 par didicools]

Bonjour, J'ai autocad 2009, avec l'affichage des barre d'outils en "ruban". danzs le 1er ruban "début", il y a la liste déroulante de "controle des calques" donc avec tout les calque, cependant, la liste n'est pas aeesez large pour voir le nom omplet du calque sur le quel je suis alors que quand je clique sur la petite fleche on voi la liste des calque mais un peu plus large. Ce qui permet de voir le nom complet du calque. Est ce qu'il y aurai un moyen pour agrandir en largueur cette liste ? Merci !

Merci bonuscad, Je comprend mieux pourquoi ca fontionné pas! Merci encore pour ton aide et ta patience !!

C'est peu etre pas la dernière version qu'il y a sur les messages précedent, je te met la dernière version qui va bien avec la dernière version de CABLAGE que tu as dans le message daté du 15/6/2009 TAB_CABLE: (vl-load-com) (defun c:Tab_Cable ( / js AcDoc Space nb lst_layer lst_typ lst_1br lst_2br key_usr lst_length lst_length2 all_path j end_pos id_path fonts_path file_shx nw_style n obj dxf_ent ename elist xd_list e_data oldim oldlay ins_pt_cell h_t w_c ename_cell n_row n_column) (princ "\nSélection d'une polyligne comme modèle pour désignation du calque à traiter.") (while (null (setq js (ssget "_+.:E:S" '((0 . "LWPOLYLINE") (-3 ("RESEAU_CABLAGE")))))) (princ "\nSélection vide, ou n''est pas une polyligne valable!") ) (setq js (ssget "_X" (list '(0 . "LWPOLYLINE") '(-3 ("RESEAU_CABLAGE")) (assoc 8 (entget (ssname js 0))) ) ) ) (cond (js (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) nb 0 lst_layer '() lst_typ '() lst_1br '() lst_2br '() lst_length '() lst_length2 '() ) (cond ((null (tblsearch "LAYER" "Tableau-Reseaux-Cables")) (vla-add (vla-get-layers AcDoc) "Tableau-Reseaux-Cables") ) ) (cond ((null (tblsearch "STYLE" "Texte-Cell")) (setq all_path (getenv "ACAD") j 0) (while (setq end_pos (vl-string-position (ascii ";") all_path)) (setq id_path (substr all_path 1 end_pos)) (if (wcmatch (strcase id_path) "*FONTS*") (setq fonts_path (strcat id_path "\\")) ) (setq all_path (substr all_path (+ 2 end_pos))) ) (setq file_shx (getfiled "Selectionnez un fichier de police" fonts_path "shx" 8)) (if (not file_shx) (setq file_shx "txt.shx") ) (setq nw_style (vla-add (vla-get-textstyles AcDoc) "Texte-Cell")) (mapcar '(lambda (pr val) (vlax-put nw_style pr val) ) (list 'FontFile 'Height 'ObliqueAngle 'Width 'TextGenerationFlag) (list file_shx 0.0 (/ (* 15.0 pi) 180) 1.0 0.0) ) (command "_.ddunits" (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) ) ) (repeat (setq n (sslength js)) (setq obj (ssname js (setq n (1- n))) dxf_ent (entget obj) ename (vlax-ename->vla-object obj) elist (entget obj (list "RESEAU_CABLAGE")) xd_list (cdr (assoc -3 elist)) e_data (mapcar 'cdr (cdr (car xd_list))) lst_layer (cons (cdr (assoc 8 dxf_ent)) lst_layer) lst_typ (cons (cadr e_data) lst_typ) lst_1br (cons (cadddr (cdr e_data)) lst_1br) lst_2br (cons (caddr e_data) lst_2br) key_usr (strcat (cond ((eq (cadddr (cdr e_data)) "poteauEP") "3") ((eq (cadddr (cdr e_data)) "poteauBT") "4") ((eq (cadddr (cdr e_data)) "Poste") "5") ((eq (cadddr (cdr e_data)) "Candelabre") "6") ((eq (cadddr (cdr e_data)) "Boite") "7") ((eq (cadddr (cdr e_data)) "boRne") "8") ((eq (cadddr (cdr e_data)) "COffret") "9") ((eq (cadddr (cdr e_data)) "Armoire") "G") ) (cond ((eq (caddr e_data) "poteauEP") "3") ((eq (caddr e_data) "poteauBT") "4") ((eq (caddr e_data) "Poste") "5") ((eq (caddr e_data) "Candelabre") "6") ((eq (caddr e_data) "Boite") "7") ((eq (caddr e_data) "boRne") "8") ((eq (caddr e_data) "COffret") "9") ((eq (caddr e_data) "Armoire") "G") ) ) lst_length (cons (strcat "%<\\AcExpr " "%<\\AcExpr (" (rtos (vlax-ldata-get "cablage" (substr key_usr 1 1))) " + " (rtos (vlax-ldata-get "cablage" (substr key_usr 2 1))) " + " "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID ename)) ">%).Length>%)>% * 1.04 \\f \"%lu6\">%" ) lst_length ) lst_length2 (cons (strcat "%<\\AcExpr " "%<\\AcExpr (" "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID ename)) ">%).Length>%)>% * 1.04 \\f \"%lu6\">%" ) lst_length2 ) nb (1+ nb) ) ) (setq oldim (getvar "dimzin") oldlay (getvar "clayer")) (setvar "dimzin" 0) (setvar "clayer" "Tableau-Reseaux-Cables") (initget 9) (setq ins_pt_cell (getpoint "\nPoint d'insertion haut gauche du tableau: ")) (initget 6) (setq h_t (getdist ins_pt_cell (strcat "\nHauteur du texte <" (rtos (getvar "textsize")) ">: "))) (if (null h_t) (setq h_t (getvar "textsize")) (setvar "textsize" h_t)) (initget 7) (setq w_c (getdist ins_pt_cell "\nLargeur des cellules: ")) (vla-addTable Space (vlax-3d-point (trans ins_pt_cell 1 0)) (+ 3 nb) 5 (+ h_t (* h_t 0.25)) w_c) (setq ename_cell (vlax-ename->vla-object (entlast)) n_row (1+ nb) n_column -1) (vla-rotate ename_cell (vlax-3d-point (trans ins_pt_cell 1 0)) (angle '(0.0 0.0 0.0) (getvar "UCSXDIR"))) (vla-SetCellValue ename_cell 0 0 (vlax-make-variant "TABEAU RECAPITULATIF DE METRE" 8)) (vla-SetCellTextStyle ename_cell 0 0 "Texte-Cell") (vla-SetCellTextHeight ename_cell 0 0 (vlax-make-variant h_t 5)) (vla-SetCellAlignment ename_cell 0 0 5) (foreach n (mapcar'list (append lst_layer '("Calque")) ;; (append lst_typ '("Type de cablage")) (append lst_1br '("1er Raccordement par")) (append lst_2br '("2ème Raccordement par")) (append lst_length '("Longueurs de cable")) (append lst_length2 '("Longueurs de cable2")) ) (mapcar '(lambda (el) (vla-SetText ename_cell n_row (setq n_column (1+ n_column)) el) (vla-SetCellTextStyle ename_cell n_row n_column "Texte-Cell") (vla-SetCellTextHeight ename_cell n_row n_column (vlax-make-variant h_t 5)) (if (eq n_row 1) (vla-SetCellAlignment ename_cell n_row n_column 5) (vla-SetCellAlignment ename_cell n_row n_column 6) ) ) n ) (setq n_row (1- n_row) n_column -1) ) (vla-SetText ename_cell (+ 2 nb) 3 (strcat "Total= " "%<\\AcExpr (Sum(D3:D" (itoa (+ 2 nb)) ")) \\f \"%lu6\">%") ) (vla-SetCellTextStyle ename_cell (+ 2 nb) 3 "Texte-Cell") (vla-SetCellTextHeight ename_cell (+ 2 nb) 3 (vlax-make-variant h_t 5)) (vla-SetCellAlignment ename_cell (+ 2 nb) 3 6) (setq n_row (1- n_row) n_column -1) (vla-SetText ename_cell (+ 2 nb) 4 (strcat "Total= " "%<\\AcExpr (Sum(E3:E" (itoa (+ 2 nb)) ")) \\f \"%lu6\">%") ) (vla-SetCellTextStyle ename_cell (+ 2 nb) 4 "Texte-Cell") (vla-SetCellTextHeight ename_cell (+ 2 nb) 4 (vlax-make-variant h_t 5)) (vla-SetCellAlignment ename_cell (+ 2 nb) 4 6) (vlax-release-object ename_cell) (vlax-release-object Space) (setvar "dimzin" oldim) (setvar "clayer" oldlay) ) (T (princ "\nAucune LWPOLYLINE trouvé avec l'application RESEAU_CABLAGE")) ) (prin1) )