vinz34

Salut, Si tu postes dans le forum prévu pour ta version d'autocad tu auras certainement des réponses plus adaptées. Sur ce.....

Salut, Est-ce que tu as pensé aux champs ?

Salut, T'as bien raison, rien de tel que le vélo pour garder la forme.

Bonjour, Je cherche à compiler dans un vlx un fichier lsp et 2 fichiers txt mais je n'y arrive pas ! Je ne comprends pas : Si je ne mets que le fichier lsp ça fonctionne Si je mets avec un fichier dcl : OK, Si je mets un fichier txt : commande inconnue, mon fichier lsp n'est pas chargé. Est-ce quelqu'un sait le faire ?

Salut, Je ne pense pas que ça puisse résoudre le problème. J'ai fait un test en changeant de profil ça fonctionne bien.

Salut, Essaies la commande "image"

Bonjour, Après avoir testé a peu près toutes les variables d'autocad, je me retrouve face à un problème assez gênant : Je n'ai plus d'images sur mes plans quand je fais une publication. Ca fonctionne très bien quand j'imprime normalement. Je ne retrouve pas cette satanée variable. Peut-être que l'un d'entre vous la connaît...

Salut speedy, Sinon tu pouvais l'écrire entre parenthèses dans la ligne de commande

Salut, Je me suis posé la même question mais je ne l'ai pas encore approfondie. Je ne te serai donc pas d'une grande aide pour l'instant. En revanche, peux-tu nous envoyer le lien au cas où des pistes auraient été évoquées.

speedy, Pour savoir si tu as un attribut dans un bloc, il te faut savoir si le bloc a le drapeau 'entité suivent'. Tu peux commencer comme ça : (setq ss (ssget "_X" '((66 . 1)))) Tu te retrouves maintenant avec un jeu de sélection de blocs, il faut donc traiter les blocs un par un pour tester sur chaque entité si cette dernière est un attribut (0 . "ATTRIB"). (repeat (setq n (sslength ss)) (setq ent (ssname ss (setq n (1- n))) e (entnext ent)) (while e (cond ((= (cdr (assoc 0 (setq elist (entget e)))) "ATTRIB") (progn (ssadd ent ssatt)(setq e nil))) ((= (cdr (assoc 0 (setq elist (entget e)))) "SEQEND") (setq e nil))))) (sssetfirst nil ssatt) On peut l'écrire plus proprement mais ça fonctionne Edit : Trop tard ! ;) [Edité le 5/2/2008 par vinz34]

Salut, regarde ce sujet, tu devrais y trouver ton bonheur.

Enfin, j'ai trouvé la bonne piste : Il y a le code dxf de l'annotativité (j'ai vraiment eu du mal a le trouver depuis le temps que je le cherche) (-3 ("AcadAnnotative" (1000 . "AnnotativeData") (1002 . "{") (1070 . 1) (1070 . 1) (1002 . "}") )) Sinon en passant par le vlisp (je donne le code tel que je l'ai trouvé) (defun SetTxtAnnotative (Name / *doc* *text* app xd1 xd2 rt1 rt2) (vl-load-com) (setq *text* (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)) ) ) (vlax-for itm *text* (setq *textstl* (cons (vla-get-name itm) *textstl*)) ) (if (member Name *textstl*) (progn (setq obj (vla-item *text* Name) app "AcadAnnotative" ) (regapp app) (setq xd1 (vlax-make-safearray vlax-vbInteger '(0 . 5))) (vlax-safearray-fill xd1 (list 1001 1000 1002 1070 1070 1002) ) (setq xd2 (vlax-make-safearray vlax-vbVariant '(0 . 5))) (vlax-safearray-fill xd2 (list "AcadAnnotative" "AnnotativeData" "{" (vlax-make-variant 1 vlax-vbInteger) (vlax-make-variant 1 vlax-vbInteger) "}" ) ) (vla-setxdata obj xd1 xd2) (vla-getxdata obj app 'rt1 'rt2) (mapcar (function (lambda (x y) (cons x y) ) ) (vlax-safearray->list rt1) (mapcar 'vlax-variant-value (vlax-safearray->list rt2)) ) ) ) )

Merci pour tes enseignements et ton lien. Maintenant je sais créer un style de repères multiples annotatif. Malheureusement, ça ne fonctionne pas de la même manière avec les styles de textes. La propriété "Annotative" n'est pas membre de 'AcadTextStyle'. [Edité le 4/2/2008 par vinz34]

OK Patrick, tu essies de m'embrouiller ? J'ai encore du mal avec le vlisp, mais d'après ce que je comprends tu crées le style s'il n'existe pas. Ca commence à faire long juste pour ça, d'autant plus qu'avec le code dxf je lui donne plus de paramètres. Bref ça ne crée pas un style annotatif et c'est bien là le problème.

Comme d'hab, Merci Patrick

Bonjour, Je cherche à charger un type de ligne en autolisp, sans passer par ce type de commande (command "_.LINETYPE" "CH" "POINTILLE" "" "") Je voudrais le faire proprement mais je ne sais pas comment m'y prendre.

Bonjour, Je cherche à créer un style de texte annotatif, mais je ne trouve pas le code correspondant. Pour l'instant je crée mon style en autolisp : (if (not (tblsearch "STYLE" "NOMDUSTYLE")) (entmake (append '((0 . "STYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "NOMDUSTYLE") (70 . 0) (40 . 1.5) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "verdana.TTF") (4 . ""))))) Je pense que la solution est de passer par le vlisp. Si quelqu'un a une idée....

Salut, Si vous en êtes, votre avis m'intéresse. Est-ce intuitif et réellement adapté aux besoins d'un projeteur ou d'un dessinateur béton ?

Salut, Le calque dans lequel a été inséré ton bloc n'est-il pas tout simplement gelé ou inactif ?

Salut lili2006, Je pense que le problème vient du fait que ce ce code soit en vlisp. LT Extender gère l'Autolisp seulement à ma connaissance.

Salut, Je ne vais pas te faire un cours sur les blocs dynamiques, en revanche tu peux regarder dans l'atelier des nouvelles fonctionnalités > Autocad 2006 > Produire > Blocs dynamiques. Sinon tu peux t'inspirer de ce fichier. Bon courage

Salut, il te manque ceci au début du code (vl-load-com) C'est pour activer les fonctions vlisp.

Désolé, c'est corrigé

Salut, Essaies la commande "layoff"

Salut, Excuse moi je commencais à fatiguer hier soir, il faut la remplacer par : (setq nouveaunom nil)))) Merci Gile je comprends mieux. [Edité le 1/2/2008 par vinz34]