Bred

Re, En effet, Ci dessous un lisp qui le fait, mais plus il y a d'onglet, plus c'est long... (et je ne parle pas de la regen) A mettre dans AutoCAD.lsp : ;;; Active chaque présentation et change valeur de PSLTSCALE (vl-load-com) (defun PUT-PSTSCALE (val / AC-DOC AC-LAY) (setvar "PSLTSCALE" val) (setq Ac-Doc (vla-get-activedocument (vlax-get-acad-object)) Ac-Lay (vla-get-activelayout Ac-Doc)) (vlax-for Lay (vla-get-layouts Ac-Doc) (vla-put-ActiveLayout Ac-Doc Lay) (setvar "PSLTSCALE" val) ) (vla-put-ActiveLayout Ac-Doc Ac-Lay) (princ) ) (PUT-PSTSCALE 0) par contre, pour les nouveau onglet, faudrais un réacteur..... et moi, les réacteurs... Si Patrick_35 repasse par là.....

Eh non, recao, je confirme, même avec le gabarit à 0, un nouvelle présentation à cette variable à 1..... (testé sous 2009)

Ah ben oui, tiens, bien vu ! C'est idiot... et même pas expliqué dans l'aide ! ... il doit bien y avoir une solution....

Salut, merci pour ta réponse ... c'est justement ce que je veux éviter....

Salut, :casstet: Pige pas... après avoir ouvert ton plan, et que tu as bien le message "Acad.lsp chargé !", PSLTSCALE est à 1 ? Tu ne te serais pas tromper dans l'orthographe de PSLTSCALE dans AutoCAD.lsp ? (désolé, je cherche....) Si tu copie la ligne (setvar "PSLTSCALE" 0) dans ton AutoCAD.lsp, et que tu la colle dans la ligne de commande, tu as bien la variable qui passe à 0 ? Tu n'as pas mis de parenthèse en trop, de point virgule ou autre dans le fichier AutoCAD.lsp ? (fait moi une copie de ce que tu as écris et colle le dans un message dessous....)

Salut, A l'inverse de la commande "NetLoad", je cherche la moyen de décharger un application charger précedement. Auriez-vous la solution ? Merci d'avance.

Salut, les point virgules devant les lignes d'un lisp annule la ligne. Si tu veux récupérer la partie du code à 3 décimale, enlève les points virgules devant les lignes de codes à 3 décimales, et met des points virgules devant celle à 2 décimales.

Si tu as fait ce que j'écris dessus, que le fichier AutoCAD.lsp est bien enregistré, et si tu n'as pas à l'ouverture de ton plan une boite de dialogue avec dedans marqué AutoCAD.lsp chargé !, c'est que justement ton AutoCAD.lsp n'est pas chargé ! ...

Dans le AutoCAD.lsp, copie ça après (setvar "PSLTSCALE" 0) : (alert "Acad.lsp chargé !") puis ouvre un nouveau plan (pas besoin de fermer/ouvrir autocad si la variable acadlspasdoc est à 1)

Salut Patrick_35, C'est déjà dit. il l'a fait. Mais ça marche pas....

Non non, pas besoin ! (setvar "PSLTSCALE" 0) suffit ! (tu peux rajouter un (princ) après si tu veux pour la propreté. ça c'est bizarre... vérifie ton chemin dans les fichiers support... :casstet:

Salut, tu peux aussi dans un répertoire déclaré dans les chemin supports, créer un fichier AutoCAD.lsp Ce fichier sera chargé à chaque ouverture d'un nouveau dessin si la variable ACADLSPASDOC = 1. Cela te permettras, même si tu ouvres un pancien plan ou un plan de quelqu'un d'autre, d'avoir toujours tes variables comme tu le désires. Dans ce fichier, tu peux écrire des lignes de codes. Pour ta variable, tu écris : (setvar "PSLTSCALE" 0)

Salut, Tu as la commande Autocad EXTRACTDONNEES mais qui varie beaucoup selon les versions d'Autocad. Sinon, en lisp, vue que l'on est dans ce forum, j'avais déjà fait une explication ici, avec extraction vers Excel. N'hésite pas à poser des questions si tu ne comprends pas.

Salut, pour la simple raison que les polygones sur AutoCAD sont des "LWPOLYLIGNE". sur Map, je ne connais pas, mais il y a l'air d'y avoir une autre entitée nommé "MPOLYGON". En imaginant la différence, j'imagine que cet entité doit garder sa forme si on l'étire avec une poignée (à la différence des polygones d'autocad) Mais je ne serais pas étonné que l'entité existe sur autocad normal... (gile), n'aurais tu pas récupérer un "MPOLYGON" pour voir si on peux l'avoir sur Autocad ?

Re, pour ceux que ça intéresse et qui y sont inscrit, j'ai quelques réponse aussi dans the swamp : http://www.theswamp.org/index.php?topic=23255.0

Non, désolé.

Et bien j'ai parlé trop vite... je me suis refait un gabarit tout neuf en partant d'ACADISO.dwt J'y ai remis mes calques, liés à mes rendus (tous ont été refait) ... Le problème reviens !!!!!! Mes wblocs en 3D solid Soustrais/unis perdent leur rendus !!!!!!!!!!!!!! AAAAAAHHHHHHHHHHHHHHHHHHH !!!!!!!!!!!!!!!!!!!! :mad: :mad: :mad: :mad:

Salut, avec Autocad tu arrives à faire de trés beau rendus. Si tu veux par contre faire des animations assez recherché, 3D max semble être très performant (mais il faut compter le temps d'apprentissage...)

Salut, Avec equal, qui accepte un tolérance : (equal x y 1e-8)

Salut, il faut afficher tes fenêtres en filaire 2D et tu mets leur propriété d'impression en caché. et pour l'enregistrer plus rapidement, tu désactives toutes tes fenêtres, et tu enregistre en EP.

(gile) : merci aussi, je connais ces routines, mais je mettais trop de temps à les chercher, et je suis aller au plus vite... Ben ça veux dire qu'un seul point... je suis bête ou quoi ? Si c'est ça je me suis pris la tête pour rien, parce que c'est plus simple !!!... :mad: suffit d'enlever quelques lignes... ;;; Met Nodal sur sommet plylignes - par Bred le 27/05/08 (defun c:nod-pl (/ I LST-COORD OB SEL Y R) (or (setq sel (ssget '((0 . "VERTEX,*POLYLINE")))) (setq sel (ssget "_X" '((0 . "VERTEX,*POLYLINE"))))) (repeat (setq i (sslength sel)) (setq ob (vlax-ename->vla-object (ssname sel (setq i (1- i)))) lst-coord (vlax-safearray->list (vlax-variant-value (vla-get-Coordinates ob)))) (setq y 0) (if (equal (vla-get-ObjectName ob) "AcDbPolyline") (setq r 2) (setq r 3)) (repeat (/ (length lst-coord) r) (vla-addpoint (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) ) (vlax-3d-point (list (nth y lst-coord) (nth (setq y (1+ y)) lst-coord) (if (equal (vla-get-ObjectName ob) "AcDbPolyline") 0.0 (nth (setq y (1+ y)) lst-coord))))) (setq y (1+ y)) ) ) (princ) )

merci pour tes conseils, j'avoue avoir taper ce code à la va-vite sans rechercher la finesse... afin de répondre le plus rapidement possible au Crabe... donc je suis allez à ce que je connaissait le mieux.

Salut, à tester (vite fait et tordu...) ;;; Met Nodal sur sommet plylignes - par Bred le 27/05/08 (defun c:nod-pl (/ I LST-COORD OB SEL Y R) (or (setq sel (ssget '((0 . "VERTEX,*POLYLINE")))) (setq sel (ssget "_X" '((0 . "VERTEX,*POLYLINE"))))) (repeat (setq i (sslength sel)) (setq ob (vlax-ename->vla-object (ssname sel (setq i (1- i)))) lst-coord (vlax-safearray->list (vlax-variant-value (vla-get-Coordinates ob)))) (if (equal (vla-get-Closed ob) :vlax-true) (progn (setq lst-coord (list (car lst-coord) (cadr lst-coord) (caddr lst-coord))) (if (equal (vla-get-ObjectName ob) "AcDbPolyline") (setq lst-coord (list (car lst-coord) (cadr lst-coord)))))) (setq y 0) (if (equal (vla-get-ObjectName ob) "AcDbPolyline") (setq r 2) (setq r 3)) (repeat (/ (length lst-coord) r) (vla-addpoint (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) ) (vlax-3d-point (list (nth y lst-coord) (nth (setq y (1+ y)) lst-coord) (if (equal (vla-get-ObjectName ob) "AcDbPolyline") 0.0 (nth (setq y (1+ y)) lst-coord))))) (setq y (1+ y)) ) ) (princ) )

Salut, bob, ben je me suis exité pour rien. Ce bug a bien l'air d'être à cause de mon gabarit.... C'est bizarre, mais bon... La moralité de ce post, c'est qu'à chaque version d'Acad, refaites-vous un gabarit à partir de cette version...

... mmmmmm :casstet: je suis en train de me demander si ça ne viendrais pas de mon gabarit.... je le traine depuis pas mal d'années, en le modifiant de version en version. faudrais peut-être que j'en fasses un tout neuf..... merci pour tes tests en tout cas ! ;)