PHILPHIL

HELLO meme manip que le lisp "numero" avec le lisp de gile ca marche impec il te suffit d'ecrire ton numero avant "1" ou "01" ou "001" de le copier autant de fois que tu veux et apres tu passes le lisp de gile sur tes chiffres et ca incremente sans probleme 1=> 2=> 3=>4 01=> 02=>03=>04 001 => 002=>003=>004 les zero sont garder en premier on dit quoi ?? merci Gilee phil

hello tous bon c'est pas un poisson pour demain mais c'est bientot le printemps et la nouvelle version d'autocad 2009 ( ouai je l'ai tjrs pas recu peut etre parce que c'est " autodesk architecture" ) breff il y a t'il un LISP pour faire ce grand menage ? c'est a dire 10 ans de fichiers dans beaucoup de sous repertoire a purger, a rendre plus petits en taille donc et a sauvegarder en version "2007" "2008" ... derniere version quoi j'ai essaye "super purge" pour mes fichiers ( un par un ) mais il bloque il ne doit pas aimer les "AEC" ou alors les "PROPRIETES D'AFFICHAGE NON UTILISEES" quelqu'un a t'il une idée ?? merci phil

salut tu bosses dans quel pays ???? car en france pour un permis de construire plus besoin de donner les plans interieur des batiments seulement les facades et la SHOB SHON exactes bien sur d'ou le besoin de faire les plans quand meme bon puise que tes batimenst sont symetrique fait la symetrie dans chaque fichier XREF et quand tu dois changer un truc tu effaces de l'autre cote et refait le miroir a chaque fois mais tu as du creer un beau bordel quand meme a vouloir faire plein d'XREF ou alors j'ai pas tout piger dans ton explication phil

HELLO ok gile merci reste plus qu'a phil

bonjour y a t'il une fonction pour trier une liste de points ( ascendante, descendante ) suivant X ou Y ??? finalite creer un LISP pour ajouter ou retirer des points dans une serie de cotes le truc existe deja dans autocad mais n'est pas terrible terrible bonne soirée merci phil

bonjour y a t'il une fonction pour trier une liste de points ( ascendante, descendante ) suivant X ou Y ??? finaliter creer un LISP pour ajouter ou retirer des points dans une serie de cotes le truc existe deja dans autocad mais n'est pas terrible terrible bonne soirée merci phil

hello petite precision sur les blocs dynamiques les petites fleches et autres moyens de modification des blocs disparaissent aussi bien sur la fenetre de dessin que dans la fenetre des proprietes quand les echelles X,Y,Z ne sont pas exatement les meme phil

HELLO ok gile ca marche merci lili2006, ce lisp est juste une modification du lisp " ALT" ( alignement des textes ) que tu avais deja essayé pour un alignement sur l'axe des X : entree X pour un alignement sur l'axe des Y : entree Y si tu rentres un aligement sur Y une valeurs pour les decalages "50" par exemple ca empile les blocs tout les 50 unites si decalage egal "0" ca alignement les bloc sur l'axe Y en modifiant la position des X le decalage peut etre negatif aussi OK ??? phil

bonjour bsed67 bonne question de la part de oliverts comment tu fais en vlisp pour retrouver le nom d'origine ?? j'ai cherche dans un bloc avec visual lips " ENA1 " dans toute l'arborescence impossible de retouver le nom de base du bloc (defun c:inf () (vl-load-com) (setq ent1 (car (nentsel "\rSELECTIONNER UNE ENTITE POUR INFO1."))) (setq CODE1 (cdr (assoc -1 (entget ent1)))) (SETq ena1 (vlax-ename->vla-object code1)) (vlax-dump-object ena1) ((vla-get-ModelSpace acadDocument) 'vlax-dump-Object) ) j'ai un autre souci de bloc dans un lisp pour aligner des blocs je change la reference " 10 " du bloc sauf que les attributs ne change pas de place normal ?? pas normal ??? il y a une variable cache dans autocad pour que les attributs bougent en fonction de ma modification du point de base du bloc ?? phil ; --------------------------------------------------- ; ALIGNEMENT DES BLOCS AVEC POSSIBILITE DE COPIE ; --------------------------------------------------- (defun C:ALB (/ ENTX) (setvar "cmdecho" 0) (command "scu" "") (setq COPIETEXT (getcfg "APPDATA/COPIETEXT")) (setq TYPEALGN (getcfg "APPDATA/TYPEALGN")) (setq DALTX (atof (getcfg "APPDATA/DALTX"))) (setq DALTY (atof (getcfg "APPDATA/DALTY"))) (initget "X Y XY") (setq TMP (getkword (strcat "\nENTRER LE PLAN DE PROJECTION (X) (Y) (XY) ACTUELLEMENT <" TYPEALGN "> : " ) ) ) (if TMP (setq TYPEALGN TMP) ) (setq TMP1 (getdist (strcat "\nENTRER LA VALEUR DU DECALAGE DES BLOCS SUR X DESIRE <" (rtos DALTX 2 8) ">: " ) ) ) (if TMP1 (setq DALTX TMP1) ) (setq TMP1 (getdist (strcat "\nENTRER LA VALEUR DU DECALAGE DES BLOCS SUR Y DESIRE <" (rtos DALTY 2 8) ">: " ) ) ) (if TMP1 (setq DALTY TMP1) ) (initget "oui OUI o O non NON n N") (setq TMP (getkword (strcat "\nVOULEZ VOUS FAIRE DES COPIES DES BLOCS ( O(UI) / N(ON) ) <" COPIETEXT "> : " ) ) ) (if TMP (setq COPIETEXT TMP) ) (setq ENTX NIL) (prompt "\nSELECTIONNER LE(S) BLOC(S) A MODIFIER :") (while (null ENTX) (setq ENTX (ssget '((0 . "INSERT")))) ) (setq POINTREF (getpoint (strcat "\nENTRER LE POINT DE REFERENCE POUR L'ALIGNEMENT : " ) ) ) (setq XPOINTREF (car POINTREF)) (setq YPOINTREF (cadr POINTREF)) (if (or (= COPIETEXT "oui") (= COPIETEXT "OUI") (= COPIETEXT "o") (= COPIETEXT "O") ) (command "COPIER" ENTX "" "0,0" "0,0") ) (setq COMPT 0) (setq COM (sslength ENTX)) (while (< COMPT COM) (progn (setq ENT (entget (ssname ENTX COMPT))) (progn (if (= TYPEALGN "X") (if (= DALTX 0) (setq ENT (subst (cons 10 (list (car (cdr (assoc 10 ENT))) YPOINTREF 0) ) (assoc 10 ENT) ENT ) ) (setq ENT (subst (cons 10 (list (+ XPOINTREF (* COMPT DALTX)) YPOINTREF 0 ) ) (assoc 10 ENT) ENT ) ) ) ) (if (= TYPEALGN "Y") (if (= DALTY 0) (setq ENT (subst (cons 10 (list XPOINTREF (cadr (cdr (assoc 10 ENT))) 0) ) (assoc 10 ENT) ENT ) ) (setq ENT (subst (cons 10 (list XPOINTREF (- YPOINTREF (* COMPT DALTY)) 0 ) ) (assoc 10 ENT) ENT ) ) ) ) (if (= TYPEALGN "XY") (setq ENT (subst (cons 10 (list (+ XPOINTREF (* COMPT DALTX)) (- YPOINTREF (* COMPT DALTY)) 0 ) ) (assoc 10 ENT) ENT ) ) ) ) (entmod ENT) (command "_attsync" "_n" (cdr (assoc 2 ent))) (setq COMPT (1+ COMPT)) ) ) (command "scu" "p") (setcfg "APPDATA/COPIETEXT" COPIETEXT) (setcfg "APPDATA/TYPEALGN" TYPEALGN) (setcfg "APPDATA/DALTX" (rtos DALTX 2 8)) (setcfg "APPDATA/DALTY" (rtos DALTY 2 8)) (princ) ) [Edité le 12/3/2008 par PHILPHIL]

LECRABE Ba si un 24 pouces et deux 17 pouces et je confirme un 24 pouces avec seulement la fenetre pour bosser et le 17 pouces avec que les icones et proprietes c'est genial mais j'irais bien au 30 pouces héhéhé phil

SALUTT Tres longtps apres la bataille alors gile j'ai ca comme réponse au test sur un gros fichier Commande: SPURGE *Annuler* Erreur Automation Identificateur d’objet nul je suis sous autodesk architecture 2008 y'a peut etre un probleme avec les "AEC" ???? il n'y avait pas quelqu'un qui avait essayer de faire un lisp de purge aussi pour plusieurs fichier a la fois ?? j'ai 10 ans de fichiers dwg a purger il va peut etre etre tps de les resauvegarder et mettre a jour version 2008 2009 2010 phil

WAHOUUU JOLI on va pas tarder a envisager un 3 ieme ecrans alors a ce rythme ca va faire jolie sur le bureau ou sinon super compliquer pour ceux qui ont encore un 17pouces a voir a l'utilisation mais ils feraient pas mieux de corriger tous les beuks et petits programmes qui s'integrent tres mal "des fois" dans les LISP et qui sont cacher avant de s'attaquer a l'interface visible phil

salut si tes cotes ne suivent pas en faisant un deplacement ou une rotation c'est peut etre parce qu'elles sont associees phil [Edité le 31/1/2008 par PHILPHIL]

Bonsoir si comme moi a force de manipuler les cotes copier coller realignement en copiant vous vous retrouvez a avoir le texte des cotes la tete en bas voici un petit LISp à essayer y'a surement des ameliorations qu'il faudrat que j'apporte phil corrections de frappe dans le lisp ; ----------------- ; REVERSE LES COTES ; ----------------- (defun C:REC (/ ANGCOTE CALQCOTE CAV CODEMPLA COM COMPT ENT ENTX LONGCOTE POINT10 POINT11 POINT13 POINT14 STYLECOTE STYLECOTEBASE) (setvar "cmdecho" 0) (setq OSM (getvar "osmode")) (setvar "osmode" 0) (setq CAV (getvar "clayer")) (setq STYLECOTEBASE (getvar "dimstyle")) (prompt "\nCLIQUER SUR LE(S) COTE(S) A MODIFIER :") (setq ENTX NIL) (while (null ENTX) (setq ENTX (ssget '((0 . "DIMENSION"))))) (setq COMPT 0) (setq COM (sslength ENTX)) (while (< COMPT COM) (progn (setq ENT (entget (ssname ENTX COMPT))) (setq NONENT (cdr (assoc -1 ENT)) STYLECOTE (cdr (assoc 3 ENT)) CALQCOTE (cdr (assoc 8 ENT)) POINT10 (trans (cdr (assoc 10 ENT)) 0 1) POINT11 (trans (cdr (assoc 13 ENT)) 0 1) POINT13 (trans (cdr (assoc 13 ENT)) 0 1) POINT14 (trans (cdr (assoc 14 ENT)) 0 1) ANGCOTE (cdr (assoc 50 ENT)) LONGCOTE (cdr (assoc 42 ENT)) CODEMPLA (cdr (assoc 70 ENT)) ASX1 (car (getvar "ucsxdir")) ASX2 (cadr (getvar "ucsxdir")) ) (if (and (= ASX1 1) (= ASX2 0)) (setq ANGSCU 0) ) (if (and (and (< ASX1 1) (> ASX1 0)) (and (< ASX2 1) (> ASX2 0)) ) (setq ANGSCU (atan (/ ASX2 ASX1))) ) (if (and (= ASX1 0) (= ASX2 1)) (setq ANGSCU (/ pi 2)) ) (if (and (and (< ASX1 0) (> ASX1 -1)) (and (< ASX2 1) (> ASX2 0)) ) (setq ANGSCU (- (atan (/ ASX2 ASX1)) pi)) ) (if (and (= ASX1 -1) (= ASX2 0)) (setq ANGSCU (* 2 pi)) ) (if (and (and (< ASX1 0) (> ASX1 -1)) (and (< ASX2 0) (> ASX2 -1)) ) (setq ANGSCU (+ (atan (/ ASX2 ASX1)) pi)) ) (if (and (= ASX1 0) (= ASX2 -1)) (setq ANGSCU (+ pi (/ pi 2))) ) (if (and (and (< ASX1 1) (> ASX1 0)) (and (< ASX2 0) (> ASX2 -1)) ) (setq ANGSCU (atan (/ ASX2 ASX1))) ) (setq ANGCOTEDEGRE (angtos (- ANGCOTE ANGSCU) 0 10)) (command "-calque" "ch" CALQCOTE "") (command "-dimstyle" "R" STYLECOTE) (command "cotlin" POINT13 POINT14 "r" ANGCOTEDEGRE POINT10) (command "effacer" NONENT "") (setq COMPT (1+ COMPT)) ) ) (setvar "osmode" OSM) (setvar "clayer" CAV) (command "-dimstyle" "R" STYLECOTEBASE) (princ) ) [Edité le 30/1/2008 par PHILPHIL]

hello meme reponse perte des textes a l'ecran dans une fenetre delimiteé sous autodesk architectre 2008 sous VISTA de M.... oupsss pardon billl mais avec un zoom etendu sur la presentation on vois bien que le texte est la je pensais que ca venais de ma carte graphique ma voila a demie rassuré la dessus faut il une typo speciale "VISTA" ???? en arial phil

HELLO grand merci bred ca marche y'a un tit lisp aussi que j'aimerais bien faire certains quand ils dessinent de cotes superposent les points d'accroche des lignes d'attache avec les points de la ligne de cote ce qui fait qu'il n'y ait plus que deux grips par cote exepte celui du texte et donc plus du tout de ligne d'attache c'est peut etre bcp plus rapide pour tout coter sur une seule ligne mais franchement en...... quand il sagit de modifier ses dites cotes un tit lisp permettant de separer les 4 grips des cotes de facons distinctes serait sympa quitte apres à devoir reprendre chaque point des lignes d'attache sur des extremites d'entites comme tous bon dessinateurs devrait le faire phil

bonjour nouvelle fonction dans 2008 cette fonction permet de realigner les ligne de cotes entre elles si on donne "0" comme reference ou si sur "auto" les cotes sont espacées de deux fois la hauteur de texte de la cote de base phil

bonjour petit souci de lisp ce petit lisp ne fonctionne pas faut absolument que je tappe sur le "zero" pour qu'il marche alors que "zero" est dans le programme mystere ?? ou bug ??? la fonction "' dimspace" n'est elle pas programmable ???? phil ;; ----------------- ;; ALIGNE LES COTES LES AUTRES PAR RAPPORT A UNE ;; ----------------- (defun C:COA () (setvar "cmdecho" 0) (command "_DIMSPACE" pause (while (> (getvar "cmdactive") 0) (command PAUSE)) "0") (princ) )

bonjour constat : en modifiant l'echelle ou sa rotation le bloc reste dynamique avec le panneau des proprietes mais on ne vois plus les poignées et la ba GRRRRRRRRRRR a autodesk attente avec impatience version 2009 2010 monsieur "DESK" phil

salut patrick ba il doit etre en vacances chacun a droit d'en prendre et chacun a droit aussi de ne pas en prendre lollll moi je dis si c'est un probleme de serveurs pas assez rapide vue que nous sommes 40 000 inscrits sur le site et que 10% d'entre nous beneficie du site si 1% d'entre nous lui verse 1euros a patrick avec ca il achete un super serveur et cadxp sera super rapide 4 000 euros ca devrait le faire non ?? patrick 2euros ?? ok pas de souci phil

salut ca demande a etre nettement amelirorer comme LISP mais ca te recrer la cote dans le bon sens faut mettre le scu dans le sens de la vue de ta facade ou de ta coupe enfin celle qui sont a l'horizontale le texte la tete en bas phil ; ----------------- ; REVERSE LES COTES ; ----------------- (defun C:REC (/ ANGCOTE CALQCOTE CAV CODEMPLA COM COMPT ENT ENTX LONGCOTE POINT10 POINT11 POINT13 POINT14 STYLECOTE STYLECOTEBASE ) (setvar "cmdecho" 0) (setq CAV (getvar "clayer")) (setq STYLECOTEBASE (getvar "dimstyle")) (prompt "\nCLIQUER SUR LE(S) COTE(S) A MODIFIER :") (setq ENTX NIL) (while (null ENTX) (setq ENTX (ssget (list (cons -4 " [b] <[/b]or") (cons 0 "DIMENSION") (cons -4 "or>")) ) ) ) (setq COMPT 0) (setq COM (sslength ENTX)) (while (< COMPT COM) (progn (setq ENT (entget (ssname ENTX COMPT))) (setq NONENT (cdr (assoc -1 ENT)) STYLECOTE (cdr (assoc 3 ENT)) CALQCOTE (cdr (assoc 8 ENT)) POINT10 (trans (cdr (assoc 10 ENT)) 0 1) POINT11 (trans (cdr (assoc 13 ENT)) 0 1) POINT13 (trans (cdr (assoc 13 ENT)) 0 1) POINT14 (trans (cdr (assoc 14 ENT)) 0 1) ANGCOTE (cdr (assoc 50 ENT)) LONGCOTE (cdr (assoc 42 ENT)) CODEMPLA (cdr (assoc 70 ENT)) ) (command "-calque" "ch" CALQCOTE "") (command "-dimstyle" "R" STYLECOTE) (command "cotlin" POINT13 POINT14 POINT10) (command "effacer" NONENT "") (setq COMPT (1+ COMPT)) ) ) (setvar "clayer" CAV) (command "-dimstyle" "R" STYLECOTEBASE) (princ) )

salut gile comme d'habbb ca marche d'enfer merci phil

salut gile si je comprend bien tes lisp "SSOF" et "SSOC" ils marchent comme selection avec options SSOF = select + sp SSOC = select + cp quand sur un tres grand plan je veux etirer des objets assez petit je fais "etirer" + cp avec des zoom à la molette ( avant arriere ) par contre ca a tendance a force a perdre quelque points de capture et ne plus tous selectionner les grips des objets a etirer est ce qu'il est possible de faire un mixte entre la focntion "etirer" et tes lisp "SSOC" "SSOF" 1 créer une polyligne fermée hors lisp incluant les objets que l'on veux etirer lancer le lisp 2 lancer la fonction "etirer" 3 sélectionner la polyligne créer precedement qui selectionne les grips des objets a l'interieur de la polyligne ( qui correspondrait a "CP" sans avoir besoin de zoomer ) 4 donner la distance direction d'etirement 5 supression de la polyligne de selection possible ca ??? bonne journée phil

Salut gile petit souci chez moi pour la derniere version autocdeskarchi2008 me renvoie ca : CT modifier en CADT MAST modifier en MT obliger d'attaquer les racourcis clavier a 4 5 lettres les deux lettre sont epuisés Commande: CADT *Annuler* type d'argument incorrect: listp 256 Commande: MAST *Annuler* type d'argument incorrect: listp 3 phil

ok gile ca devrait marcher j ai fait la simplification / variante de gile et ca devrait regler le probleme du "<" gile tu avais une autre solution plus visualisp ??? pour ce qui est des données perso elle s'enregistre a la fin donc pas de souci si personne ne les a au debut ; --------------------------------------------------- ; ALIGNEMENT DES TEXT MTEXT AVEC POSSIBILITE DE COPIE ; --------------------------------------------------- (defun C:ALT (/ ENTX) (command "scu" "") (setvar "cmdecho" 0) (setq COPIETEXT (getcfg "APPDATA/COPIETEXT")) (setq TYPEALGN (getcfg "APPDATA/TYPEALGN")) (setq DALTX (atof (getcfg "APPDATA/DALTX"))) (setq DALTY (atof (getcfg "APPDATA/DALTY"))) (initget "X Y XY") (setq TMP (getkword (strcat "\nENTRER LE PLAN DE PROJECTION (X) (Y) (XY) ACTUELLEMENT <" TYPEALGN "> : " ) ) ) (if TMP (setq TYPEALGN TMP) ) (setq TMP1 (getdist (strcat "\nENTRER LA VALEUR DU DECALAGE DE TEXTE SUR X DESIRE <" (rtos DALTX 2 8) ">: " ) ) ) (if TMP1 (setq DALTX TMP1) ) (setq TMP1 (getdist (strcat "\nENTRER LA VALEUR DU DECALAGE DE TEXTE SUR Y DESIRE <" (rtos DALTY 2 8) ">: " ) ) ) (if TMP1 (setq DALTY TMP1) ) (initget "oui OUI o O non NON n N") (setq TMP (getkword (strcat "\nVOULEZ VOUS FAIRE DES COPIES DU TEXTE OU MTEXT ( O(UI) / N(ON) ) <" COPIETEXT "> : " ) ) ) (if TMP (setq COPIETEXT TMP) ) (setq ENTX NIL) (prompt "\nSELECTIONNER LE(S) TEXTE(S) A MODIFIER :") (while (null ENTX) (setq ENTX (ssget '((0 . "*TEXT")))) ) (setq POINTREF (getpoint (strcat "\nENTRER LE POINT DE REFERENCE POUR L'ALIGNEMENT : ") ) ) (setq XPOINTREF (car POINTREF)) (setq YPOINTREF (cadr POINTREF)) (if (or (= COPIETEXT "oui") (= COPIETEXT "OUI")) (command "COPIER" ENTX "" "0,0" "0,0") ) (setq COMPT 0) (setq COM (sslength ENTX)) (while (< COMPT COM) (progn (setq ENT (entget (ssname ENTX COMPT))) (if (= (cdr (assoc 0 ENT)) "TEXT") (setq CLEF72 (cdr (assoc 72 ENT)) CLEF73 (cdr (assoc 73 ENT)) ) (setq CLEF72 0 CLEF73 0 ) ) (if (and (= CLEF72 0) (= CLEF73 0)) (progn (if (= TYPEALGN "X") (if (= DALTX 0) (setq ENT (subst (cons 10 (list (car (cdr (assoc 10 ENT))) YPOINTREF 0) ) (assoc 10 ENT) ENT ) ) (setq ENT (subst (cons 10 (list (+ XPOINTREF (* COMPT DALTX)) YPOINTREF 0 ) ) (assoc 10 ENT) ENT ) ) ) ) (if (= TYPEALGN "Y") (if (= DALTY 0) (setq ENT (subst (cons 10 (list XPOINTREF (cadr (cdr (assoc 10 ENT))) 0) ) (assoc 10 ENT) ENT ) ) (setq ENT (subst (cons 10 (list XPOINTREF (- YPOINTREF (* COMPT DALTY)) 0 ) ) (assoc 10 ENT) ENT ) ) ) ) (if (= TYPEALGN "XY") (setq ENT (subst (cons 10 (list (+ XPOINTREF (* COMPT DALTX)) (- YPOINTREF (* COMPT DALTY)) 0 ) ) (assoc 10 ENT) ENT ) ) ) ) (progn (if (= TYPEALGN "X") (if (= DALTX 0) (setq ENT (subst (cons 11 (list (car (cdr (assoc 11 ENT))) YPOINTREF 0) ) (assoc 11 ENT) ENT ) ) (setq ENT (subst (cons 11 (list (+ XPOINTREF (* COMPT DALTX)) YPOINTREF 0 ) ) (assoc 11 ENT) ENT ) ) ) ) (if (= TYPEALGN "Y") (if (= DALTY 0) (setq ENT (subst (cons 11 (list XPOINTREF (cadr (cdr (assoc 11 ENT))) 0) ) (assoc 11 ENT) ENT ) ) (setq ENT (subst (cons 11 (list XPOINTREF (- YPOINTREF (* COMPT DALTY)) 0 ) ) (assoc 11 ENT) ENT ) ) ) ) (if (= TYPEALGN "XY") (setq ENT (subst (cons 11 (list (+ XPOINTREF (* COMPT DALTX)) (- YPOINTREF (* COMPT DALTY)) 0 ) ) (assoc 11 ENT) ENT ) ) ) ) ) (entmod ENT) (setq COMPT (1+ COMPT)) ) ) (command "scu" "p") (setcfg "APPDATA/COPIETEXT" COPIETEXT) (setcfg "APPDATA/TYPEALGN" TYPEALGN) (setcfg "APPDATA/DALTX" (rtos DALTX 2 8)) (setcfg "APPDATA/DALTY" (rtos DALTY 2 8)) (princ) ) [Edité le 16/11/2007 par PHILPHIL]