PHILPHIL

hello Gile désolé Gile c'est moi qui inversais les ordres de tri, et confondait entre "scg" et "scu" puis mes points d'insertion de mes blocs ne sont pas forcement en bas a gauche mais en haut a gauche et donc ps aligner horizontalement donc il me fallait faire soit tout l'ensemble du calepinage, ou par ligne dans le cas de décalage horizontale merci Gile a+ Phil

hello Gile je reviens sur l'APP increment 2.3 dans l'onglet "AUTO" des blocs et l'ordre de tri est ce qu'il serait possible d'avoir un tri en fonction des X sans tenir compte des Y, ou Y sans tenir compte des X comme tu l'as dit precedement les coordonnées sont comparées sur la 15 ieme ou 16 ieme décimale mais defois les blocs ne sont pas alignés pil poil, donc ca fausse l'ordre un bouton de sélection de blocs, en plus de liste déroulante ? tout comme dans l'onglet "attribut" et dans "sélection" merci Phil

hello ce qui est quand meme le plus pratique c'est d'avoir tous les niveaux des batiments sur le meme fichier reglés a 5000 unites ( par exemple ) verticalement et de se déplacer d'un niveau a l'autre pour voir si ca plombe, ou de balancer des entites de 5000 en 5000 avec une fonction plutot que de passer d'un fichier a l'autre en perdant le fil a+ Phil

hello il veut juste utiliser GEF de Patrick en fait http://www.blog-cao.com/article/programmation/gef-autocad-gerer-calque-presentation-layer-layout/ il y a peut etre une version plus recente a+ Phil

hello la version RGB (defun c:MDFC_RGB () (vl-load-com) (setvar "cmdecho" 0) (setvar "dimzin" 0) (setvar "osmode" 0) (prompt "\nLE NOM DU CALQUE COMMENCERA PAR CALQUE ... :") (prompt "\nCLIQUER SUR LES OBJETS A DEPLACER DE CALQUE :") (setq entites nil) (while (null entites) (setq entites (ssget))) (setq compt 0) (setq com (sslength entites)) (while (< compt com) (progn (setq ent1 (ssname entites compt)) (setq code1 (cdr (assoc -1 (entget ent1)))) (setq ena1 (vlax-ename->vla-object code1)) (setq typeobjet (vla-get-objectname ena1)) (setq proper1 (vlax-get-property ena1 'truecolor)) (setq colorr (vlax-get-property proper1 'colorindex)) (setq blue (vlax-get-property proper1 'blue)) (setq green (vlax-get-property proper1 'green)) (setq red (vlax-get-property proper1 'red)) (setq rgb (strcat (rtos red 2 0) "," (rtos green 2 0) "," (rtos blue 2 0))) (setq ligntype (vla-get-linetype ena1)) (setq eplign (vla-get-lineweight ena1)) (setq calquenew (strcat "CALQUE " typeobjet " " (strcat (rtos red 2 0) " " (rtos green 2 0) " " (rtos blue 2 0)) " " ligntype " " (rtos eplign 2 0) "ep")) (if (or (= colorr 256) (= colorr 0)) (setq colorr 7) ) (if (= (tblsearch "layer" calquenew) nil) (vl-cmdf "-calque" "n" calquenew "co" "u" rgb calquenew "tl" ligntype calquenew "in" calquenew "") ) (vla-put-layer ena1 calquenew) (vlax-put-property proper1 'colorindex 256) (vlax-put-property ena1 'truecolor proper1) (vla-put-lineweight ena1 -1) (setq compt (1+ compt)) (prompt (strcat "\rENTITE DEPLACEE : " (rtos compt 2 0) " SUR : " (rtos com 2 0) " ")) ) ) ) Phil

hello philsogood bonne année a tous voici un lisp, il répartie dans des calques en fonction de la couleur de l’entité, type entité, épaisseur entité (defun c:mdfc () (vl-load-com) (setvar "cmdecho" 0) (setvar "dimzin" 0) (setvar "osmode" 0) (prompt "\nLE NOM DU CALQUE COMMENCERA PAR CALQUE ... :") (prompt "\nCLIQUER SUR LES OBJETS A DEPLACER DE CALQUE :") (setq entites nil) (while (null entites) (setq entites (ssget))) (setq compt 0) (setq com (sslength entites)) (while (< compt com) (progn (setq ent1 (ssname entites compt)) (setq code1 (cdr (assoc -1 (entget ent1)))) (setq ena1 (vlax-ename->vla-object code1)) (setq typeobjet (vla-get-objectname ena1)) (setq proper1 (vlax-get-property ena1 'truecolor)) (setq colorr (vlax-get-property proper1 'colorindex)) (setq blue (vlax-get-property proper1 'blue)) (setq green (vlax-get-property proper1 'green)) (setq red (vlax-get-property proper1 'red)) (setq rgb (strcat (rtos red 2 0) "," (rtos green 2 0) "," (rtos blue 2 0))) (setq ligntype (vla-get-linetype ena1)) (setq eplign (vla-get-lineweight ena1)) (setq calquenew (strcat "CALQUE " typeobjet " " (rtos colorr 2 0) " " ligntype " " (rtos eplign 2 0) "ep")) (if (or (= colorr 256) (= colorr 0)) (setq colorr 7) ) (if (= (tblsearch "layer" calquenew) nil) (vl-cmdf "-calque" "n" calquenew "co" colorr calquenew "tl" ligntype calquenew "in" calquenew "") ) (vla-put-layer ena1 calquenew) (vlax-put-property proper1 'colorindex 256) (vlax-put-property ena1 'truecolor proper1) (vla-put-lineweight ena1 -1) (vla-put-linetype ena1 "bylayer") (setq compt (1+ compt)) (prompt (strcat "\rENTITE DEPLACEE : " (rtos compt 2 0) " SUR : " (rtos com 2 0) " ")) ) ) ) j'en ai un aussi pour le RGB a+ Phil

bonjour je voudrais savoir si vous utiliser des logiciel d'optimisation de découpe ( plaques et/ou barres ) si oui lequels ? prix? avantage? defauts ? merci Phil

hello zebulon mon fichier *.dwg est incrementé chaque jour donc pour ca j'ouvre le fichier *.dxe avec notepad ++ puis je fait remplacer "fichie0" par "fichierA" et sauvegarde si autocad est ouvert en meme temps, il me dit que le fichier d'extraction de donnée a été modifié, il fait une mise a jour du fichier *.dxe, puis apres tu refais l'extraction de donnée, en cliquant sur la petite chaine en bas a droite, ou dans le panneaux des XREF. et ton tableau devrait se mettre a jour en fonction des blocs de ton "fichierA" ton fichier *.dwg a jour

HELLO donc si je comprend bien, il faut utiliser le SOL comme une toiture sur deux pan inclinés il se raccordent nickel au faitage Phil

bonjour je voudrais créer une toiture etanche bi couches 1.78°=3.1% sur bac acier et voir le bac acier quand on coupe dedans Siplast ou Soprema donne les multicouches comme il convient, mais il n'y a pas le bac acier pour le bac acier, j'ai vu sur le net que l'on peu le creer avec toiture vitree et remplacer les panneaux par un profil de bac( pas testé encore ) mais comment avoir les deux en meme temps ? faire un toit en bac acier et faire par dessus un autre toit avec le complexe d'étanchéité ? et les attacher l'un a l'autre ? pour que les fenetres de toiture traversent les deux toits merci Phil

Hello je vois que Didier est plus réveillé que moi la tout décarcassé Phil

hello Tramber mercii hoo punaisee (defun c:liste_point () (setq listepoint nil) (while (setq poi (getpoint "\nPOINT DE REFERENCE"))(setq listepoint (cons poi listepoint)) ) ) phil

Bonjour je cherche a faire une liste de point en cliquant sur les extremitées, intersections ou autres. tant que je clique, ca fait la liste je pensais qu'avec ca ca marcherai, mais non une autre idée ? (defun c:liste_point () (setq listepoint nil) (command (setq poi (getpoint "\nPOINT DE REFERENCE")) (while (> (getvar "cmdactive") 0) (command pause)) (cons poi listepoint) ) ) Phil

Bonjour j'ai une porte créée sur un hote mur que je voudrais transformer en famille sur hote face dans mon projet j'ai des murs et aussi des panneaux beton. les panneaux beton je voudrais utiliser la famille poutre, pour mieux en sortir un listing ensuite sauf que ma porte je peux la mettre dans les murs mais pas dans les panneaux il y a bien une video sur le net qui explique cela, mais ca ne fonctionne pas. comment fait vous ? refaire la famille de la porte ? est ce qu'il faut mieux créer ses familles sans hote, et que par face ou avoir une famille porte par hote mur et la meme par face ? a+ Phil

bonjour CADMIN en passant a l'année prochaine ? Phil

hello Youpla on ne sait pas de combien tu veux décalé, et combien de fois aussi j'avoue dans le lisp je n'ai pas forcé la ligne en continuous, il te suffit de mettre le calque "0" en continuous, les entités dedans qui doivent etre en "ducalque" seront en continuous de fait a+ Phil

hello Youpla petit lisp le premier copie le deuxieme décale sur le calque "0" et force en "jaune" tu rentres la liste des décalages et tappe "0" pour en sortir ;;;;------------------ ;;;; copier des entites suivant une liste de valeur qui s'additionne ;;;;------------------ (defun c:licpazerojaune () (prompt "COPIE DES ENTITES SUIVANT UNE LISTE DONNEES QUI S'ADDITIONNENT :") (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (listedecalage) (prompt "DONNER DEUX POINT POUR LA DIRECTION DES COPIES :") (initget 1) (setq p1 (getpoint "\nPOINT DE LA BASE DE LA DIRECTION :")) (initget 1) (setq p2 (getpoint p1 "\nPOINT DE DIRECTION :")) (setq direct (angle p1 p2)) (prompt "\nCLIQUER SUR LES OBJETS A COPIER :") (setq entites nil) (while (null entites) (setq entites (ssget))) (setvar "osmode" 0) (setq compt 0) (setq com (sslength entites)) (while (< compt com) (progn (setq obj (ssname entites compt)) (setq decalageadd 0) (foreach elem listedeca (setq decalageadd (+ decalageadd elem)) (command-s "COPIER" obj "" p1 (polar p1 direct decalageadd)) (vla-put-layer (vlax-ename->vla-object (entlast)) "0") (vla-put-color (vlax-ename->vla-object (entlast)) 2) ) ) (setq compt (1+ compt)) ) (setvar "osmode" osm) (princ) ) ;;;;------------------ ;;;; decaler des entites suivant une liste valeur de decalage qui s'additionne et un point de direction en changeant la calque ;;;;------------------ (defun c:likpazerojaune () (prompt "DECALE DES ENTITES SUIVANT UNE LISTE DONNEES QUI S'ADDITIONNENT ET CHANGEANT LA CALQUE:") (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (listedecalage) (prompt "\nCLIQUER SUR LES OBJETS A DECALER :") (setq entites nil) (while (null entites) (setq entites (ssget))) (setvar "osmode" 0) (setq poi1 nil) (while (null poi1) (setq poi1 (getpoint "\nPOINT DE DECALAGE"))) (setq compt 0) (setq com (sslength entites)) (while (< compt com) (progn (setq obj (ssname entites compt)) (setq decalageadd 0) (foreach elem listedeca (setq decalageadd (+ decalageadd elem)) (command "DECALER" decalageadd obj poi1 "") (vla-put-layer (vlax-ename->vla-object (entlast)) "0") (vla-put-color (vlax-ename->vla-object (entlast)) 2) ) ) (setq compt (1+ compt)) ) (setvar "osmode" osm) (princ) ) (defun listedecalage () (setq sortie 1) (setq listedeca nil) (setq element nil) (setq compt1 1) (setq decalage1 (atof (getcfg "APPDATA/DECALAGE1"))) (while (/= sortie 0) (setq element (getreal (strcat "\nENTRER LA VALEUR DE DECALAGE [ 0 pour sortir ]" (rtos compt1 2 0) " <" (rtos decalage1 2 8) ">: ") ) ) (if (= element 0) (setq sortie 0) (progn (if (/= element nil) (setq decalage1 element) ) (setq listedeca (cons decalage1 listedeca)) ) ) (setq compt1 (1+ compt1)) ) (setcfg "APPDATA/DECALAGE1" (rtos decalage1 2 8)) (setq listedeca (reverse listedeca)) ) phil

hello + 1 ( fois 100 000 000 ) avec Lecrabe d'ou est ce que deja ca vient cette idée de vouloir dessiner sur un calque qui s'appelle "zero" = 0 = rien = que dalle y'en a meme qui dessine sur "defpoint" meme les entités d'un bloc sur "zero" ca signifie que l'on ne sait pas ce que l'on dessine. quand vous récuperer les fichers des autres le nom du calque vous renseigne de se a quoi ce trait correspond. surtout quand certains se chevauche. quand on bossait sur calque, le type de trait, son épaisseur, signifiait quelque chose. et surtout ramener un fichier en xref, le calque zero du fils se superpose avec le calque zero du pere alors quand vous avez 25 xref, geler le calque zero, se répercute sur 25 fichiers, vrai ou faux ? petit coup de chaud du matin detendu B) haaa ca va mieux bonne journée Phil

HELLO est il possible de comparer deux blocs de noms différents pour savoir s'ils sont identique j'ai utilisé "DWG COMPARE" puis importé des entités d'un fichier a l'autre et je me retrouve avec des blocs dont le nom commence par "$0$" ou "$1$" hors je sais que j'ai de blocs identiques dans se fichier qui on des noms sans "$0$" ou "$1$" je voudrais les comparer et s'ils sont identique remplacer les "$0$ ... " par l'autre ce qui pourrait etre utile pour les fichiers issus de ARCHICAD bon week end Phil

hello si je ne me trompe, la fonction "AD" et "ADF" n'influence en rien l'attribut A1 donc normal que tout reste a 0 non? a+ Phil

hello je ne connais pas "AD" peut etre que tu ne travailles pas a la meme echelle, l'un en metre, l'autre en centimetre, pas non plus de chiffres apres la virgule, donc pas de difference entre 0.02 et 0.05 metres, ca reste tjrs 0 metres sans chiffres apres la virgule a+ phil

hello lolo les deux points de déplacement ne servent a rien car tu as une action de deplacement avec la ditance sur un parametre de déplacement tu as ceinture et bretelle en quelque sorte tu pousses le tracteur qui pousse la charrette, autant pousser la charrette directement a+ Phil

hello LOLO78f simplifie ton bloc pour la rotation fait "nouveau jeu de selection" en choisissant un par un les rectangles ou a la volée ca devrait marcher aussi supprime les deux points de déplacements, car tu fais des redondances avec pour la distance, pointe l'extremité du premier rectangle ( au milieu ), puis l'extremité du 3 ieme rectangle ( au miieu ), tu auras une distance exacte comme ca comme tu l'as déja fait tu as un parametre de deplacement suivant cette distance tu en fait un a echelle 1 pour le rectangle interieur en le selectionnant tu en fais un second a echelle 0.5 pour le rectangle placer en second en le selectionnant ca devrait marcher ca marche chez moi a+ Phil

hello tite question tu travailles en metres ou en centimetres ? Phil

HELLO LECRABE ca date mais bon un truc comme ca ? apres test fonctionne si le bloc ou l'Xref ne contient pas de bloc ou xref cette version marche ;;;------------------------------------------ ;;;EXTRAIRE DES ENTITEES D'UN BLOC OU XREF ;;;------------------------------------------ (defun c:extraire_entite_xref_bloc () (setq osm (getvar "osmode")) (prompt "\nVEUILLEZ SELECTIONNER UN XREF OU BLOC POUR L'EXTRACTION D'ENTITES ") (command-s "-editref" pause "" "OK" "T" "N") (prompt "\nCLIQUER SUR LES OBJETS A EXTRAIRE:") (setq obj nil) (while (null obj) (setq obj (ssget))) (setvar "osmode" 0) (command-s "ALIGNER3D" obj "" "c" "0,0,0" "100000,0,0" "" "0,0,0" "100000,0,0" "q") (command-s "_refset" "S" obj "") (command-s "_refclose" "e") (setvar "osmode" osm) ) s'il y a des bloc ou xref dans le bloc ou l'xref cette version ouvrira la boite de dialogue pour choisir le bloc "enfant" ou "papa" ;;;------------------------------------------ ;;;EXTRAIRE DES ENTITEES D'UN BLOC OU XREF ;;;------------------------------------------ (defun c:extraire_entite_xref_bloc () (setq osm (getvar "osmode")) (prompt "\nVEUILLEZ SELECTIONNER UN XREF OU BLOC POUR L'EXTRACTION D'ENTITES ") (command-s "editref") (prompt "\nCLIQUER SUR LES OBJETS A EXTRAIRE:") (setq obj nil) (while (null obj) (setq obj (ssget))) (setvar "osmode" 0) (command-s "ALIGNER3D" obj "" "c" "0,0,0" "100000,0,0" "" "0,0,0" "100000,0,0" "q") (command-s "_refset" "S" obj "") (command-s "_refclose" "e") (setvar "osmode" osm) ) a+ Phil