PHILPHIL

hello gile ca vient peut etre du fichier *.zip car le fichier a l'interieur na pas de suffixe *.DLL car les deux *.DLL sont dans le meme répertoire l'un se charge bien pas le premier merci a+ phil Commande: (command "_NETLOAD" "LayerFilterImportExport.dll") _NETLOAD Nom du fichier d'assemblage: LayerFilterImportExport.dll Impossible de charger l'assemblage. Détails de l'erreur: System.BadImageFormatException: Impossible de charger le fichier ou l'assembly 'file:///C:\perso\lisp\LayerFilterImportExport.dll' ou une de ses dépendances. Le module était censé contenir un manifeste de l'assembly. Nom du fichier : 'file:///C:\perso\lisp\LayerFilterImportExport.dll' à System.Reflection.Assembly._nLoad(AssemblyName fileName, String codeBase, Evidence assemblySecurity, Assembly locationHint, StackCrawlMark& stackMark, Boolean throwOnFileNotFound, Boolean forIntrospection) à System.Reflection.Assembly.InternalLoad(AssemblyName assemblyRef, Evidence assemblySecurity, StackCrawlMark& stackMark, Boolean forIntrospection) à System.Reflection.Assembly.LoadFrom(String assemblyFile) à Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName) à loadmgd() AVT : le journal de liaison d'assembly est désactivé. Pour activer le journal des échecs de liaison d'assembly, attribuez la valeur 1 à la valeur de Registre [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD). Remarque : une certaine perte de performance est associée à l'enregistrement dans le journal des échecs de liaison d'assembly. Pour désactiver cette fonctionnalité, supprimez la valeur de Registre [HKLM\Software\Microsoft\Fusion!EnableLog]. Commande: nil Commande: 'VLIDE Commande: Commande: (command "_NETLOAD" "PolylineEdit2.dll") _NETLOAD Nom du fichier d'assemblage: PolylineEdit2.dll Commande: nil

hello gile je charge le DLL de la meme facon que les autres DLL ceux la marchent mais j'ai ca comme réponse "iftr" "eftr" commandes inconnues tu peux verifier les commandes stp a+ phil

hello gile quelle est l'extension de "LayerFilterImportExport" ?? c'est un DLL ?? a+ phil

HELLO ok merci bon apres des tests dechangement de couleur de reticule dans les LISP ca a plutot tendeance a crer de gros souci genre "annulée" et "reprendre" des question type "getpoint" "getdist" ca fait pas terrible sur la ligne de commande il est plus rapide et interessant de juer avec "cursorsize" merci a+ phil

bonjour je cherche la variable ou la fonction LISP pour changer la couleur du riticule dans un LISP sans passer par les fenetres d'options bien sur que je le fasse changer de couleur ( rouge) quand mon LISP me pose des question sur la ligne de commande puis que je le fasse repasser en blanc quand celui ci doit bosser / pointer sur l'ecran merci a tous a+ phil

hello faire un top 10 serat tres difficile pour moi j'utilise pas mal gef 3.5 ca c'est sur mais vue que j'ai plus de 150 fichiers LISP avec pas mal de "c:" dedans differents je touche a tout j'ai pourtant voulut essayer "DILEADER 2.3" mais bizarrement ca beug il a l'air interessant comme lisp pourtant est ce le fait d'etre sous seven 64? on fait c'est un LISP gratuit qui utilise un programme objectdcl payant si je comprend bien y'a un truc qui colle pas trop quoique <acronym class=dict title= a+ phil [Edité le 13/3/2010 par PHILPHIL]

ALORS histoire de pourrir un peu le post 6 oeufs ( jaunes ) 250 g de sucre mélange et goutter 150 g de beurre ramoli mélange et goutter hummm 200 g de chocolat a fondu mélange et goutter rehummm 150 g de farine mélange goutter mais moins bon 6 oeufs ( blancs batus ) mélange DELICATEMENT moule four 180 dégrés 55 minutes lecher le plat HUUMMMMMMMMMMMMMMMMMM et autocad pendant ce tps la ok je sors phil HISTOIRE DE PoURRIR UN PEU LE POST

hello gile l'a deja ecrite c:ppl c:cpl ici http://cadxp.cadmag.info/sujetXForum-17474.htm ca marhe a+ phil

hello merci gile celui ci marche il sufit de mettre une etoile "*" comme bout de nom pour tout prendre en compte attention plus il y a de bloc plus ca prend de temps au 250 ieme bloc le tableau met 10 secondes par ligne pour se remplir et ca va en augnentant a+ phil (defun c:tabloblo4 (/ blocks libloc ss col ;;; liref ptins tableVL cont row blk) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (setq blocks (vla-get-Blocks *acdoc*)) (setq liref nil) (setq parnombloc1 (getcfg "APPDATA/PARNOMBLOC1")) (setq com1 (getstring t (strcat "\nVEUILLEZ ENTRER UNE PARTIE DU NOM DES BLOCS A LISTER <" parnombloc1 "> : " ) ) ) (if (/= com1 "") (setq parnombloc1 com1) ) (setcfg "APPDATA/PARNOMBLOC1" parnombloc1) ; (setq test (strcat "*" parnombloc1 "*")) ;; (prompt (strcat ;; "\nle bout du nom de bloc est : " ;; test ;; ) ;; ) (prompt "\nSélectionnez les blocs à lister ou " ) (or (setq ss (ssget (list '(0 . "INSERT") (cons 2 (strcat "*" parnombloc1 "*"))) ) ) (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 (strcat "*" parnombloc1 "*"))) ) col T ) ) (if ss (progn (vlax-for x (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (or (vlax-property-available-p x 'Path) (setq liref (cons (if (vlax-property-available-p x 'EffectiveName) (vla-get-EffectiveName x) (vla-get-Name x) ) liref ) ) ) ) (vla-delete ss) ) ) (if col (vlax-for i (vla-get-Blocks *acdoc*) (if (= parnombloc1 "*") (if (and (not (wcmatch (setq name (vla-get-Name i)) "`**,*|*")) (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (cons (vla-get-name i) libloc)) ) (if (and (wcmatch (setq name (vla-get-Name i)) (strcat "*" parnombloc1 "*") ) (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (cons (vla-get-name i) libloc)) ) ) ) (setq libloc (remove_doubles liref)) ) (setq libloc (vl-sort libloc '<)) (initget 1) (setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq tableVL (vla-addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point ptins) (+ 2 (length libloc)) 3 120 ; Hauteur cellule 250 ; Largeur cellule ) ) (vla-put-VertCellMargin tableVL 4.0) ; Marge verticale (vla-put-TitleSuppressed tableVL :vlax-false) (vla-put-HeaderSuppressed tableVL :vlax-false) (vla-setText tableVL 0 0 "Blocs") ; Titre (vla-setText tableVL 1 0 "Nom") ; Titre colonne 1 (vla-setText tableVL 1 1 "Nombre") ; Titre colonne 2 (vla-setText tableVL 1 2 "Symbole") ; Titre colonne 3 (setq cont -1 row 1 ) (SETQ nbobj (+ 1 (length libloc))) (repeat (- (vla-get-Rows tableVL) 2) (setq blk (nth (setq cont (1+ cont)) libloc)) ;; Nom du bloc (colonne A) (vla-settext tableVL (setq row (1+ row)) 0 blk ) ;; Nombre de blocs (colonne B) (vla-settext tableVL row 1 (length (vl-remove-if-not '(lambda (n) (= n blk)) liref ) ) ) ;; Symbole (colonne C) (vla-SetBlockTableRecordId tableVL row 2 (vla-get-ObjectId (vla-item blocks blk)) :vlax-true ) (vla-setcellalignment tableVL row 0 5) (vla-setcellalignment tableVL row 1 5) (prompt (strcat "\rENTITE TRAITEE : " (rtos row 2 0) " SUR : " (rtos nbobj 2 0)) ) ) (princ) ) [Edité le 17/1/2010 par PHILPHIL]

hello gile merci juste le smiley qui fait "ch..." en plein milieu il cache quoi le smiley ?? a+ phil

HELLO bon finallement le visulalips c'est pas encore ca je pige que dalle donc ca ne marche pas pour le tableau en selectionnant sauf pour la tableau en demandant tout desolé a+ phil

HELLO GILE ok le tableau remplit sauf le probleme avec la selection des objets mais vue que ca marche pour le tableau en validant direct je vais chercher pour le tableau en selectionnant je viendrait mettre la correction du lisp une fois reussis merci gile a+ phil

HELLO tramber y'a pas de souci :P :) vas y chatouille plus ca m'a permis d'apprendre le racourci clavier de ces fonctions .x .y .z a+ phil

hello tramber y'a assi du B.A.B.A. que l'on utilise jamais donc ca s'oublie loll phil

hello gile doit y avoir un tit souci dans la liste le tableau est a chaque fois vide LA LISTE est dans l'ordre ca Ok a+ phil [Edité le 18/1/2010 par PHILPHIL]

hello je voudrais que le tableau soit dans l'ordre alphabetique j'ai bien essayé ca un peu partout dans le lisp mais ca ne marche pas (setq liref (acad_strlsort libloc)) ou ca (setq liref (acad_strlsort liref)) mais si la liste est dans l'ordre des fois les blocs ne corespondent plus aux noms de blocs zarbiii tous ca a+ phil

HELLO GILE merci ca marche par contre je n'arrive tjrs pas a piger pourquoi aussi bien "tabloblo" que "tabloblo1" ne marchent pas quand ils sont charger avec le fichier "FAS" et ne marche que si je les recharge a partir de VISUAL LISP et tabloblo1 BUG si on met "*" comme partie du nom de bloc ce qui permetrait de lister dans ce cas tous les blocs apres un test il ne BUG pas mais il liste meme les nom de cotes, et autres trucs "insert" a+ phil ;; TABLOBLO (Tramber) ;; Crée un tableau qui liste les blocs insérés (sélectionnés ou toute la collection) (defun c:tabloblo1 (/ libloc liidbloc ss col liref ptins tableVL cont row) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (setq parnombloc1 (getcfg "APPDATA/PARNOMBLOC1")) (setq com1 (getstring t (strcat "\nVEUILLEZ ENTRER UNE PARTIE DU NOM DES BLOCS A LISTER <" parnombloc1 "> : " ) ) ) (if (/= com1 "") (setq parnombloc1 com1) ) (setcfg "APPDATA/PARNOMBLOC1" parnombloc1) (prompt "\nSélectionnez les blocs à lister ou " ) (or (setq ss (ssget (list '(0 . "INSERT") (cons 2 (strcat "*" parnombloc1 "*"))) ) ) (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 (strcat "*" parnombloc1 "*"))) ) col T ) ) (if ss (progn (vlax-for x (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (or (vlax-property-available-p x 'Path) (setq liref (cons (if (vlax-property-available-p x 'EffectiveName) (vla-get-EffectiveName x) (vla-get-Name x) ) liref ) ) ) ) (vla-delete ss) ) ) (if col (vlax-for i (vla-get-Blocks *acdoc*) (if (and (wcmatch (setq name (vla-get-Name i)) (strcat "*" parnombloc1 "*") ) (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (append libloc (list (vla-get-name i))) liidbloc (append liidbloc (list (vla-get-ObjectID i))) ) ) ) (setq libloc (remove_doubles liref) liidbloc (mapcar '(lambda (x) (vla-get-ObjectID (vla-item (vla-get-Blocks *acdoc*) x) ) ) libloc ) ) ) (initget 1) (setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq tableVL (vla-addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point ptins) (+ 2 (length libloc)) 3 120 ; Hauteur cellule 250 ; Largeur cellule ) ) (vla-put-VertCellMargin tableVL 4.0) ; Marge verticale (vla-put-TitleSuppressed tableVL :vlax-false) (vla-put-HeaderSuppressed tableVL :vlax-false) (vla-setText tableVL 0 0 "Blocs") ; Titre (vla-setText tableVL 1 0 "Nom") ; Titre colonne 1 (vla-setText tableVL 1 1 "Nombre") ; Titre colonne 2 (vla-setText tableVL 1 2 "Symbole") ; Titre colonne 3 (setq cont -1 row 1 ) (repeat (- (vla-get-Rows tableVL) 2) (vla-settext tableVL (setq row (1+ row)) 0 (nth (setq cont (1+ cont)) libloc) ) (vla-settext tableVL row 1 (length (vl-remove-if-not '(lambda (n) (= n (nth cont libloc))) liref ) ) ) (vla-SetBlockTableRecordId tableVL row 2 (nth cont liidbloc) :vlax-true ) (vla-setcellalignment tableVL row 0 5) (vla-setcellalignment tableVL row 1 5) ) (princ) ) [Edité le 14/1/2010 par PHILPHIL]

hello tous j'essaye de modifier le LISP de tramber mais souci je voudrais forcer le LISp a ne faire le tableau que avec les blocs dont je connais un bout du nom ca doit bien se passer la ou j'ai surligner en jaune mais ca a l'air de marcher avec une contrainte inverser un tit coup de mains pour comprendre a+ merci phil [Edité le 14/1/2010 par PHILPHIL]

hello juste une petite chose vue que j'utilise rarement les MTEXT y'a moyen de savoir a quoi correspondent toutes les options de modifications qu'offre ce LISP bonne soirée phil

hello gile ca marche nettement plus concis que ma version mercii phil

HELLO je voudrais récuperer le txt des cotes pour le remettre sur d'autres cotes oupsss j'ai trouvé merci gile a+ phil (defun C:CTC (/ cot-b) (setvar "cmdecho" 0) (while (not cot-b) (setq cot-b (car (entsel "\nSELECTIONNEZ LA COTE DE BASE :"))) (if cot-b (if (not (equal (cdr (assoc 0 (entget cot-b))) "DIMENSION")) (setq cot-b nil) ) ) ) (setq TXT1 (cdr (assoc 1 (entget cot-b)))) (prompt (strcat "\nLE TEXTE DE BASE EST : " TXT1)) (setq TEST NIL) (setq TEST2 0) (prompt "\nCLIQUER LA COTE POUR MODIFIER LE TEXTE :") (setq ENTG NIL) (while (null ENTG) (setq ENTG (ssget '((0 . "DIMENSION"))))) (setq COM (sslength ENTG)) (setq COMPT 0) (while (< COMPT COM) (progn (setq SJ2 (entget (ssname ENTG COMPT))) (setq TXT2 (assoc 1 SJ2)) (setq SJ2 (subst (cons 1 TXT1) (assoc 1 SJ2) SJ2)) (entmod SJ2) (redraw ENT1 4) (prompt (strcat "\nL'ANCIEN TEXTE : " (cdr TXT2))) (prompt (strcat "\nA ETE REMPLACE PAR : " TXT1)) (setq COMPT (1+ COMPT)) ) ) (princ) ) [Edité le 12/1/2010 par PHILPHIL]

hello cool pas encore essayer sous aa2010 64bits mais y'a plus qu'a traduire je suppose lolll + phil

hello tous merci gile patrick cette version de *.DLL fonctionne test sur un fichier 7Mo 24 presentations à 1 fenetre et 1800 calques pas de soucis rencontre avec AA2010 64 bits juste un petit truc mais ca doit venir du grand nombre de calque ou/et fenetres la mise a jour de la liste des calques a droite qui met 3 4 secondes a+ phil :D ;)

hello AA2010 64 bits et seven 64bits on va dire que ca plante un peu moins sur des gros fichiers de la a voir que ca va plus vite alors laaaa c'est pas trasnscendant je vais tester en virant le mode "aero" de seven voir si ca va plus vite a+ phil

hello patrick gile merci du boulot les gars bon désole mais j'ai des soucis en 64 bits apparement sur gef 3.04 j'ai rajouter ca pensant que ca allait regler mon soucis mais non (command "_NETLOAD" "vplayerlisp.dll") sinon comme ca ne fonctionne pas j'ai ca en réponse charabia pour moi language pour vous ?? Commande: gef _NETLOAD Nom du fichier d'assemblage: vplayerlisp.dll Commande: System.MissingMethodException: Méthode introuvable : 'Void Autodesk.AutoCAD.DatabaseServices.ObjectId..ctor(Int32)'. à VpLayerLisp.LspFuntions.vpFreezeOrThaw(ResultBuffer resbuf, Boolean frz) à VpLayerLisp.LspFuntions.VpFreeze(ResultBuffer resbuf) à 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.CommandClass.CommandThunk.InvokeLisp(); erreur: Demande ADS erronée sinon sans connaitre le language c++ est ce que je n'aurais pas interet a télécharger le programme de programation en C++ qui doit etre gratuit je pense fournit par totocad et transformer ca en 64 bits moi meme ?? faut le code source c'est ca heinn a+ phil