PHILPHIL

oupsss

hello c'est aussi mon intention phil

hello ouai ce qui ne ferat pas baiser ta facture pour autant car dedans est compris le prix du timbre enveloppe papier encre tps machine a metre dans l'enveloppe electricite personnel je me suis tjrs demander combien ca pouvait valoir tout ca derisoire certes comme les publicites recus en doubles / triple papier / mail / sms / pud internet sur les sites amicalement phil

hello gile enorme tres grand merci en 2d ca me va tres bien comme ca j'ai un autre lisp sur le feu donc un autre sujet je suis en train d"ecrire un lisp pour rajouter/ soustraire des points dans une serie de cote est ce que tu sais si on peut forcer a choisir un point par rapport a une liste de point deja etabli iniget " listedepoint" getpoint .... enfin quelque chose comme ca phil [Edité le 15/5/2008 par PHILPHIL]

hello gile le resultat en image tu viens de la faire a la "mano" ou par un lisp ?? par rapport au scu courant serat le mieux je pense ca englobe plus de cas de figures comme ca merci

hello zebulon patrick_35 la correction marche ( ca tu t'en doute ) looll ma version ne marchait plus de toute facon apres remise en route d'autocad 2009 je peux donc poursuivre mon lisp merciii phil

hello gile tres bonne question ca scu ? ou scg ?? en ce qui me concerne je pencherai plutot pour le scu courant vue que c'est pour englober en generale des coupes, facades, ou plans mais comme ton lisp va surement etre utile a d'autre ca serait abuser de te demander les deux ?? d'avoir le choix je suis en train de te dire une connerie si tu le fais par rapport au scu courant le scg est forcement compris dedans a moins que la variable "ucsfollow" et quelque incidence dans le "bbox" ??? merci phil

hello gile merci pour le lisp il marche bien impec heuu petit truc je demandai juste a pouvoir faire un rectangle enclobant les objets selectionnes un "BBOX" pour plusieurs objets en quelque sort dans l'espace objet merci phil

hello gile j'ai essaye la fonction que tu m'as donne pour crer ce tit lisp d'essai mais y'a un beug j'arrive a creer la liste des point des cotes "LISTPOINT" mais je n'arrive pas a crer les listes "LISTPOINTX" ascendant sur x "LISTPOINTY" ascendant sur y dans le lisp en plus j'ai droit a une erreur mais je vois pas ou ?? ;;--------------------------------- ;;;ajouter des point dans des cotes ;;--------------------------------- (defun C:APC3 () (prompt "CLIQUER SUR LA COTE(S) A MODIFIER POUR ADITIONNER DES POINTS:" ) (setq ENTG1 NIL) (while (null ENTG1) (setq ENTG1 (ssget '((0 . "DIMENSION")))) ) (setq COMPT 0) (setq listpoint nil) (while (< COMPT COM) (progn (setq ENT (entget (ssname ENTG1 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) POINT13 (trans (cdr (assoc 13 ENT)) 0 1) POINT14 (trans (cdr (assoc 14 ENT)) 0 1) ANGCOTE (cdr (assoc 50 ENT)) ;;; ASX1 (car (getvar "ucsxdir")) ;;; ASX2 (cadr (getvar "ucsxdir")) listpoint (cons point13 listpoint) listpoint (cons point14 listpoint) ) (setq COMPT (1+ COMPT)) ) ) (setq listpointx (vl-sort listpoint (function (lambda (p1 p2) (< (car p1) (car p2)) ) ) ) ) (setq listpointy (vl-sort listpoint (function (lambda (p1 p2) (< (cadr p1) (cadr p2))) ) ) ) ;;; (command "scu" "p") (princ) )

salut gile je viens d'utiliser ton LISP BBOX est il possible de le modifier pour qu'il fasse la meme chose mais pour plusieurs objets voir enormement d'objet ??? but du jeu connaitre l'encombrement totale d'une coupe, d'un plan, d'une facade au plus juste pour recuperer son centre de gravite ( centre du rectangle ainsi obtenu ) et faire un centrage exacte dans les fenetre de presentations j'ai les tit lisp pour alignement de vue par rapport au fenetre merci phil

salut pour ca il faut que dans ta / tes fenetre(s) papier de ton onglet espace papier ucsfollow soit sur 0 pour empecher la regeration de l'espace objet en gros il faut que dans l'espace objet l'espace papier l'espace objet de l'espace papier tu mets ucsfollow sur 0 pour ne plus avoir de souci phil

hello core duo 3ghz 4 go nvidia quadro FX4600 768 mo mais j'ai vista 32bits qui plombe le tout qui a essaye la version 64bits??? que pour de la 2D mais multiplication des objets AEC et moulttt onglet de presentation faut deux trois secondes avant que s'affiche la presentation a 1 2 ou 3 fenetres ca doit venir du fait que autocad fait une miniature en memoire avant chaque vue phil

hello ba a vrai dire moi non plus je l'utilise pas vue que ma base est propre ( autofleurissment et augmentation proportionelle des chevilles du gars) mais vu que je viens de recuperer un jolie fichier ( f..t c...r ) tout bien decomposer avec moultttt² nom de calque et et 4 ligne pour symboliser les cloisons en BA 13 ca c'est pour ll'épaisseur de la cloison je vous raconte meme pas le fait que les cloisons sont en plusieurs morceaux et pas toutes "Colineaire" ect ect ... 10 méga au final tout ce petit texte est bien sur pour ceux qui dessine sans savoir ce qu'il dessine bref ca peut me servir "convcalque" ayaitttt j'ai fini mon tit coup de gueule phil

hello gracias usegomme c'est ce que je cherhai merci phil

HELLO a ceux qui ont encore les express tools 1à9 je me rappelle que dans cette version des express tools dans le sous repertoire EXPRESS il y a vait un programme *.exe qui permettait de fusionner plein de calque de redistribuer les calque slectionner fenetre de gauche ( du programme ) dans un calque d'une fenetre de droite ( du programme ) pour un fichier DWg sans a avoir a ouvrir celui ci dans autocad le truc super rapide et super pratique qui se rapelle de ca ??? et surtout qui l'a encore vue que l'on ne peut plus installer cette version sur 2009 pas moyen de recupere tout ca merci a votre bon souvenir phil

salut de nuit ARCASDK il fait quoi en fait ton lisp ?? il ouvre des fichiers selectionner dans un sous repertoire a la chaine ( un par un ) puis les referme ??? y'a moyen que je puisse modifier ta routine pour faire un netoyage de printemps ? ouvrir plein de fichier, un par un, purger, netoyer et les sauvegarder en 2007 avant de passer au suivant et d'aller prendre un cafe ou deux en attendant que l'ordi bosse sans nous pour une fois lool heuu !! j'ai été clair ou pas je ne sais plus ?? phil

hello si ton programme fait le calepinage nickel il te reste plus qua ecrre un texte dessus A = pente en % L=longueur en plan LR = longueur de bac en rampant LR = racine carre ( L*A/100)² x L² c'est pas pythagore ce truc ??? tu mets ca dans un fichier excel ou peut etre meme si ca se trouve dans autocad avec un tit lisp et le tour est jouer non ?? de toute facon meme les bacs avec des tremies tu dois pas les decompter sauf s'il y a veritable interuption sinon envoie ton fichier pour voir a quoi ca dois ressembler ton plan ou quel programme tu utilises pour ton calepinge ??? phil

hello ok ok ca serait pas plus simple deja de savoir quel outils tu diposes? avec les blocs parametrique tu peux faire un calepinge sans probleme pour du bac acier et tu as la longueur vue de dessus apres suffit d'une operation mathemathique et le tour est surement jouer a moins que ton boulot consiste a faire tous les jours du calepinage de bac acier ( wahouuu super marrant comme taf ) dans ce cas fait toi un fichier excel phil

hello ouaippp j'ai vue ca a mon avis vue que le lisp est la y'a moyen de le modifier un peu et lui rajouter de faire des ligne en plus apres faut voir la réel utilité de tous ca mais si un jour ca peux faire gagner deux trois heures sur un projet et etre en week end le vendredi soir au lieux du samedi apres midi c'est une avancée looll phil bosser maintenant

hello usegomme ca serait pas plus simple pour toi ca suffit de le modifer un peu demander la largeur le depart au centre dessus dessous demander le calque et "mligne" restera surement dans autocad phil ;; ----------------- ;; MULTILIGNE DE 40 PAR LE CENTRE ;; ----------------- (defun C:MLD40 () (setvar "cmdecho" 0) (prompt "\nCHOISISSER LES EXTREMITES :") (command "MLIGNE" "J" "N" "E" 40 (while (> (getvar "cmdactive") 0) (command PAUSE)) ) (setq ENTDER (entlast)) (command "decompos" entder ) (princ) )

hello merci ledecapode phil

HELLO autocad 2009 est sortie apparement mais qui a recu la version autodesk architecture 2009 ?? il est sorti ou pas ??? phil

hello oui regarde dans les proprietes couleurs de remplissage passe le en "arriere plan" le tour est jouer ca masque ce qu'il y a derriere ton texte par contre le "masque" n'est pas modulable phil

hello salut jalna je viens de faire ta manip de geler le calque dans lequel la polyligne de detourage de fenetre est dessinnée je vois bien le texte mais ca ne sert a rien c'est comme si la fenetre redevenait rectangulaire d'ailleurs ca se vois sur ton exemple on revois tes gaines palieres le detourage de fenetre ne se fait plus j'ai le meme probleme et heureusement pas de plan de vente a l'horizon a faire phil

salut la seul manip a faire c'est place ton SCU dans le meme sens de vue que ta facade ton plan ta coupe et lancer le LISP choisir les cotes a modifier et le programme les refait phil ; ----------------- ; REVERSE LES COTES ; ----------------- (defun C:REC (/ ;;; ANGCOTE ANGCOTEDEGRE ANGSCU ASX1 ASX2 CALQCOTE CAV COM COMPT ENT ENTX NONENT OSM 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)) ASX1 (car (getvar "ucsxdir")) ASX2 (cadr (getvar "ucsxdir")) ) (if (and (= ASX1 1) (= ASX2 0)) (setq ANGSCU 0 OUESTU 1 ) ) (if (and (and (<= ASX1 1) (>= ASX1 0)) (and (<= ASX2 1) (>= ASX2 0))) (setq ANGSCU (atan (/ ASX2 ASX1)) OUESTU 2 ) ) (if (and (= ASX1 0) (= ASX2 1)) (setq ANGSCU (/ pi 2) OUESTU 3 ) ) (if (and (and (<= ASX1 0) (>= ASX1 -1)) (and (<= ASX2 1) (>= ASX2 0))) (setq ANGSCU (- (atan (/ ASX2 ASX1)) pi) OUESTU 4 ) ) (if (and (= ASX1 -1) (= ASX2 0)) (setq ANGSCU (* 2 pi) OUESTU 5 ) ) (if (and (and (<= ASX1 0) (>= ASX1 -1)) (and (<= ASX2 0) (>= ASX2 -1))) (setq ANGSCU (+ (atan (/ ASX2 ASX1)) pi) OUESTU 6 ) ) (if (and (= ASX1 0) (= ASX2 -1)) (setq ANGSCU (+ pi (/ pi 2)) OUESTU 7 ) ) (if (and (and (<= ASX1 1) (>= ASX1 0)) (and (<= ASX2 0) (>= ASX2 -1))) (setq ANGSCU (atan (/ ASX2 ASX1)) OUESTU 8 ) ) (setq ANG (- ANGCOTE ANGSCU)) (command "-calque" "ch" CALQCOTE "") (command "-dimstyle" "R" STYLECOTE) (setq ANGCOTEDEGRE (angtos (- ANGCOTE ANGSCU) 0 10)) (prompt (strcat "\nL'ANGLE DE LA COTE EST : " ANGCOTEDEGRE)) (if (or ;;; (= ANG (- (* 4 pi))) (= ANG (- (* 3 pi))) (= ANG (- (* 2 pi))) (= ANG (- pi)) (= ANG 0) (= ANG pi) (= ANG (* 2 pi)) (= ANG (* 3 pi)) ;;; (= ANG (* 4 pi)) ) (progn (prompt (strcat "\nL'ANGLE EST EGAL A 180 OU 0")) (command "cotlin" POINT13 POINT14 "H" POINT10) ) (progn (if (or ;;; (= ANG (- (+ pi pi pi (/ pi 2)))) (= ANG (- (+ pi pi (/ pi 2)))) (= ANG (- (+ pi (/ pi 2)))) (= ANG (- (/ pi 2))) (= ANG (/ pi 2)) (= ANG (+ pi (/ pi 2))) (= ANG (+ pi pi (/ pi 2))) ;;; (= ANG (+ pi pi pi (/ pi 2))) ) (progn ;;;(prompt (strcat "\nL'ANGLE EST EGAL A 90 OU 270")) (command "cotlin" POINT13 POINT14 "V" POINT10) ) (progn ;;; (prompt (strcat "\nL'ANGLE N'EST PAS EGAL A 0 90 180 OU 270")) (setq POINT10A (trans POINT10 0 1) ANGCOTEDEGRE (angtos (- ANGCOTE ANGSCU) 0 10) ) (command "cotlin" POINT13 POINT14 POINT10) (setq ENTDER (entget (entlast))) (setq ;;; ENTDER (subst (cons 10 POINT10A) (assoc 10 ENTDER) ENTDER) ENTDER (subst (cons 50 ANGCOTE) (assoc 50 ENTDER) ENTDER) ) (entmod ENTDER) ) ) ) ) (command "effacer" NONENT "") (setq COMPT (1+ COMPT)) ) ) (setvar "osmode" OSM) (setvar "clayer" CAV) (command "-dimstyle" "R" STYLECOTEBASE) (princ) ) [Edité le 2/4/2008 par PHILPHIL]