PHILPHIL

hello patrick merci j'ai maintenant ma réponse il n'est pas compatible en 64bits apparement par contre pour le lien que tu viens de donner oupsss c'est rappé d'avance l'anglais et moi ca fait 4 ( en bon francais qui ne sait pas mettre deux mots d'anglais a suivre ) on ferat sans a+ phil

hello patrick gile ici j'avais modifie le lisp, car il ne trouvait pas CprArx18.arx pensant avoir reussi car pas d'erreur constatées sur la ligne de commande mais en fait patrick tu me dis que l'ARX na pas été trouvé donc . car je vois defiler toutes les presentations . vous avez le meme probleme ? http://www.cadxp.com/sujetXForum-25901.htm a+ bonne année a tousss phil

HELLO PATRICK petit souci avec GEF 3.03 sur AA2010 avec AA2009 il me semble que les modifications dans les fenetres n'engendrait pas une regeneration de chaques presentations NON ?? avec AA2010 je vois defiler toutes présentations la ou je demande une modification de calque est ce que ca vient des fichiers *.ARX qui fonctionnement differement ? ou d'une option / parametre qui a changer ? pour AA2011 a venir les *.arx ne macheront pas aussi peut on récupérer le fichier de base pour etre sur de pouvoir créer son *.arx pour chaque version a venir bonne année à l'année prochaine phil

hello avec "ONG" de patrick 35 tu selectionnes tous les onglets que tu veux renommer et achaque fois que tu valide un l'autre appararait rapide, clair, net a+ phil

hello BON OK CA RE REMARCHE :mad: :mad: non ca reremarche passs REMPLACER ;;(setq crparx (strcat "crparx" (substr (getvar "ACADVER") 1 2) ".arx")) PAR (setq crparx (strcat "c://PERSO//crparx" (substr (getvar "ACADVER") 1 2) ".arx")) PERSO etant mon sous répertoire ca ne marche que si je recharge les fichier *.lisp a partir de visual LISP sinon niet a+ phil[Edité le 17/11/2009 par PHILPHIL] [Edité le 18/11/2009 par PHILPHIL]

hello gille mercii ca merdouille alors car j'ai bien ( nous avons tous meme ) CRPARX18.arx avec GEF3.03 et il ne veut pas le charger ca peut venir du fait de la version 64Bits ?? ca m'etonnerai mais je pose quand meme la question a+ merci phil

hello fichier N°1 fichier N°2 fichier N°3 tu peux tres bien avoir N°1 en XREF dans N°2 et aussi avoir N°2 en XREF dans N°1 s'ils sont "attacher" tu te retrouve avec des doublons et aussi un souci de version de fichier s'ils ne sont que "imbriqué" tu les ouvres et autocad ne te demande rien tu peux aussi avoir N°3 en XREF dans N°2 et N°2 en XREF dans N°1 s'il N°3 est attacher tu le retrouves dans N°1 aussi ( c'est le but ) s'il N°3 est imbriquer il n'y est pas quand tu as 20 fichiers a manipuler c'est tres pratique et quand tu as de la "synthese" a faire 20 fichiers c'est pas rare a+ phil

HELLO PATRICK j'essaie de lancer GEF 3.03 sous AA2010 et SEVEN 64bits mais rien a faire j'ai ca en retour Commande: gef ; erreur: ARXLOAD a échoué est ce que ca vient du fait d'etre passer en 64bits que ca ne marche pas ?? les *.ARX sont compilés en 32 ou en 64 ?? a+ merci phil

hello ok merci phil

bonjour pour un plan archi je recherche des blocs pour salon de coiffure si vous aviez ca en stock ca serait sympa mercii a+ phil

hello oui

HELLO ( polar point angle distance ) donc pour toi (command "LINE" ptj1 (polar ptj1 AngleRad dist) ) ca devrait marcher [Edité le 16/10/2009 par PHILPHIL]

hello dans "mlstyle" mettre le style en "courant' je ne l'utilise que tres tres rarement voir jamais phil

HELLO commande "mlstyle" apres tu joues avec a+ phil

hello et en visual lisp comment on recupere l'information du nom de la presentation pour une entité ?? le code dxf 410 c'est tres clair mais en visual lips ca devient usine a gazz a+ phil

hello ca doit etre ca que tu cherches http://www.cadxp.com/sujetXForum-19988.htm a+ phil [Edité le 15/10/2009 par PHILPHIL]

hello zebulon merci beaucoup pour ton LISP je viens de tester et pas de souci j'ai pas eu le temps de voir s'il faisait une regeneration de(s) fenetre(s) par contre je verrai si je trouve le moyen de les geler pour qu'il n'est pas faire la regeneration histoire que ca aille plus vite merci bcp a+ bonne journée phil

hello est ce qu'il y a moyen de faire des copies d'objets/entites d'une presentations a d'autres presentations en selectionnant les entites dans la prensetation le point de base la liste des presentations d'arrivées le point d'arrivée commun a chaque presentaion sans que l'on est a ouvrir les presentations mouai j'espere que seven et AA2011 seront plus réactif bonne soirée a+ phil

hello gile j'ai modifie ton LISP "bissectrice" de facon tres alambiqué, mais ca marche a premiere vue merci a+ phil ;;; C:ll -Gilles Chanteau- (maj 23/04/07) ;;; Crée une ligne depart et fin au milieu des points opposés des lignes / segment selectionnés. (defun c:ll (/ e1 e2 l1 l2 p1 p1e p1ee p2 p2e p2ee som ang) (setq cav (getvar "clayer") osm (getvar "osmode") scuna (getvar "ucsname") ucsfo (getvar "ucsfollow") ) (setvar "ucsfollow" 0) (setvar "osmode" 0) (while (not (setq e1 (entsel "\nSélectionnez le premier segment: ")) ) ) (while (not (setq e2 (entsel "\nSélectionnez le second segment: ")) ) ) (setq l1 (entget (car e1)) l2 (entget (car e2)) p1 (osnap (cadr e1) "_near") p2 (osnap (cadr e2) "_near") ) (if (and (or (and (member (cdr (assoc 0 l1)) '("XLINE" "RAY")) (setq p1ee (mapcar '+ p1 (trans (cdr (assoc 11 l1)) 0 1 t))) (setq p1e (mapcar '- p1 (trans (cdr (assoc 11 l1)) 0 1 t)))) (and (setq p1e (osnap (cadr e1) "_endpoint")) (setq p1ee (polar p1e (angle p1e (osnap (cadr e1) "_midpoint")) (* (distance p1e (osnap (cadr e1) "_midpoint")) 2))))) (or (and (member (cdr (assoc 0 l2)) '("XLINE" "RAY")) (setq p2ee (mapcar '+ p2 (trans (cdr (assoc 11 l2)) 0 1 t))) (setq p2e (mapcar '- p2 (trans (cdr (assoc 11 l2)) 0 1 t)))) (and (setq p2e (osnap (cadr e2) "_endpoint")) (setq p2ee (polar p2e (angle p2e (osnap (cadr e2) "_midpoint")) (* (distance p2e (osnap (cadr e2) "_midpoint")) 2)))) )) (if (vl-every (function (lambda (x) (equal (caddr p1) (caddr x) 1e-009))) (list p1ee p1e p2 p2ee p2e) ) (if (and (null (inters p1 p1ee p1 p1e)) (null (inters p2 p2ee p2 p2e)) ) (progn (command "scu" "") (if (= (inters p1ee p2e p1e p2ee) nil) (progn (command "ligne" (polar p1ee (angle p1ee p2e) (/ (distance p1ee p2e) 2)) (polar p1e (angle p1e p2ee) (/ (distance p1e p2ee) 2)) "" ) ) (command "ligne" (polar p1e (angle p1e p2e) (/ (distance p1e p2e) 2)) (polar p1ee (angle p1ee p2ee) (/ (distance p1ee p2ee) 2)) "" ) ) (command "scu" "p") ) (princ "\nErreur: segment non linéaire") ) (princ "\nErreur: segments non coplanaires ou non parallèles au plan du SCU courant" ) ) (princ "\nErreur: entité non valide") ) (setvar "clayer" cav) (setvar "ucsfollow" ucsfo) (setvar "osmode" osm) (setvar "cmdecho" 1) (princ) )

hello merci gile tjrs aussi rapide je vois juste un petit souci tes lisp prennent en compte l'ensemble des polylignes je cherchais un truc qui prenaient en compte un segment de la polyligne puis un autre segment je vais essayer avec comme base ton LISp "bissectrice" qui doit etre en visual lisp car il donne des donneées debutdeligne findeligne en fracauis dans le texte mais je garde tes LISp j'en ferais bon usage surement merci bonne nuit phil

hello j'utilise ce lisp pour faire une ligne "centrale" entre deux lignes mais voila le bimsss je dois creer un ligne a l'axe de cloisons qui sont faite en polyligne non close par moment apres decomposition et verification les faces ne sont pas parralleles ( super genial encore un bon celui qui a fait ca - pas le bon logiciel surement ) bref j'aimerai pouvoir recuperer les infos des sous entites de la polylignes ( les sois disantes lignes parralelles ) sans decomposer la polylignes pour l'adapter a mon LISp recuperer les points P1 P2 P3 P4 des extremites des deux "sous lignes" et ainsi crer la ligne mediane vous avez une idée ?? merci d'avance a+ phil ;; ligne centrale (defun C:LL () (setvar "cmdecho" 0) (setq CAV (getvar "clayer") OSM (getvar "osmode") SCUNA (getvar "ucsname") UCSFO (getvar "ucsfollow") ) (setvar "ucsfollow" 0) (setvar "osmode" 0) (setq SS1 (car (nentsel "\nSELECTIONNER LA PREMIERE LIGNE.")) P1 (cdr (assoc 10 (entget SS1))) P2 (cdr (assoc 11 (entget SS1))) SS2 (car (nentsel "\nSELECTIONNER LA DEUXIEME LIGNE.")) P3 (cdr (assoc 10 (entget SS2))) P4 (cdr (assoc 11 (entget SS2))) ) (command "scu" "") (if (= (inters P1 P4 P2 P3) NIL) (progn (command "ligne" (polar P1 (angle P1 P4) (/ (distance P1 P4) 2)) (polar P2 (angle P2 P3) (/ (distance P2 P3) 2)) "" ) ) (command "ligne" (polar P2 (angle P2 P4) (/ (distance P2 P4) 2)) (polar P1 (angle P1 P3) (/ (distance P1 P3) 2)) "" ) ) (command "scu" "p") (setvar "clayer" CAV) (setvar "ucsfollow" UCSFO) (setvar "osmode" OSM) (setvar "cmdecho" 1) (princ) )

hello quand ca beug tu n'es jamais seul ca fait ca aussi chez moi et des fois meme plus rien du tout genre : "les dernieres discussions sur le forum "les dernieres réponses" ca disparrait aussi surtout le vendredi quand la fenetre "clavardage" apparrait desole patrick mais y'a jamais personne pour "clavarder" il faudrait l'enlever ca ferait ca en moins a gerer donc +1 pour les bugs a+ phil [Edité le 9/10/2009 par PHILPHIL]

hello ca paye pas grands choses en effet lettre de motivation ?? en plus "bonjour a ce prix la je suis super motivé pour ne pas venir vous faire une formation sur un logiciel que je connais bien sur que je maitrise meme loll" phil

hello heuuuuu pardon d'avance j'ai jamais utiliser les RTEXT meme apres 13ans de totoCAD c'est quoi les qualités des RTEXT comparer au simplissime TEXT et relatif lourd MTEXT ??? fallait bien que quelqu'un pose la question bon week end phil

HELLO tjrs la meme chose ucsfollow = 0 dans la fenetre et apres c'est reglé phil