Patrick_35

C'est dans le equal @+

Ah, tu connais ce site ;) . Il est de très bon niveau Ah ok, un peu comme layer Manager ,mais pas état on peut comprendre plusieurs choses @+

Salut Comme c'est en vlisp (setq lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))) (vlax-for lay lays (princ (strcat "\nEtat du calque --> " (vla-get-name lay))) (if (eq (vla-get-freeze lay) :vlax-true) (princ "\n\tCalque Gelé") (princ "\n\tCalque Non Gelé") ) (if (eq (vla-get-layeron lay) :vlax-true) (princ "\n\tCalque Actif") (princ "\n\tCalque Désactivé") ) (if (eq (vla-get-lock lay) :vlax-true) (princ "\n\tCalque Verrouillé") (princ "\n\tCalque Déverrouillé") ) ) @+

Non, c'est juste l'abrévation d'Organiser les OnGlets @+

Ah oui, mais là c'est du spécifique Il va falloir jouer du réacteur afin de prendre en compte tes besoins Fait une recherche sur ce sujet et si tu te sens l'ame d'un programmeur.... :cool: @+

La solution que j'avais donnée est la plus simple, mais il est vrai que l'on peut dfaire beaucoup plus complexe. Reste à savoir comment on veut se servir de ces valeurs dans le lisp afin d'organiser au mieux son fichier @+

Sinon il reste la solution ultime qui est d'utiliser la fonction _laydel des express tools @+

Non, mais s'il reste des bugs qu'on me fait savoir, sûrement @+

Ce n'est pas un problème de version, je l'ai écrite sur une A2000 Je pense plutôt que ce n'est pas une hachure qui a été sélectionnée @+

Salut Reb J'ai pensé à toi @+

hum... pas certain, ce n'est pas certain ;) Mais on me surnomme parfois Jessie James :cool: @+

Oui, avec (graphscr) et (textscr) @+

Salut Oui, mais je ne comprends pas le besoin ? Avec la couleur dubloc, tes hachures auront la couleur que tu souhaites sans passer par un code en attribut et un lisp @+

Ah, encore une précision Le code 41 correspond à l'echelle X, ne pas oublier le code 42 (Echelle Y) et 43 (Echelle Z) @+

Salut Il faut pour cela utiliser entmod et subst exemple avec Lstac1 comme entité de bloc (setq Lstac1 (subst (cons 41 (* (cdr (assoc 41 Lstac1)) 0.75)) (assoc 41 Lstac1) Lstac1)) (entmod Lstac1) (entupd (cdr asssoc -1 Lstac1)) ; mettre à jour à l'écran le bloc @+ nb : exemple non testé

Salut Le lisp corrigé non testé defun c:LireFic () (setq MonFic "C:/Documents and Settings/Manuel/Application Data/Autodesk/AutoCAD 2004/R16.0/fra/Support/Fichier_Profils.txt") (setq x (open MonFic "r")) (while (setq Profil (read-line x)) (princ (strcat "\n" Profil)) (setq val1 (atoi (read-line x))) (setq val2 (atoi (read-line x))) (setq val3 (atof (read-line x))) (setq val4 (atof (read-line x))) (setq val5 (atoi (read-line x))) ) (close x) (princ) ) Et le fichier texte IPE80 80 46 3.8 5.2 5 IPE100 100 55 4.1 5.7 7 Mais si tu souhaites conserver ta structure, il faut dans ce cas utiliser la fonction read sur la variable Profil, ce qui est plus complexe à mettre en place @+

Salut Le lisp se contente de rechercher le chemin relatif des xref à partir de l'emplacement du dessin en cours (variable dwgprefix) et donc de substituer le chemin Je l'ai testé sur 2005 et il fonctionne parfaitement. Ce qui est par contre impératif, c'est que tous les chemins sont sur le même lecteur, sinon pourquoi faire du relatif @+

Salut (setq ent (vlax-ename->vla-object (car (entsel)))) ; Choix de l'hachure (vla-put-PatternScale ent 2) ; Facteur d'echelle à 2 @+

Salut A tout hazard, avec la commande _3dsout ? @+

Je vais reprendre ce que disait Bonus. C'est peut-être un texte vide par exemple Donc si un (sslength (ssget "x")) est plus grand qu'un déplacer tout par exemple voici la marche à suivre tu fais un (ssget "x"), ensuite la commande effacer tout puis s ou r pour enlever des objets avec une fenêtre et tu valides @+

Salut Tu n"as pas été au bout du post, tu aurais trouvé ce lisp @+ [Edité le 21/6/2006 par Patrick_35]

Ou écrit d'une autre manière (setq h (distance (setq pt1 (getpoint "\nPremier point : ")) (setq pt2 (getpoint pt1 "\nHauteur : ")))) @+

Salut Et avec cette solution ? (setq h (distance pt1 (setq pt2 (getpoint (setq pt1 (getpoint "\nPremier point : ")) "\nHauteur : ")))) @+

Ou encore avec des espaces qu'on ne peut voir @+

Bonjour J'aimerai savoir s'il est possible via le vlisp de regarder les impressions dans le spooler d'impression et si oui comment ? @+