PHILPHIL

hello pixel61 lequel des deux ecrans est le principal et le secondaire ( le N°1 et le N°2 ) pour ta carte graphique ?? phil

hello pour réparer appuie sur la touche "majuscule" puis clique sur le balai de purge et puis decoche en bas a gauche ca devrait redevenir normal phil [Edité le 17/9/2008 par PHILPHIL]

hello petite contribution aux routines LISp doit falloir effacer l'espace apres les deux petits points (:) lancer "PARAPOLI" en premier rentrer les parametres de décalage et de calques puis "PPOLI" ensuite creer une premiere polyligne de réference normalement le reste suivra ameliorations en vue ??? ( demande de conseils aux pros du LISP et VLisp ici present ) integrer directement "parapoli" sur la ligne de commande de ppoli integrer le choix des calques avec le LISP de GILE (GETLAYER ) la je bloque .... décomposer les polylignes a la fin ????? ( nécéssaire ??? ) créer a partir de l'axe ?? plus difficile la si d'autre sugestions vous viennent ?? phil (DEFUN C: PARAPOLI () (SETQ OSM (GETVAR "osmode")) (SETQ DECAPOLI1 (ATOF (GETCFG "APPDATA/DECAPOLI1"))) (SETQ DECAPOLI2 (ATOF (GETCFG "APPDATA/DECAPOLI2"))) (SETQ DECAPOLI3 (ATOF (GETCFG "APPDATA/DECAPOLI3"))) (SETQ DECAPOLI4 (ATOF (GETCFG "APPDATA/DECAPOLI4"))) (SETQ TCALQPOLI0 (GETCFG "APPDATA/tcalqPOLI0")) (SETQ TCALQPOLI1 (GETCFG "APPDATA/tcalqPOLI1")) (SETQ TCALQPOLI2 (GETCFG "APPDATA/tcalqPOLI2")) (SETQ TCALQPOLI3 (GETCFG "APPDATA/tcalqPOLI3")) (SETQ TCALQPOLI4 (GETCFG "APPDATA/tcalqPOLI4")) (SETQ OBJET (ENTSEL (STRCAT "\nVEUILLEZ SELECTIONNER UN OBJET POUR LE CALQUE DE REFERENCE N° 0 : " TCALQPOLI0 " ") ) ) (IF OBJET (SETQ TCALQPOLI0 (CDR (ASSOC 8 (ENTGET (CAR OBJET))))) ) (SETQ TMP (GETDIST (STRCAT "\nENTRER LA VALEUR DE DECALAGE N° 1 <" (RTOS DECAPOLI1 2 8) ">: "))) (IF TMP (SETQ DECAPOLI1 TMP) ) (SETQ OBJET (ENTSEL (STRCAT "\nVEUILLEZ SELECTIONNER UN OBJET POUR LE CALQUE DE REFERENCE N° 1 : " TCALQPOLI1 " ") ) ) (IF OBJET (SETQ TCALQPOLI1 (CDR (ASSOC 8 (ENTGET (CAR OBJET))))) ) (SETQ TMP (GETDIST (STRCAT "\nENTRER LA VALEUR DE DECALAGE N° 2 <" (RTOS DECAPOLI2 2 8) ">: "))) (IF TMP (SETQ DECAPOLI2 TMP) ) (SETQ OBJET (ENTSEL (STRCAT "\nVEUILLEZ SELECTIONNER UN OBJET POUR LE CALQUE DE REFERENCE N° 2 : " TCALQPOLI2 " ") ) ) (IF OBJET (SETQ TCALQPOLI2 (CDR (ASSOC 8 (ENTGET (CAR OBJET))))) ) (SETQ TMP (GETDIST (STRCAT "\nENTRER LA VALEUR DE DECALAGE N° 3 <" (RTOS DECAPOLI3 2 8) ">: "))) (IF TMP (SETQ DECAPOLI3 TMP) ) (SETQ OBJET (ENTSEL (STRCAT "\nVEUILLEZ SELECTIONNER UN OBJET POUR LE CALQUE DE REFERENCE N° 3 : " TCALQPOLI3 " ") ) ) (IF OBJET (SETQ TCALQPOLI3 (CDR (ASSOC 8 (ENTGET (CAR OBJET))))) ) (SETQ TMP (GETDIST (STRCAT "\nENTRER LA VALEUR DE DECALAGE N° 4 <" (RTOS DECAPOLI4 2 8) ">: "))) (IF TMP (SETQ DECAPOLI4 TMP) ) (SETQ OBJET (ENTSEL (STRCAT "\nVEUILLEZ SELECTIONNER UN OBJET POUR LE CALQUE DE REFERENCE N° 4 : " TCALQPOLI4 " ") ) ) (IF OBJET (SETQ TCALQPOLI4 (CDR (ASSOC 8 (ENTGET (CAR OBJET))))) ) (SETCFG "APPDATA/DECAPOLI1" (RTOS DECAPOLI1 2 8)) (SETCFG "APPDATA/DECAPOLI2" (RTOS DECAPOLI2 2 8)) (SETCFG "APPDATA/DECAPOLI3" (RTOS DECAPOLI3 2 8)) (SETCFG "APPDATA/DECAPOLI4" (RTOS DECAPOLI4 2 8)) (SETCFG "APPDATA/TCALQPOLI0" TCALQPOLI0) (SETCFG "APPDATA/TCALQPOLI1" TCALQPOLI1) (SETCFG "APPDATA/TCALQPOLI2" TCALQPOLI2) (SETCFG "APPDATA/TCALQPOLI3" TCALQPOLI3) (SETCFG "APPDATA/TCALQPOLI4" TCALQPOLI4) (SETVAR "osmode" OSM) (PRINC) ) (defun C: PPOLI (/ ) (setvar "cmdecho" 0) (setq CAV (getvar "clayer")) (SETQ DECAPOLI1 (ATOF (GETCFG "APPDATA/DECAPOLI1"))) (SETQ DECAPOLI2 (ATOF (GETCFG "APPDATA/DECAPOLI2"))) (SETQ DECAPOLI3 (ATOF (GETCFG "APPDATA/DECAPOLI3"))) (SETQ DECAPOLI4 (ATOF (GETCFG "APPDATA/DECAPOLI4"))) (SETQ TCALQPOLI0 (GETCFG "APPDATA/tcalqPOLI0")) (SETQ TCALQPOLI1 (GETCFG "APPDATA/tcalqPOLI1")) (SETQ TCALQPOLI2 (GETCFG "APPDATA/tcalqPOLI2")) (SETQ TCALQPOLI3 (GETCFG "APPDATA/tcalqPOLI3")) (SETQ TCALQPOLI4 (GETCFG "APPDATA/tcalqPOLI4")) (SETQ NBPOLI (ATOI (GETCFG "APPDATA/NBPOLI"))) (initget "2 3 4 5") (SETQ TMP (GETINT (STRCAT "\nENTRER LE LE NB DE POLYLIGNE EN TOUT UNE FOIS LES DECALAGES EFFECTUES <" (RTOS NBPOLI 2 0) ">: "))) (IF TMP (SETQ NBPOLI TMP) ) (command "-calque" "ac" TCALQPOLI0 "") (command "-calque" "ch" TCALQPOLI0 "") (command "polylign" (while (> (getvar "cmdactive") 0) (command PAUSE))) (setq OSM (getvar "osmode")) (setvar "osmode" 0) (command "scu" "") (setq POREF1 (entlast)) (setq ENTITEPOINTS (mapcar 'cdr (vl-remove-if-not '(lambda (X) (= (car X) 10)) (entget POREF1))) PT1 (car ENTITEPOINTS) PT2 (cadr ENTITEPOINTS) ) (setq ANGLEPL (angle PT1 PT2)) (setq PTGAUCHE (polar PT1 (+ ANGLEPL (/ pi 2)) 10)) (setq PTDROITE (polar PT1 (- ANGLEPL (/ pi 2)) 10)) (IF (= NBPOLI 2) (PROGN (COMMAND "DECALER" DECAPOLI1 POREF1 PTGAUCHE "") (SETQ PONOU1 (ENTLAST)) (SETQ PONOU1A (ENTGET (ENTLAST))) (SETQ PONOU1A (SUBST (CONS 8 TCALQPOLI1) (ASSOC 8 PONOU1A) PONOU1A)) (ENTMOD PONOU1A) (INITGET "O N") (SETQ ANS (GETKWORD "\nEST CE LE BON COTE ? (O/N):")) (IF (= ANS "N") (PROGN (COMMAND "EFFACER" PONOU1 "") (COMMAND "DECALER" DECAPOLI1 POREF1 PTDROITE "") (SETQ PONOU1A (ENTGET (ENTLAST))) (SETQ PONOU1A (SUBST (CONS 8 TCALQPOLI1) (ASSOC 8 PONOU1A) PONOU1A)) (ENTMOD PONOU1A) ) ) ) ) (IF (= NBPOLI 3) (PROGN (COMMAND "DECALER" DECAPOLI1 POREF1 PTGAUCHE "") (SETQ PONOU1 (ENTLAST)) (SETQ PONOU1A (ENTGET (ENTLAST))) (SETQ PONOU1A (SUBST (CONS 8 TCALQPOLI1) (ASSOC 8 PONOU1A) PONOU1A)) (ENTMOD PONOU1A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2) POREF1 PTGAUCHE "") (SETQ PONOU2 (ENTLAST)) (SETQ PONOU2A (ENTGET (ENTLAST))) (SETQ PONOU2A (SUBST (CONS 8 TCALQPOLI2) (ASSOC 8 PONOU2A) PONOU2A)) (ENTMOD PONOU2A) (INITGET "O N") (SETQ ANS (GETKWORD "\nEST CE LE BON COTE ? (O/N):")) (IF (= ANS "N") (PROGN (COMMAND "EFFACER" PONOU1 PONOU2 "") (COMMAND "DECALER" DECAPOLI1 POREF1 PTDROITE "") (SETQ PONOU1A (ENTGET (ENTLAST))) (SETQ PONOU1A (SUBST (CONS 8 TCALQPOLI1) (ASSOC 8 PONOU1A) PONOU1A)) (ENTMOD PONOU1A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2) POREF1 PTDROITE "") (SETQ PONOU2A (ENTGET (ENTLAST))) (SETQ PONOU2A (SUBST (CONS 8 TCALQPOLI2) (ASSOC 8 PONOU2A) PONOU2A)) (ENTMOD PONOU2A) ) ) ) ) (IF (= NBPOLI 4) (PROGN (COMMAND "DECALER" DECAPOLI1 POREF1 PTGAUCHE "") (SETQ PONOU1 (ENTLAST)) (SETQ PONOU1A (ENTGET (ENTLAST))) (SETQ PONOU1A (SUBST (CONS 8 TCALQPOLI1) (ASSOC 8 PONOU1A) PONOU1A)) (ENTMOD PONOU1A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2) POREF1 PTGAUCHE "") (SETQ PONOU2 (ENTLAST)) (SETQ PONOU2A (ENTGET (ENTLAST))) (SETQ PONOU2A (SUBST (CONS 8 TCALQPOLI2) (ASSOC 8 PONOU2A) PONOU2A)) (ENTMOD PONOU2A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2 DECAPOLI3) POREF1 PTGAUCHE "") (SETQ PONOU3 (ENTLAST)) (SETQ PONOU3A (ENTGET (ENTLAST))) (SETQ PONOU3A (SUBST (CONS 8 TCALQPOLI3) (ASSOC 8 PONOU3A) PONOU3A)) (ENTMOD PONOU3A) (INITGET "O N") (SETQ ANS (GETKWORD "\nEST CE LE BON COTE ? (O/N):")) (IF (= ANS "N") (PROGN (COMMAND "EFFACER" PONOU1 PONOU2 PONOU3 "") (COMMAND "DECALER" DECAPOLI1 POREF1 PTDROITE "") (SETQ PONOU1A (ENTGET (ENTLAST))) (SETQ PONOU1A (SUBST (CONS 8 TCALQPOLI1) (ASSOC 8 PONOU1A) PONOU1A)) (ENTMOD PONOU1A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2) POREF1 PTDROITE "") (SETQ PONOU2A (ENTGET (ENTLAST))) (SETQ PONOU2A (SUBST (CONS 8 TCALQPOLI2) (ASSOC 8 PONOU2A) PONOU2A)) (ENTMOD PONOU2A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2 DECAPOLI3) POREF1 PTDROITE "") (SETQ PONOU3A (ENTGET (ENTLAST))) (SETQ PONOU3A (SUBST (CONS 8 TCALQPOLI3) (ASSOC 8 PONOU3A) PONOU3A)) (ENTMOD PONOU3A) ) ) ) ) (IF (= NBPOLI 5) (PROGN (COMMAND "DECALER" DECAPOLI1 POREF1 PTGAUCHE "") (SETQ PONOU1 (ENTLAST)) (SETQ PONOU1A (ENTGET (ENTLAST))) (SETQ PONOU1A (SUBST (CONS 8 TCALQPOLI1) (ASSOC 8 PONOU1A) PONOU1A)) (ENTMOD PONOU1A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2) POREF1 PTGAUCHE "") (SETQ PONOU2 (ENTLAST)) (SETQ PONOU2A (ENTGET (ENTLAST))) (SETQ PONOU2A (SUBST (CONS 8 TCALQPOLI2) (ASSOC 8 PONOU2A) PONOU2A)) (ENTMOD PONOU2A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2 DECAPOLI3) POREF1 PTGAUCHE "") (SETQ PONOU3 (ENTLAST)) (SETQ PONOU3A (ENTGET (ENTLAST))) (SETQ PONOU3A (SUBST (CONS 8 TCALQPOLI3) (ASSOC 8 PONOU3A) PONOU3A)) (ENTMOD PONOU3A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2 DECAPOLI3 DECAPOLI4) POREF1 PTGAUCHE "") (SETQ PONOU4 (ENTLAST)) (SETQ PONOU4A (ENTGET (ENTLAST))) (SETQ PONOU4A (SUBST (CONS 8 TCALQPOLI4) (ASSOC 8 PONOU4A) PONOU4A)) (ENTMOD PONOU4A) (INITGET "O N") (SETQ ANS (GETKWORD "\nEST CE LE BON COTE ? (O/N):")) (IF (= ANS "N") (PROGN (COMMAND "EFFACER" PONOU1 PONOU2 PONOU3 PONOU4 "") (COMMAND "DECALER" DECAPOLI1 POREF1 PTDROITE "") (SETQ PONOU1A (ENTGET (ENTLAST))) (SETQ PONOU1A (SUBST (CONS 8 TCALQPOLI1) (ASSOC 8 PONOU1A) PONOU1A)) (ENTMOD PONOU1A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2) POREF1 PTDROITE "") (SETQ PONOU2A (ENTGET (ENTLAST))) (SETQ PONOU2A (SUBST (CONS 8 TCALQPOLI2) (ASSOC 8 PONOU2A) PONOU2A)) (ENTMOD PONOU2A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2 DECAPOLI3) POREF1 PTDROITE "") (SETQ PONOU3A (ENTGET (ENTLAST))) (SETQ PONOU3A (SUBST (CONS 8 TCALQPOLI3) (ASSOC 8 PONOU3A) PONOU3A)) (ENTMOD PONOU3A) (COMMAND "DECALER" (+ DECAPOLI1 DECAPOLI2 DECAPOLI3 DECAPOLI4) POREF1 PTDROITE "") (SETQ PONOU4A (ENTGET (ENTLAST))) (SETQ PONOU4A (SUBST (CONS 8 TCALQPOLI4) (ASSOC 8 PONOU4A) PONOU4A)) (ENTMOD PONOU4A) ) ) ) ) (SETCFG "APPDATA/NBPOLI" (RTOS NBPOLI 2 0)) (setvar "clayer" CAV) (command "scu" "P") (setvar "osmode" OSM) (princ) )[Edité le 13/9/2008 par PHILPHIL] [Edité le 13/9/2008 par PHILPHIL]

hello tous gile est ce que ta routine lisp pourrait faire la meme chose en additionnant les "mtext" afficher des cotations l'interet ??? simple routine de verifications de cotes : celles qui sont existantes mais ne pointent plus réellement l'entite ou celle qui sont forcées merci phil

hello petite question tiboulen tu es sous VISTA ? sur un compte avec les proprietes administrateur mais sans etre sur ton compte administrateur phil

HELLO de base ils ne doivent pas avoir la meme résolution d'impression ton 500 est en 600 dpi standard ou maxi et ton 1050 est en 1200 dpi standard ou maxi donc les tetes d'écritures ne déposent pas les meme quantité d'encre ce qui ne donnent pas les meme couleurs apres je suis pas sur que l'on puisse calibrer les couleurs comme sur un ecran c'est une piste a voir phil

hello gile pas de soucis j'ai reglé mon probleme et je vais pas en faire une histoire merci phil

hello pour le shx suffit de prendre un fichier de typo *.shx copier et le renommer du nom de ta typo qui te manque le tour est jouer ok c'est une bidouille connue phil

HELLO :cool: :mad: :casstet: :casstet: gile j'ai du recopier il y a quelque jour ton petit lisp "menage" (DEFUN MENAGE (/ I J N) (SETQ DICT (MAPCAR 'CDR (VL-REMOVE-IF-NOT '(LAMBDA (X) (= (CAR X) 360)) DICT))) (SETQ N 0) (PRINC "\nEffacement d'entités : 0") (WHILE (NTH N DICT) (ENTDEL (NTH N DICT)) (SETQ I 0) (WHILE (< I (STRLEN (ITOA N))) (PRINC (CHR 8)) (SETQ I (1+ I))) (SETQ N (1+ N)) (PRINC N) (PRINC) ) ) (SETQ DICT (DICTNEXT (NAMEDOBJDICT) T)) (IF (CDR (ASSOC 360 DICT)) (MENAGE) ) (WHILE (SETQ DICT (DICTNEXT (NAMEDOBJDICT))) (IF (CDR (ASSOC 360 DICT)) (MENAGE) ) ) (SETQ DICT (MAPCAR 'CDR (VL-REMOVE-IF-NOT '(LAMBDA (X) (= (CAR X) 3)) (ENTGET (NAMEDOBJDICT))))) (SETQ N 0) (WHILE (NTH N DICT) (DICTREMOVE (NAMEDOBJDICT) (NTH N DICT)) (SETQ N (1+ N))) (VL-LOAD-COM) (VL-CATCH-ALL-APPLY '(LAMBDA () (VLA-REMOVE (VLA-GETEXTENSIONDICTIONARY (VLA-GET-LAYERS (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)))) "ACAD_LAYERFILTERS" ) ) ) (PRINC) et fait en sorte qu'il souvre a chaque ouverture de fichier sous AA2009 je dois dire qu'il fait vachement bien le menage ca c'est sur et certains a tels points que je n'ai plus du tout acces a tous mes blocs AEC ainsi que les styles AEC en fait il ne reste plus que les objets les plus simples que autocad puissent créer au point que j'ai du réinitialiser AA2009 et trouver au bout de 4 heures que c'etait ce "foutu" LISP en gros attention a l'utilisation de ce tit lisp :cool: vue qu'il y a eu une mise a jour depuis les soucis ont peut etre été réglés amicalement phil [Edité le 2/9/2008 par PHILPHIL]

HELLO merci des renseignements pieroka ca serat fait phil

hello qu'est ce que tu appelles un "hotfix" et a quoi sert il ?? est ce qu'il regle des bug majeurs ? merci phil

hello nazemrap, gile nazemrap petite question je suis du genre un peu perfectionniste quand je dessine des plans surement trop des fois mais bon sinon je ne trouverai pas mon boulot abouti et j'aime bien les beaux plans breff quelle methode emploie t'on le plus en ce moment pour balancer les marches des escaliers suivant ton site il doit y en avoir six ou sept on choisi comment le type de balancement ?? suivant l'escalier ? sa matiere ( bois, acier, beton ) quart tournant , avec ou sans echiffe, .... par contre vue toutes les configurations d'escaliers le faire en LISP ca doit plutot etre tres ardu sinon ca serait deja fait phil

hello ok j'ai teste et vue la difference merci pour la réponse thry0 phil

hello y'a des lisp interessant sur augifr ?? ou on a deja les meme a la maison CADxp ?? phil

hello gile je test ton lisp soustrac d'apres ta description du lisp , si je comprend il devrait faire la soustraction de solides 3d comme la commande "soustraction" d'autocad mais en gardant une copie des objets de base qui ont servi creer un solide plus complexe c'est ca ?? t'inquiete, je ne veux pas réinventer inventor dans autocad merci phil

hello pieroka tes collegues ont testes les petits logiciel bonus ???? ca donne quoi ? ca fait quoi au final ? juste pour savoir si c'est vraiment utile / interessant et si on a pas deja ca en stock sur cadxp phil

hello pieroka l'autre souci vient de autodesk ils ne sont pas malain car nous n'avons pas la meme page d'accueil apparement tu as autocad lili2006 autocad map et moi autodesk architectural pourtant les trois ont le meme moteur autocad mais nous n'avons pas le droit de charger les "tits" bonus du grand art je dirais phil [Edité le 27/8/2008 par PHILPHIL]

hello comment on recupere ca ?? j'ai beau etre sur mon compte de souscription je vois pas ou télécharger ca merci phil

hello ca vient de ton type de cote tu as force la "position verticale du texte" sur "centre" donc forcement il ne prend pas en compte le fait que tu veuilles le decaler si tu mets "position verticale du texte " au-dessus" dans ton "style de cotation" tu pourras changer "décalage du texte" et ca serat pris en compte meme le "-" phil [Edité le 22/8/2008 par PHILPHIL]

HELLO patrick super bien impec merci a+ phil

HELLO patrick j'utilise ( comme bcp ) ton LISp ONG3.10 est ce qu'il serait possible si c'est pas trop ch....t a programmer dans la fenetre "Gestion des onglets v3.10" pour la réorganisation des onglets d'avoir deux boutons "monter" descendre" visuelement plus facile a gerer plutot que de devoir recalculer la position chiffrer pour chaque onglet car arriver a plus de 20 onglets ca devient difficile ou avoir dans la fenetre "OOG" a droite ou gauche du nom de l'onglet ca position pour pas a avoir a recliquer dessus merci @+ phil [Edité le 21/8/2008 par PHILPHIL]

hello wahou sont vachement riche ceux la soit a peut pres 40 000 inscrits sur CADxp ( chiffre surement dépassé depuis ) donc 40000 fois 120 euros = 4 800 000 euros oups j'oubliai le timbre poste pour le cheque bancaire 40 000 fois 0.55 = 22 000 euros aller on leur fait le coup a nous tous on leur vide la caisse a moins que ce soit le contraire soit 30 minutes pour nous vider notre disque dur et compte en banque méfiance phil [Edité le 19/8/2008 par PHILPHIL]

hello si j'ai bien tout suivi dans mes nombreuses lectures didier n'est pas a l'est mais a l'est de l'est de l'est de l'est tellement qu'il en serait meme rendu a l'ouest ( tu l'as eu ton entrecote saignante sauce rochefort ?) ha mince un message de plus qui pourri le site phil

hello gile t'inquiete pas ca a bien rendu toutes les entites visible mais je pense qu'il y a un bug avec autocad ou plus imblement avec mon bloc le jeu d'invisibilité et ses differents états n'aiment pas trop que l'on repasse derriere pour rajouter ou soustraire des entites apparement donc je preconise de mettre le jeu d'invisibilite en tout dernier dans un bloc et de pas rajouter d'entites ensuite merci phil

hello ok merci phil