PHILPHIL

BONJOUR tu as essayer "section" c'est bien pour couper un solide ????? a+ phil

SALUT oui c'est du bloc basic mais parametrique ne peut on pas dans "definitions du jeux de propriété" du gestionnaire de style avoir un petit lisp pour recuperer des données du fichir lui meme ???? phil

bonjour voila je voudrai crer un bloc parametrique de fenetre jusque la pas trop dur ca me donne au final des données dites "personnalisées" dans la fenetre des propriétées a ce bloc je voudrai inclure une etiquette me donnant la largeur hauteur de la baie peut on dans une etiquette récupérer les données " personnalisées" ??? j'ai bien la solution de colelr deux etiquettes recuperant les longueurs des lignes constutuant la baie mais c'est pas tres présentable sur une facae ou peut etre une etiquete concatenant les données de deux etiquettes ??? avez vous des solutions ? ou faut il attendre que autodesk developpe l'idée ?? merci salutations phil

salut il existe un programme autodesk pour comparer les fichiers pour ceux qui sont abonnés ca te fait la liste de toutes les entites des fichiers et les comparent c'est super lourds a utiliser par contre je trouve sinon pour ma part pour comprarer vite fait deux fichiers ma methode c'est : ouvre un fichier vide tu y mets tes deux fichier a comparer en "XREF" tu les superposes ( tu dois bien avoir des traits en commun ) tu force le premier tout en rouge le second tout en bleu et avec les fonctions mise en avant en arriere tu vois les differences si le fichier rouge qui es dessous a des entites qui apparaissent sous les bleu c'est qu'elle on bouger rapide pour voir les difference apres c'est sur pour recuperer les entites qui on bougées c'est une autre histoire mais bon comme tout les autocadiens sont super bien ordonnée ton fichier doit avoir un nom avec un indice te permettant de connaitre au moins sont ordre de modifications salut phil

bonjour dans certains fichiers j'ai des blocs vides nommées "*t001" "*t0002" ect ect ils commencentt tous par "*T" suivi de chiffre il y a t'il un petit LISP permettant de chercher dans toute la base de donnée et de slectionner ces blocs pour les effacer apres modification cette base de LISP ( si ca pas déja été fait d'ailleurs ) pourrait servir a selectionner d'autre entités merci bonne soirée phil

salut dans le version 2008 essaie _DIMBREAK ou COUPURECOTE C'est tout nouveau phil

BONJOUR je cherche des sites ou des blocs de lanterneau de ventillation, desenfumage ou des fiches techniques *.pdf vectoriels des produits si vous avez ca en stock venant d'une marque precise merci phil

salut bred apres un nouvel essai le lispe pour rajouter des entites au groupe marche tres bien soit avec la selection entite par entirer soit avec le rectangle de selection: cp sp tout les modes de selection en fait mais pour enlever des entites au groupe apparement on ne peut enlever que entite par entite je crois avoir piger tu ne peux pas faire une selection comme pour ajouter car sinon le programe reselectionne le groupe et ne peux pas s'autoeliminer ok ok sinon autocad architecture 2008 phil

hello bred j'ai tester tes derniers lisp je sais pas ou mais il y a un tit bug je crois mais je ne suis tjrs pas assez callé pour le corriger ca doit venir du systeme de recherche d'erreur ca fait tourner "autocad" sans jamais rien faire: ni grouper ni degrouper merci bred phil

hello bred super super mieux ta version du lisp ca va bcp plus vite pour la selection tu aurais le meme en enlevant des entites ??? merci phil

BONJOUR vous avez un tit LISP qui calcule le NB de blocs et qui marche sous autocad 2008 ceux que j'ai ne marchent plus merci phil

salut baaa ca marche comme ca c'est le principal et ca met en surbrillance le groupe comme ca avec la commande "groupre" mais faut faire la selection un par un tu proposes plutot de sélectionner le groupe ensuite toutes les entites a enlever ou ajouter et ensuite de le programme fait la manip d'ajouter ou soustraire les entites avec l'avantage de pouvoir selectionner les entites par plusieurs a la fois ??? phil

SALUT BRED si j'ai bein compris ton bout de LISP on ne peut pas trouver le nom d'un groupe pour une entite mais faut d'abord faire la liste des groupes et verifier ensuite si cette entite fait partie de la liste c'est ca ?? y'a bcp d'autre truc comme ca, ou il faut résonner a l'envers ?? En LISP bon sinon avec ton LISP j'en ai fait ca ; ------------------------------ ; AJOUTE DES ENTITES A UN GROUPE ; ------------------------------ (defun C:AGRP (/ GROUPES LST LSTF NG VLA-SEL X) ;;; listes (Groupes (objet1 objet2 ...)) (setq GROUPES (vla-get-groups (vla-get-activedocument (vlax-get-acad-object))) LSTF NIL ) (vlax-for N GROUPES (setq NG (vla-get-name N) LST NIL ) (vlax-for I (vla-item GROUPES NG) (setq LST (cons I LST))) (setq LSTF (append (list (cons NG LST)) LSTF)) ) (setq VLA-SEL (vlax-ename->vla-object (car (entsel "\nCHOIX DU GROUPE AUQUEL RAJOUTER DES ENTITES :")))) (repeat (setq X (length LSTF)) (if (member VLA-SEL (nth (setq X (1- X)) LSTF)) (progn ;;; (setq NOGR (car (nth X LSTF))) ;;; (princ (strcat "\n Groupe : " (car (nth X LSTF)))) (prompt "\nCLIQUER SUR LE(S) ENTITE(S) A AJOUTER AU GROUPE :") (command "-GROUPE" "A" (car (nth X LSTF)) (while (> (getvar "cmdactive") 0) (command PAUSE))) ) ) ) (princ) ) ; -------------------------------- ; SUPPRIME DES ENTITES A UN GROUPE ; -------------------------------- (defun C:SGRP (/ GROUPES LST LSTF NG VLA-SEL X) ;;; listes (Groupes (objet1 objet2 ...)) (setq GROUPES (vla-get-groups (vla-get-activedocument (vlax-get-acad-object))) LSTF NIL ) (vlax-for N GROUPES (setq NG (vla-get-name N) LST NIL ) (vlax-for I (vla-item GROUPES NG) (setq LST (cons I LST))) (setq LSTF (append (list (cons NG LST)) LSTF)) ) (setq VLA-SEL (vlax-ename->vla-object (car (entsel "\nCHOIX DU GROUPE AUQUEL RAJOUTER DES ENTITES :")))) (repeat (setq X (length LSTF)) (if (member VLA-SEL (nth (setq X (1- X)) LSTF)) (progn ;;; (setq NOGR (car (nth X LSTF))) ;;; (princ (strcat "\n Groupe : " (car (nth X LSTF)))) (prompt "\nCLIQUER SUR LE(S) ENTITE(S) A SUPRIMER DU GROUPE :") (command "-GROUPE" "S" (car (nth X LSTF)) (while (> (getvar "cmdactive") 0) (command PAUSE))) ) ) ) (princ) ) bon regroupage degroupage si ca peux servir phil

j'avais fait un tit truc comme ca pour faire un peu de netoyage dans les groupss ; ---------------------------------------------- ; RECHERCHE LES GROUPES VIDES ET LES DECOMPOSENT ; ---------------------------------------------- (defun c:klg (/ ent nom1 nomgroupe compt com objdict grpdict group1) (setvar "cmdecho" 1) (setvar "dimzin" 0) (setq group1 nil) (setq compt NIL) (setq com NIL) (while (= compt NIL) (setq compt (getREAL (strcat "\nENTRER LA VALEUR DE DEPART : ")))) (while (= com NIL) (setq com (getREAL (strcat "\nENTRER LA VALEUR DE FIN : ")))) (setq grve (- COM COMPT)) (setq ent nil) (setq effa 1) (while (< compt com) (prompt (strcat "\rGROUPES A VERIFIER : " (RTOS grve 2 0) " 1ier PASSAGE : " (rtos compt 2 0) " EFFACER : " (rtos EFFA 2 0) " " ) ) (progn (setq n1 (strcat "*A" (rtos compt 2 0) "")) (setq objdict (namedobjdict)) (setq grpdict (dictsearch objdict "ACAD_GROUP")) (setq nomgroupe2 (assoc 0 grpdict)) (setq group1 (dictsearch (cdar grpdict) n1)) (if (/= group1 nil) (deco) ) ) (setq compt (1+ compt)) ) (princ (strcat "\nLE PROGRAMME A EFFACER " (rtos EFFA 2 0) " GROUPES")) (setvar "dimzin" 8) (setvar "cmdecho" 1) ) (defun deco () (setq gr340 (assoc 340 group1)) (if (= gr340 nil) (progn (entdel (handent (cdr (assoc 5 group1)))) (setq effa (1+ effa))) ) ) phil

je dirais que par définition un point reste un point ce que tu vois a l'ecran n'est que la symbolisation a l'écran de ce point ce ne sont pas des lignes ou cercles sur lequel tu peux t'accrocher a par le point bien sur donc ( sauf si je me trompe ) tu peux pas faire varier l'épaisseur du trait ou alors recrait toi ton propre symbole avec traits / cercles créer un lisp pour mettre ton symbole sur chaque points a creuser ca tiens phil

salut bred plus simple ?? ca je peux pas te dire je suis pas assez calé pour répondre a ca il me manque toute la partie ( VL... VLAX.... VLR.... ) la traduction en francais de l'aide ACAD_ALR.chm est en cour puisque AUTODESK n'est pas foutu de le faire ( le sujet avait été evoqué ailleurs sur la traduction "robotisé" francaise de AUTOCAD) en tous cas ca marche me reste plus qu'a comprendre ton LISP et l'integrer dans celui que je veux faire je le metrais en ligne merci phil

bonjour je cherche le moyen de trouver a quel groupe appartient une entite par le biais du LISP pour crer un lisp permettant de rajouter ou enlever facilement des entites a un groupe merci phil

re BRED grand merci ca marche nettement mieux quand je la "BOUCLE" :) ;) <acronym class=dict title= c'est bon ca fonctionne comme je veux merci phil

oupsss salut bred merci celui la je l'oublis a chaque fois thanks phil

ca ne marche pas (defun C:PODIF2 () (setvar "cmdecho" 0) (command "polylign" pause pause pause "c" "") (setq entder (entlast) ) (command "COPIER" entder "" "0,0" "0,0") (princ) ) ce LISP marche mais je suis obiger de creer une polyligne a 3 points au moins si j'enleve les "pause" j'ai droit à "fonction annulée" et je ne sais pas combien je vais avoir de poits dans mes futures polyligne fermées c'est l'enchainement des deux commandes a la suite qui fait que ca ne marche pas (command "polylign" ) ca tout seul ca va je peux faire autant de points que je veux a ma polyligne une autre commande derriere dans le meme LISP et ca ne marche plus GGRrrrrrr ou alors faut passer par les active X ( vl.. vlax... vlr...) peut etre phil

bonjour souci ca ne marche plus ou ca ne marchait jamais plutot remarque voila je voudrais creer une polyligne dans en calque et la recopier ellico dans un autre petit lisp : [surligneur] (defun C: PODIF ( ;;; / CAV ENTDER ) (setvar "cmdecho" 0) (setq CAV (getvar "clayer")) (if (= (tblsearch "layer" "T_FENETRE DIFFORME 1") NIL) (command "-calque" "n" "T_FENETRE DIFFORME 1" "co" "212" "T_FENETRE DIFFORME 1" "T" "A" "T_FENETRE DIFFORME 1" "") ) (if (= (tblsearch "layer" "T_FENETRE DIFFORME 2") NIL) (command "-calque" "n" "T_FENETRE DIFFORME 2" "co" "163" "T_FENETRE DIFFORME 2" "T" "A" "T_FENETRE DIFFORME 2" "") ) (command "-calque" "ac" "T_FENETRE DIFFORME 1" "") (command "-calque" "ch" "T_FENETRE DIFFORME 1" "") (command "polylign" pause ) ;;; (setq entder ;;;;;;;;; (entget ;;; (entlast) ;;;;;;;;; ) ;;; ) ;;;(if ( / entder nil) ;(command "-copierverscalque" entder "" "T_FENETRE DIFFORME 2" "q" "") ;;;) ;;; ;;; (command "COPIER" (entlast) "" "0,0" "0,0") ;;; (setq entder (subst (cons 8 tcalq3) (assoc 8 entder) entder)) ;;; (entmod entder) (setvar "clayer" CAV) (princ) )[/surligneur] si je laisse le LISP en etat comme ca IL ( le LISP) me propose bien de crer une polyligne jusque la normal si j'cris ca dans le LISP (setq entder (entlast) ) (command "-copierverscalque" entder "" "T_FENETRE DIFFORME 2" "q" ) il ne me propose plus de créer la polyligne si je ne lance pas la commande comme ca ;;; (command "-copierverscalque" entder "" "T_FENETRE DIFFORME 2" "q" ) j'ai droit de créer la polyligne et je récupere bien "ENTDER" et ensuite de "copier" "!entder" mais je suis sorti du LISP ou est le BUG s'il vous plait des parentheses en trop ?? des guillement en trop ?? deux " ( command .....)" qui se suivent ??? normalement ca marche une des deux " ( command .....)" qui a une erreur ?? un spécialiste LISP pour m'expliquer ??? merci phil

j'ai tjrs pas piger a quoi servait la focntion "lamda" par contre elle sert a déclarer une inconnue ou des inconnues dans la fonction ???? phil

bonjour grace a BRED je sais récuperer toutes les clées d'un objet et compter le nombre de clées similaires .... (setq ent1 (car (nentsel "\nSELECTIONNER L'OBJET DE BASE."))) (setq val2 (vl-remove-if '(lambda (x) (not(equal(car x) 1))) (entget ent1))) (setq val3 (vl-remove-if-not '(lambda (x) (equal(car x) 1)) (entget ent1))) ..... mais comment fait on pour réinjecter les clées modifieés dans l'objet exemple. j'ai une liste de 5 clées numero 1 et je modifie la 3 ieme clée numero 1 comment la réinjecte au bon endroit ??? quelle est la fonction ? VL.... VLAX.... VLR.... merciiiii phil

salut bred si ton tit LISP permetais d'avoir toutes les données cachées et étendus d'un objet je suis preneur je cherche désesperement ou est caché le nom d'un groupe d'un obejet on a beau cliquer on se retrouve tjrs avec des informations en double triple ...... on est perdu dans tous ce Bo...... phil

prend en grand soin de ton bouquin version 13 il est en francais ca les fichiers d'aide sont en anglais eux il n'y a pas tous ce qui concerne les "VL..." "VLAX..." "VLR..." par contre dans le bouquin ca serais bien si autodesk voulais bien au moins traduire le fichier ACAD_ALR.chm ca m'evitrai d'etre en train de le traduir grrrrr