PHILPHIL

hello deux petits lisp commande "tre" pour des tremies rectangulaires commande "trece" pour des circulaires je l'utilise en choisissant la ou je veux que commence mon symbole apres rien ne t'empeche de modifier le lisp pour selectionner toutes tes polylignes et que le symbole commence au premier point de la polyligne c'est a dire , a coup sur jamais orienté pareille sur toutes les polylignes phil ;;;---------------------------------------- ;;; symbolisation de tremies rectangulaires ;;;---------------------------------------- (defun c:tre (/ ang1 ang2 ang3 ang4 cav decasymbo osm p1 p1a p2 p2a p2b p3a poi1 poi2 poi3 poi4 poi5 symbotre tmp) (setvar "cmdecho" 0) (setvar "CURSORSIZE" 1) (setq osm (getvar "osmode")) (setq cav (getvar "clayer")) (if (= (tblsearch "layer" "H_TREMIE") nil) (command "-calque" "n" "H_TREMIE" "co" "7" "H_TREMIE" "") ) (command "-calque" "ch" "H_TREMIE" "") (setq symbotre (atof (getcfg "APPDATA/SYMBOTRE"))) (setq decasymbo (atof (getcfg "APPDATA/DECASYMBO"))) (setq tmp (getdist (strcat "\nENTRER LE TAUX REDUCTEUR POUR LE SYMBOLE DE TREMIE <" (rtos symbotre 2 8) ">: " ) ) ) (if tmp (setq symbotre tmp) ) (setq tmp (getdist (strcat "\nENTRER LE DECALAGE POUR LE SYMBOLE DE TREMIE <" (rtos decasymbo 2 8) ">: " ) ) ) (if tmp (setq decasymbo tmp) ) (setvar "CURSORSIZE" 100) (setq poi1 nil) (while (null poi1) (setq poi1 (getpoint "\n1er POINT DE REFERENCE DE LA TREMIE DANS LE SENS HORAIRE " ) ) ) (setq poi2 nil) (while (null poi2) (setq poi2 (getpoint "\n2eme POINT DE REFERENCE DE LA TREMIE DANS LE SENS HORAIRE" ) ) ) (setq poi3 nil) (while (null poi3) (setq poi3 (getpoint "\n3eme POINT DE REFERENCE DE LA TREMIE DANS LE SENS HORAIRE" ) ) ) (setvar "osmode" 0) (setq ang1 (angle poi2 poi1)) (setq ang2 (angle poi2 poi3)) (setq ang3 (angle poi1 poi2)) (setq ang4 (angle poi3 poi2)) (setq p2a (polar poi2 (+ (/ pi 2) ang1) decasymbo)) (setq p2b (polar poi2 (- ang2 (/ pi 2)) decasymbo)) (setq p1a (polar (polar poi2 ang1 (- (distance poi2 poi1) decasymbo)) (- ang3 (/ pi 2)) decasymbo ) ) (setq p3a (polar (polar poi2 ang2 (- (distance poi2 poi3) decasymbo)) (+ ang4 (/ pi 2)) decasymbo ) ) (setq poi5 (inters p1a p2a p3a p2b nil)) (if (= symbotre 0) (setq p1 (polar poi5 ang2 (min (distance poi5 p3a) (distance poi5 p1a)) ) p2 (polar poi5 ang1 (min (distance poi5 p3a) (distance poi5 p1a)) ) ) (setq p1 (polar poi5 ang2 (/ (min (distance poi5 p3a) (distance poi5 p1a)) symbotre) ) p2 (polar poi5 ang1 (/ (min (distance poi5 p3a) (distance poi5 p1a)) symbotre) ) ) ) (setq poi4 (inters p1a p1 p3a p2 nil)) (command "solide" p1a poi5 poi4 p3a "") (setcfg "APPDATA/SYMBOTRE" (rtos symbotre 2 8)) (setcfg "APPDATA/DECASYMBO" (rtos decasymbo 2 8)) (setvar "osmode" osm) (setvar "clayer" cav) (princ) ) ;;;------------------------------------- ;;; symbolisation de tremies circulaires ;;;------------------------------------- (defun c:trece (/ ang1 cav cerc cerccentre cercrayon decasymbo decasymbo2 dist1 obj osm poi1 poi2 tmp) (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (setq cav (getvar "clayer")) (if (= (tblsearch "layer" "H_TREMIE") nil) (command "-calque" "n" "H_TREMIE" "co" "7" "H_TREMIE" "") ) (command "-calque" "ch" "H_TREMIE" "") ;;;(setq SYMBOTRE (atof (getcfg "APPDATA/SYMBOTRE"))) (setq decasymbo (atof (getcfg "APPDATA/DECASYMBO"))) (setq cerc (entsel "VEUILLEZ SELECTIONNER LE CERCLE DE REFERENCE ")) (setq cerccentre (cdr (assoc 10 (entget (car cerc))))) (setq cercrayon (cdr (assoc 40 (entget (car cerc))))) (setvar "osmode" 16) (setq poi1 nil) (while (null poi1) (setq poi1 (getpoint "\nPOINT DE REFERENCE DU SYMBOLE DE LA TREMIE ")) ) (setvar "osmode" 231) (setq tmp (getdist (strcat "\nENTRER LE DECALAGE POUR LE SYMBOLE DE TREMIE <" (rtos decasymbo 2 8) ">: " ) ) ) (if tmp (setq decasymbo tmp) ) (setvar "osmode" 0) ;;;(command "point" poi1) (setq ang1 (angle cerccentre poi1)) (setq dist1 (- cercrayon decasymbo)) (setq poi2 (polar cerccentre ang1 dist1)) ;;;(command "point" poi2) (command "POLYLIGN" poi2 "A" "CE" cerccentre "A" 180 cerccentre "CL") (setq obj (ssget "L")) (command "-fhach" "p" "s" "SE" obj "" "") (setcfg "APPDATA/DECASYMBO" (rtos decasymbo 2 8)) ;;; (setcfg "APPDATA/DECASYMBO2" (rtos DECASYMBO2 2 8)) (setvar "osmode" osm) (setvar "clayer" cav) (princ) )

HELLO je ne suis pas en mode annotatif justement je n'utilise surtout pas ces trucs de "staudesk" qui font que la machine n'avance plus c'est bien la le probleme si je clique sur le bouton "annotatif" le chiffre rentré et validé reste le meme si je decoche le bouton "annotatif" le chifrre rentré se multiplie automatiquement par 10 une fois validé ca ne concerne l'éditeur de mtext un réparation s'impose je sens ca phil

hello dans l'editeur de MTEXT a droite de l'icone "ANNOTATIF" si je selectionne mon texte que j'ecris "23" et le valide ca le change direct en "230" mon texte fait bien 230 unites visuelement alors que j'ai ecris 23 je le reselectionne je retourne dans les proprietes "control 1" je le vois bien a 230 de hauteur je le repasse a 23 et a l'ecran il passe a 23 c'est juste dans la case de l'editeur qu'il multiplie par 10 bizarre pas de soucis sur une version 2010 un gros souci d'annotativite je pense phil

hello regarde ici http://cadxp.cadmag.info/sujetXForum-27475.htm il faut te crer au préalable un style de tableau nommé "TABLEAU BLOCS" ou remplacer dans le LISp le style de tableau que tu desires (vla-put-stylename tablevl "TABLEAU BLOCS") ;STYLE DE TABLEAU PREDEFINI phil

hello avez vous le meme soucis ?? dans une version 2011 avec MTEXT si je selectionne le texte par un "control A" ou avec le souris que je lui donne une hauteur, il la multiplie par 10 automatiquement et ce avec n'importe quelle hauteur gros bug encore ?? ou que chez moi ? phil

hello peut etre qu'il faudrait connaitre le but ultime final de l'operation car des blocs de 24cm pour aller j'usqua 50 metres ca fait bcp c'est pour de l'electrique ? mecanique ? est ce que ca doit rester en blocs de 50 metres ? ou tu dois ensuite decomposer pour n'avoir que des blocs de 24cm ,20,12,... le plus facile semble un LISP point d'insertion de l'ensemble point final ou direction de l'ensemble calcul de la longueur calcul du nombre d'elements pour cette longueur et implantation des blocs x bloc de 240 x de 200 ..... les grouper tous au final ou en refaire un bloc pour une meilleur exploitations mais tu risques de te retrouver avec une multitude de nom de blocs par fichier ou des noms different representant la meme chose mais dans des fichiers dessin differents un "BORd.." quoi rien ne t'empechera dans un futur d'implanter un bloc qui ne fait que 50 ou autre evolution de norme ?? a+ phil [Edité le 4/6/2010 par PHILPHIL]

salut andrea un de plus a vouloir tester felicitations fait gaffe tu vas te faire racheter par "STAU DESK" a+ phil

hello sous AA2010 j'avais un probleme similaire les cases a cocher se superposaient plutot que d'etre sur deux colonnes aussi bien les case que le texte j'avais tout a gauche pas tres pratique pour choisir en extremite et intersection bref avec la AA2011 la boite de dialogue est nickel maintenant sans changer de driver ni de carte nvidia fx 4600 je passais par un tit programme lisp pour choisir les options a+ phil

HELLO GILLE le téléchargement a partir "d'ici" marche impec merci tu as changé un truc ?? le programme nickel aussi merci phil

hello bon j'arrive apres la bataille cool le programme gile mais "GILE" doit etre definitivement faché avec moi je n'arrive pas a télécharger correctement tes fichiers *.zip a partir de "CADXP" ca marche par contre sur "ACADLAB" BIZARRE je viens de tester sur aa2011 en 64x sur seven pas de souci la question a peut etre été deja posé si on selectionne le mode d'accrochage fraction si je met "1/9" ca prend par rapport aux extremitées ne pourrait on pas pouvoir s'accrocher aussi a "2/9" "3/9" ... les multiples de la fraction ? simple sujection, mais pas une obligation de programation a+ phil [Edité le 31/5/2010 par PHILPHIL]

HELLO TOUS wahou ca va de plus en plus vite j'arrive pas a suivre les versions tjrs a la version jav 1.00 ?? j'ai selectionné "tout" dans la premier boite ca Ok mais le rapport est vide par contre il doit bien faire le menage a+ phil [Edité le 28/5/2010 par PHILPHIL]

hello patrick je purge avec ca (defun c:urto () (setvar "cmdecho" 0) (command "regnauto" "ac") (setvar "cmdecho" 0) (command "snapang" "0") (command "-DIMSTYLE" "R" "STANDARD") (command "DIMSCALE" "1") (command "-AECDWGSETUP" "U" "4" "2" "8" "7" "2" "m²" "6" "2" "m³" "NON" "EC" "7" "1000" "10" "") (command "zoom" "et") (command "-purger" "APPSENREG" "*" "n") (command "-purger" "to" "*" "n") (princ) ) 11 958 ==> 9037 avec "URTO" 11 958 ==> 9017 avec "JAV" gain : 20ko de moins avec JAV Dans la version 2011 et aussi 2010 de memoire ca purge aussi les texte vide et ligne de longueur zero a partir de la fenetre de purge mais je n'ai pas si a partir de la commande ca purge aussi les textes vide et tout le TRALALA a+ phil

hello merci lilian j'ai pu télécharger le *.DLL j'ai la meme chose que l'image de lilian sous A2011 avec AA2011 a+ phil

hello gile tjrs impossible de telecharger un fichier *.zip venant de chez toi ca va devenir embetant je vais tester sur AA2011 avec le fichier texte comme l'a fait lilian donc ca ne vas pas et cane marche pas pas de compilateur sous la main a+ phil [Edité le 22/5/2010 par PHILPHIL]

hello ce que je fais dans mes blocs parametriques c'est de mettre des cotes dans une couche differente et tu les inclus dans les objets a etirer avantage : tjrs a jour , pas besoin de sauvegarder ou regener pour la mise a jour du champ et si tu veux l'inclure dans ton plan tu decocche la couche des cote pour qu'elle s'imprime si tu veux vraiment n'avoir que le texte de la cote rien ne t'empeche de faire une cote sans les lignes a+ phil

hello ton *.plt tu le fais pour quel type de traceur ? un HP ou un OCE Graphique ? ou une autre marque ? j'en fais souvent avec un 750C hp et aucun probleme a+ phil

hello xrefclassique phil

HELLO tu l'exportes en dwg au lieux de dxf cagagne un peu de tps mais le resultat est le meme tu oublis le probleme des echelles c'est pas a illustrator de le regler tu ouvres ton fichier ( dwg ou dxf ) dans autocad tu choppes une ligne dont tu connais la longueur exacte tu traces une ligne n'importe ou de cette longueur puis tu fais un alignement avec mise a l'echelle entre ton nouveau fichier (dxf dwg) et cette ligne dont tu connais la longueur exacte que tu auras mis en metre centimetre millimetre ce que tu veux "align" pointe les deux points de base et de reference et mise a l'echelle "oui" c'est fait a+ phil

HELLO aller dans "cui" regarder a duble clic hachures et changer la command en "EDITHACH" A+ PHIL

hello c'etait un gros BUG de la version 2007 ( un parmis d'autre ) résolu avec les version suivantes phil

Hello gille TRES GRAND MERCI A TOI on ne le dirat jamais assez je pense A+ tres bon week end phil

salut gille avait ecrit ceci http://cadxp.cadmag.info/sujetXForum-20908.htm ca marche pour des blocs ayant le meme nom est il possible d'avoir la meme chose pour des blocs de nom differents mais avec des parametre qui peuvent avoir les meme noms gracias phil bloc de face bloc de dessus longueur a tranmetre / en commun longueur hauteur n'existe pas / pas en commun ------------ visibilite a transmetre / en commun visibilite ---------- n'existe pas / pas en commun epaisseur

hello j'ai mis le temps mais ... bon week end phil (defun c:pbrec () (if (= (tblsearch "layer" "C_POTEAU") nil) (command "-calque" "n" "C_POTEAU" "co" "123" "C_POTEAU" "") ) (setq techl (atof (getcfg "APPDATA/Techl"))) (setq cav (getvar "clayer")) (setq largeurpbrec (atof (getcfg "APPDATA/LARGEURPBREC"))) (setq hauteurpbrec (atof (getcfg "APPDATA/HAUTEURPBREC"))) (setq tmp (getdist (strcat "\nENTRER LA LARGEUR DU POTEAU BETON RECTANGULAIRE <" (rtos largeurpbrec 2 8) ">: " ) ) ) (if tmp (setq largeurpbrec tmp) ) (setq tmp (getdist (strcat "\nENTRER LA HAUTEUR DU POTEAU BETON RECTANGULAIRE <" (rtos hauteurpbrec 2 8) ">: " ) ) ) (if tmp (setq hauteurpbrec tmp) ) (setcfg "APPDATA/LARGEURPBREC" (rtos largeurpbrec 2 8)) (setcfg "APPDATA/HAUTEURPBREC" (rtos hauteurpbrec 2 8)) (command "-calque" "ch" "C_POTEAU" "") (command "INSERER" "c:/PERSO/bibliotheque/BETON/POTEAU BETON RECTANGULAIRE" pause (rtos (/ 0.01 techl) 2 8) "" pause ) (foreach prop (vlax-invoke (vlax-ename->vla-object (cdr (assoc -1 (entget (entlast))))) 'getdynamicblockproperties ) (if (= (vla-get-propertyname prop) "LARGEUR") (vla-put-value prop largeurpbrec) ) (if (= (vla-get-propertyname prop) "HAUTEUR") (vla-put-value prop hauteurpbrec) ) ) (setvar "clayer" cav) (princ) )

HELLO dans "utilitaire" "parametre de dessin" dans onglet "calques" 3 lignes ( de memoire ) "style identificateur de calques" 'calque courant" tu peux créer un lisp qui te change le calque ex :"mur parpaing" avant d'implanter ton mur et revenir au calque prcédédent comme ca tu es sur que tout tes murs seront dans ce calque la ( mur parpaing) tu peux aussi créer un style d'identificateur de calque propre 'style elodie" ou tu dis que les murs (wall ) seront dans "murs" et non plus dans "A-murs" faut aller voir dans le gestionnaires des styles pour ca a+ phil

hello gile ca a l'air sympa comme truc donc poussons le bouchon un peu trop loin ( si on peut bien sur ) j'ai pas essayé encore le LISP les XDATA je connais pas est ce que ca permet de mettre plusieurs XDATA pour la meme entité ? le (cons 1000 txt ) en gere 1 si on met un ( cons 1001 txt ) ca en gere un deuxieme ? faut que je testes pour piger bon week end phil