bseb67

Salut, voilà mon point de vue : Tout ce que l'homme construit peut être détruit.

RE, J'ai trouvé :). enfin pour l'espace papier: dans le code DXF du VIEWPORT, il y a le n° 348 qui lui pointe directement sur l'entité définissant le style visuel. Donc c'est ok pour ca :D me reste juste celui de l'espace objet. Pour une fois (de plus) le vla est moins pratique que le DXF ;) Merci encore de m'avoir fait relancé. J'étais retourné sur un autre lisp pour libérer mon crane de ce problème. Comme toujours : quand c'est la mer... laisse la tomber, fait autre chose et revient plus tard

Euh.... si je crois avoir trouvé, mais faut je trouve le décodage: en vl il y a une option qui s'appelle VisualStyle en faisant : (setq s (ssget "x" '((0 . "VIEWPORT")))) (vla-get-VisualStyle (vlax-ename->vla-object (ssname s 0))) => 1 pour filaire 2d 3 pour filaire 3d 6 pour mon style sauf que le dictionnaire lui contient 17 styles visuels :casstet: et que mon style est le dernier de la liste. Si j'utilise un nom commencant par A il se retrouve en 4ème position dans le dictionnaire. Dans l'ordre: 2dWireframe 3D Hidden 3dWireframe ATK-3D Basic Brighten ColorChange Conceptual Dim Facepattern Flat FlatWithEdges Gouraud GouraudWithEdges Linepattern Realistic Thicken TK-3D

salut zebulon, c'est justement là que je pensais trouver quelque chose, mais non :( car pour l'ajout je fais: (setq style_visuel_ent_dic (dictsearch (namedobjdict) "ACAD_VISUALSTYLE") style_visuel_dic (cdr (assoc -1 style_visuel_ent_dic)) style_TK_3D (entmakex '((0 . "VISUALSTYLE")(100 . "AcDbVisualStyle")(2 . "TK-3D")(70 . 10) (71 . 3)(72 . 2)(73 . 1)(90 . 0)(40 . -0.6)(41 . -30.0)(62 . 5)(63 . 7) (421 . 16777215)(74 . 2)(91 . 0)(64 . 7)(65 . 257)(75 . 1)(175 . 1)(42 . 80.0) (92 . 8)(66 . 250)(43 . 1.0)(76 . 1)(77 . 6)(78 . 2)(67 . 7)(79 . 3)(170 . 0) (171 . 0)(290 . 0)(174 . 0)(93 . 13)(44 . 0.0)(173 . 0)(45 . 0.0))) ) et pour le retrait: (dictremove style_visuel_dic "TK-3D") Et comme on peut appliquer un style visuel pour chaque fenêtre de l'espace papier, ce qui fait que même si l'espace objet n'est pas dans mon style TK-3D, il suffit qu'une seule fenêtre de l'espace papier le soit, pour que l'on ne puisse pas retirer le style TK-3D De ce fait, je pensais que l'info était stocké dans le dxf du viewport, mais je n'ai rien trouvé...

Salut, Étant donné que je cherche la chose en lisp, ou vlisp, je poste ici mon petit problème : - en lisp j'arrive à créer un nouveau style visuel - de même qu'à l'effacer Mais petit hic, si le style visuel encours est celui que je veux effacer, forcément cela ne marche pas. Donc j'ai voulu voir si une variable autocad contenait le nom du style visuel encours, et bien non :( Il y a des variables qui sont changées lorsque l'on change de style visuel, mais ceux sont celles qui sont paramétrées par le style. La chose qui m'énerve le plus, c'est qu'en faisant: Commande: -STYLESVISUELS Entrez une option [définir Courant/Sauvenom/Renommer/sUpprimer/?]: c Entrez une option [filaire2d/filaire3d/Masqué3d/Réaliste/Conceptuel/Autre] : il me met bien comme style encours celui que j'ai créé, mais où autocad cache-t-il ca? Merci aux chercheurs ;)

A la base je n'étais pas contre cette baisse de TVA, pour moi le calcul était simple, on diminue de 14.1 points: - 4.1 points sur le prix - 5 points pour les salaires - 5 points pour des produits de qualité et de l'investissement. Mais comme toujours, tout le monde va payer pour que quelques uns en ont plus dans la poche.

Je suis une quiche :P , il faut inverser le (setq userclick t) et le (done_dialog) car le done_dialog t'éjectes de la dcl et tout le code qui suit dans les " " ne sera pas exécuté et il y a erreur de frappe pour la variable userclick != userclik de plus, il faut initialiser choix au début, car si l'utilisateur ne cliques que sur ok, choix ne vaut rien ou une valeur non valide [Edité le 14/8/2009 par bseb67]

justement, les deux (if (= choix ...) ) ne marchent pas à cause de la réponse donnée plus haut

J'oubliais, tu fais un (setq choix \"X\") => donc choix vaudra "X" et non X pour compléter le lisp, moi je mettrai un cond: (cond ((= userclick nil) ; annulé ) ((= choix "1") (command "-inserer" "BlocA" '(0.0 0.0 0.0) 1 1 0) ) ((= choix "2") (command "-inserer" "BlocB" '(0.0 0.0 0.0) 1 1 0) ) )

Salut Guigues, l'erreur est dans le (command "-inserer"): il y a dans l'ordre: - nom du bloc - position (point 3D => '(0.0 0.0 0.0) par ex - échelle X - échelle Y - angle de rotation il te manque le point d'insertion, l'échelle en X et Y ceux sont des réels donc pas de "" et pour l'angle idem

Salut x_all, Le cpu c'est ok, mais pour la ram et la carte graphique, c'est un peu limite. Si tu as la 2009, ne mets pas la 2010. Ca plante encore plus souvent, ca bouffe plus vite encore de la ram. 2009 et 2010 sont surtout fait pour tourner sur un OS 64 bits. J'ai mis une 2009 et une 2010 sur des portables avec vista 64bits, ca m'a l'air de beaucoup mieux tourner que son mon pc avec Xp32 avec une config quasi équivalente. Sur mon poste, je n'utilise la 2009 ou 2010 que si je dois controler ou récuperer des fichiers ou ces fonctions ne marchent pas correctement sur 2007-2008 (mais bon, quand on recoit des fichiers pourris, ils restent pourris :( )

N'ayant pas eu de réponse de jeff_64, mais étant donné que l'on a acheté deux portables en vista 64bits sur lesquels ont a mis autocad 64bits. J'ai fait quelques essais pour l'utilisation en ram. Super, le 64bits permet bien de dépasser la barre de 1.8Go, j'ai pu monter à quasiment 3Go, après étant donné que le nombre de dessin ouvert dans autocad est limité à 15, l'ouverture d'un autre fichier lançait un nouveau processus AutoCAD.exe. De plus, j'ai l'impression qu'autocad est plus rapide que sur un XP 32 bits.

Alors jeff_64? tu es de retour? passé de bonnes vacances?

oui, je sais, mais c'est encore un reflex gardé... ;)

Alors là je suis sur le cul :o un simple: ; on parcourt les entités du bloc (vlax-for vl_ent (vla-Item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) bl_name) (cond ; on teste si c'est un bloc ((/= (vla-get-ObjectName vl_ent) VAR_ACAD_DEF_BLOC) ) ; on teste si le nom est un de ceux cherchés ((/= (member (vla-get-EffectiveName vl_ent) lst_ss_bl_name) nil) (vla-delete vl_ent) ) ) ; cond ) ; vlax-for ; un regen pour mettre à jour (vl-cmdf "_.regen") où: VAR_ACAD_DEF_BLOC = "AcDbBlockReference" bl_name = nom du bloc à traiter lst_ss_bl_name = liste de noms de blocs Il y a des moments ou je me dit autocad c'est de la bouse, mais pour ce cas là: c'est super fort :D

Ok et merci (gile), je vais alors essayer par la définition du bloc.

Salut à tous, Pour la première fois depuis 2ans, je dois faire un bedit d'un bloc dans lequel je dois supprimer des entités. Mais là je suis un peu dans le flou: - je pensais faire un ssget "x" et filtrer sur les objets voulus, mais en fait le ssget me renvoie les objets de tout le dessin et pas ceux uniquement contenus dans le bloc ouvert :( - et je ne vois pas comment filtrer autrement... Si l'un de vous peut m'éclairer? Merci.

Salut, j'allais juste poster pour dire d'utiliser SAS. :D Sinon, je me demande si avec un open avec ObjectDBX on peut aussi modifier des entités. Je voudrai tester, mais pas encore eu le temps d'essayer. mais un read avec ObjectDBX c'est super rapide :D : pour le boulot cela ma permit de passer de 45min avec un open classique dans autocad avec sas à 3min seulement

Re, patrick_35: la faute est corrigée :) lili2006: dans quel sens ca ne marche pas? l'edit à un peu changer, avant j'affichai la valeur de l'échelle, mais là, vu que l'on peut faire une sélection multiple, la case est vide

a part le problème des fenêtres qui sont les présentations, http://bseb67.free.fr/lisp/fenetres_presentationsV2.lsp voici le visuel de la nouvelle version: http://bseb67.free.fr/lisp/dcl_ech_presentationV2.PNG - Maintenant il n'y a qu'une seule liste. -1ère ligne : 21CD4B => id de la fenêtre 00 => nom de la présentation 6.00000 => échelle D => déverrouiller (si V = verrouiller) - la sélection multiple fonctionne ;) - les modif sont appliquées dès le clic sur "appliquer" et la liste change en fonction. Bon, le lisp est encore brouillon et je vais tenter un mix avec les bouts de (Gile)

Tiens, des trucs bizarres que je ne comprends pas: Si je suis en espace objet, je fais un ssget sur tous les viewport sauf ceux dont le code 69 vaut 1 (car pour ce cas là c'est la présentation elle-même). Pour certaines présentations il me donne un code 69 à 0, alors que pour d'autre j'ai bien 2, 3... :casstet: Le plus bizarre, c'est que si je vais sur la présentation où j'ai 0, je refait ma sélection, le 0 est devenu 2, 3... :P :mad: edit: mais c'est un vrai m... ce truc. Une présentation est considérée comme un bloc caché. Et normalement, le premier élément de ce bloc c'est le viewport qui englobe donc la vue de la présentation. J'ai essayé en filtrant là-dessus, mais c n'est pas toujours les cas. :casstet: bon, en clair , on ne garde que le filtre 69 à 1 et puis c'est tout :mad: [Edité le 29/7/2009 par bseb67]

pour suivre rebcao: \ par / ou par \\

Salut à tous, C'était un premier jet ;) , si j'ai le temps entre midi et deux, je rajoute l'évolution annoncée plutot. Et je vais faire une autre version. et un petit bonus en plus, mais schutt, vous verrez. :cool:

Bon, une première version avec uniquement l'échelle de la fenêtre le lisp http://bseb67.free.fr/lisp/fenetres_presentations.lsp une visuel de la dcl http://bseb67.free.fr/lisp/dcl_ech_presentation.PNG commande: cefp ou (c:cefp) demain j'ajouterai l'application d'une échelle sur toutes les fenêtres de la présentation choisie PS: s'il y a des bugs, questions ou autre, n'hésiter pas à poster ou en mp.

salut lenoil, il n'existe pas (enfin sur à 99%) aucun timer en lisp. C'est pourquoi exactement? Par contre tu peux créer un réacteur vlr-reactor qui s'active suite à un événement, et à lui de vérifier ton temps. mais cela risque d'être pas très top. a+