PHILPHIL

hello gile ca marche j'ai juste rajouter dans le LISP pour qu'il prenne bien en compte toutes les polylignes apres un zoom sur les point de depart et arrivée merci gile a+ phil .... (progn (vl-cmdf "zoom" "ob" ss "") (repeat (setq n (sslength ss)) ....

hello a fond dans la programmation ce week end gile ?? les *.DLL que tu créer , c'est ca que tu appelles le "dotnet" phil[Edité le 13/6/2009 par PHILPHIL] [Edité le 13/6/2009 par PHILPHIL]

hello s'ils sont vides "oui" le prgramme "purger" ne doit pas se soucier de savoir s'il est verrouillé ou pas apparement a+ phil

hello tu parles de la fonction "FILTER" ou de "QSELECT" car en fait les deux appellent une boite de dialogue mais sinon comme le dit gile si c'est pour faire une ligne de code dans un LISP ssget ferat l'affaire a+ phil

hello gile merci d'avoir regarder il y a quand meme un petit souci si on zoom pour aller chercher le deuxieme point de base le LISP perd touts les points de references des polylignes préalablement selectionnées ( la fonction "etirer" ne prend en compte que les" points" / "polylignes" qui sont vue entierement a l'ecran je crois ) dans "ETCP" juste apres la selection de la polyligne il y avait un zoom sur la polyligne pour qu autocad enregistre ses points plein ecran et ensuite on selectionnais les deux points( base, final) d'ou mon idée d'aller chercher en premier les deux points ( base , arrivée) puis de zoomer sur la selection des polylignes la fonction "etirer" n'accepte pas que l'ont sélectionne deux points d'une meme polyligne en deux fois il n'y a que "MSTRETCH" des express tools qui accepte ca bizarre merci gile bon week phil

hello gile C'est un peu comme les polygones AEC dans aa2010 aa2009 aa2008 on peut aussi avoir une epaisseur de ligne definit et rajouter enlever des points par contre ca prend de la place dans le fichier DWG et parti comme tu es gile tu vas trouver un LISP pour rajouter des points ou en enlever au MPOLYGONE suivant votre version autocad il faut changer dans le LISp "acmpolygonobj18.dbx" le passer en "18" pour la version 2010 acmpolygonobj17.dbx pour la version 2009 je suppose a+ bon week phil [Edité le 12/6/2009 par PHILPHIL]

HELLO gile a ecrit ce LISP (defun C:ETCP (/ ENT ELST PLST ) (setvar "cmdecho" 0) (setq OSM (getvar "osmode")) (setvar "osmode" 0) (and (setq ENT (car (entsel))) (setq ELST (entget ENT)) (= "LWPOLYLINE" (cdr (assoc 0 ELST))) (setq PLST (mapcar (function (lambda (X) (trans (cdr X) ENT 1))) (vl-remove-if-not (function (lambda (X) (= (car X) 10))) ELST) ) ) (vl-cmdf "zoom" "ob" ENT "") (vl-cmdf "_.erase" ENT "") (vl-cmdf "_.stretch" "_cp") (mapcar 'vl-cmdf PLST) (vl-cmdf "" "") ) (setvar "osmode" OSM) (princ) ) j'essaye de le modifier pour qu'il prenne en compte plusieurs polylignes et lui donner des le depart les deux points de translation mais je bute sur le fait qu'il prenne meme en compte les points "POI1" "POI2" une explication pourquoi ca ne marche pas ??? phil (defun C:ETCPP (/ ;;UNEPOLY ELST PLST ) (setvar "cmdecho" 0) (setq OSM (getvar "osmode")) (setq POI1 NIL) (while (null POI1) (setq POI1 (getpoint "\n1er POINT DE DEPART")) ) (setq POI2 NIL) (while (null POI2) (setq POI2 (getpoint "\n2eme POINT DE D'ARRIVEEE")) ) (setvar "osmode" 0) (prompt "CLIQUER SUR L'ENTITE(S) POLYLIGNE(S) FERMEE(S) :" ) (setq LESPOLY nil) (while (null LESPOLY) (setq LESPOLY (ssget (list (cons -4 " (cons 0 "polyline") (cons 0 "lwpolyline") (cons -4 "or>") ) ) ) ) (setq compt 0) (setq com (sslength LESPOLY)) (while (< compt com) (progn (setq UNEPOLY (ssname LESPOLY compt)) (and (setq ELST (entget UNEPOLY)) (= "LWPOLYLINE" (cdr (assoc 0 ELST))) (setq PLST (mapcar (function (lambda (X) (trans (cdr X) UNEPOLY 1))) (vl-remove-if-not (function (lambda (X) (= (car X) 10))) ELST ) ) ) (vl-cmdf "zoom" "ob" UNEPOLY "") (vl-cmdf "_.erase" UNEPOLY "") (vl-cmdf "_.stretch" "_cp") (mapcar 'vl-cmdf PLST) (vl-cmdf poi1 poi2) ) (setq compt (1+ compt)) ) ) (setvar "osmode" OSM) (princ) ) [Edité le 12/6/2009 par PHILPHIL] [Edité le 12/6/2009 par PHILPHIL]

hello gile aa2010 phil ommande: netload Commande: supreg Profil courant : AutoCAD Architecture (Métrique) Chemins de recherche : C:\Users\PHIL\appdata\roaming\autodesk\aca 2010\fra\support c:\program files\aa2010\support c:\program files\aa2010\fonts c:\program files\aa2010\help c:\program files\aa2010\express c:\program files\aa2010\support\color C:\Users\PHIL\appdata\roaming\autodesk\aca 2010\fra\support\pats c:\programdata\autodesk\aca 2010\fra\layers c:\perso c:\perso\lisp c:\perso\bibliotheque\hachure c:\perso\bibliotheque\hachure\hachures-pat Commande: supconf Chemins de recherche : C:\Users\PHIL\appdata\roaming\autodesk\aca 2010\fra\support c:\program files\aa2010\support c:\program files\aa2010\fonts c:\program files\aa2010\help c:\program files\aa2010\express c:\program files\aa2010\support\color C:\Users\PHIL\appdata\roaming\autodesk\aca 2010\fra\support\pats c:\programdata\autodesk\aca 2010\fra\layers c:\perso c:\perso\lisp c:\perso\bibliotheque\hachure c:\perso\bibliotheque\hachure\hachures-pat

hello gile tjrs sur AA2010 ca marche a+ phil Commande: supreg Profil courant : AutoCAD Architecture (Métrique) Chemins de recherche : C:\Users\PHIL\appdata\roaming\autodesk\aca 2010\fra\support c:\program files\aa2010\support c:\program files\aa2010\fonts c:\program files\aa2010\help c:\program files\aa2010\express c:\program files\aa2010\support\color C:\Users\PHIL\appdata\roaming\autodesk\aca 2010\fra\support\pats c:\programdata\autodesk\aca 2010\fra\layers c:\perso c:\perso\lisp c:\perso\bibliotheque\hachure c:\perso\bibliotheque\hachure\hachures-pat Commande: support Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' en type d'interface 'Autodesk.AutoCAD.Interop.AcadPreferences'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{5A6047B5-55E8-456B-A5D1-D42C5DC90B96}' a échoué en raison de l'erreur suivante : Cette interface n'est pas prise en charge (Exception de HRESULT : 0x80004002 (E_NOINTERFACE)).

hello j'ai une "LENTEEE" version 32 bits a mon grand desespoir vivement "seven" enfin j'espere il fallait bien sauvegarder le fichier *.DLL dans le sous repertoire de "aa2010" ?? et non forcement sur "c:" a+ phil http://images.imagehotel.net/4d7lsh4pym.jpg [Edité le 2/6/2009 par PHILPHIL]

hello gile sur AA2010 ca doit merdouiller gile une fois vue j'efface tout a+ phil Consultez la fin de ce message pour plus de détails sur l'appel du débogage juste-à-temps (JIT) à la place de cette boîte de dialogue. ************** Texte de l'exception ************** System.InvalidCastException: Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' en type d'interface 'Autodesk.AutoCAD.Interop.AcadPreferences'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{5A6047B5-55E8-456B-A5D1-D42C5DC90B96}' a échoué en raison de l'erreur suivante : Cette interface n'est pas prise en charge (Exception de HRESULT : 0x80004002 (E_NOINTERFACE)). à Preferences.Class1.test() à Autodesk.AutoCAD.Runtime.CommandClass.InvokeWorker(MethodInfo mi, Object commandObject, Boolean bLispFunction) à Autodesk.AutoCAD.Runtime.CommandClass.InvokeWorkerWithExceptionFilter(MethodInfo mi, Object commandObject, Boolean bLispFunction) à Autodesk.AutoCAD.Runtime.PerDocumentCommandClass.Invoke(MethodInfo mi, Boolean bLispFunction) à Autodesk.AutoCAD.Runtime.CommandClass.CommandThunk.Invoke() ---------------------------------------- ---------------------------------------- ************** Débogage JIT ************** Pour activer le débogage juste-à-temps (JIT), le fichier de configuration pour cette application ou cet ordinateur (machine.config) doit avoir la valeur jitDebugging définie dans la section system.windows.forms. L'application doit également être compilée avec le débogage activé. Par exemple : Lorsque le débogage juste-à-temps est activé, les exceptions non gérées seront envoyées au débogueur JIT inscrit sur l'ordinateur plutôt que d'être gérées par cette boîte de dialogue. [Edité le 1/6/2009 par PHILPHIL] [Edité le 2/6/2009 par PHILPHIL]

hello rien que pour toi tramber c'est quoi UCSFOLLOW :D HEIN !!!!!!! ok je sors phil

hello si tu fais "RACCORDER" "R" "5" selection de la droite et du cercle ca devrait marcher sans que tu n'es besoin de faire les deux parralelles a "5" par contre c'est sur, ton cercle ne va pas se justifier sur ton nouvel arc de "5". dans un cercle il n'y a pas de debut ou de fin comme sur l'arc donc dans le calcul il ne sait pas ou il doit se justifier si tu ouvres ton cercle pour en faire un arc , la il va se justifier sur ton nouvel arc de "5" a+ phil

hello fonction "OVERKILL" des "express" ca netoie ce qui est pile poil superpose phil

HELLO de rien phil

hello bon pousse un peu ton investigation et clique sur "tout" tu verras que tout est composé de "texte" et de "textmult" reclique sur "text" ou "texmult" du genre je suis au milieu de la route je vois un camion arriver a vive allure sur moi que dois je faire ? attendre que le camion pile et s'arrete juste a mon niveau ma laissant la vie sauve ( peu probable la camion est lancé a fond ) ou je fais un ecart et regarde le camion me passer juste devant le nez en me faisant un leger souffle sur le visage ( a comme c'est raffraichissant ) ou ta solution j'attend qu'un bon sinmaritain me tire par le col pour me sauver la vie italique = humour noir bonne nuit phil

hello patrick merci encore pour GEF 3.30 beta tu peux remplacer gef 2.20 par 3.30 pour moi ca marche a+ phil

hello tu peux les inserer en tant qu'objet OLE a condition que ce soit des images BMP ca ne marche pas avec les images JPG ca met un rectangle blanc avec le nom du fichier pas besoin de formation pour ca il suffit que le fichier image soit dans le meme sous repertoire que le fichier DWG pour qu'il soit retrouve directement a l'ouverture de celui ci vu que j'ai fait le test je peux ironiser un peu qui a besoin d'une formation ???? toi ou ton client ?? italique = humour phil

hello je vais me faire la mauvaise langue du spot c'est deja ce foutre de notre G.... bipppppp que de nous mettre une norme ecrit par un "juriste" qui n'a jamais tenu un "ROTRING" de sa vie pour dessiner un plan et encore moins une 'SERGENT MAJOR" oups non la désole ca remonte trop loin la regle ??? metre, centimetre , millimetre ?? je dirais ce que l'on veux du moment déja que tout soit cohérent et surtout que le dessin en lui meme soit juste a 8 chiffre apres la virgule avant d'avoir le culot de me coter ca en millimetre oupsss je m'emporte la bon journée et bon CAD phil

hello a une question qui peut paraitre bizarre ( maintenant ) la réponse ( passée ) est tres logique en effet a+ phil

hello a tous resolu ca venait d'un LISP pour renommer les blocs en cliquant sur le bouton droit il devait y avoir interference LISP supprimmer plus de probleme sous AA2010 quand vous selectionnez un grip est ce que chez vous le menu accrochage ( Maj + click droit ) apparait ?? j'ai un tout petit icone mais pas de menu a l'ecran sympathique BUG encore ?? a+ phil [Edité le 1/5/2009 par PHILPHIL]

hello %<\AcVar ctab>% peut etre pratique il est vrai je vais adopter phil

hello tu dois vouloir parler du nom de l'onglet espace papier cherche plutot de ce cote la a+ phil

hello ca vient peut etre de l'autre fichier alors si celui la te parrait clair, net , nickel, propre a+ phil

hello on dirait que ton bloc a un "WIPEOUT" qui se met en premier sur le dessus et cachant le texte dessous verifie ton bloc qui sait ou alors la typo du bloc aussi un truc qu'il ne digere pas son altitude "Z" aussi les textes n'aiment pas la troisieme dimension et puis qui sait l 'XREF n'est peut pas sur un plan bien plan mais legerement incliné regarde tes fichiers si ca se trouve ils sont en 3D et si tu t'accroches dessus ca merdouille se sont des pistes a+ phil