Bred

Salut Pieroka, bientôt en vacances ??? Ci-dessous, un code mise au propre. Tu dois modifier/rajouter ce que je t'ai mis en gras. je pense que c'est assez compréhensible comme ça, mais si tu as du mal, fais le savoir ! ; Modification de la liste des echelles (defun c:lst-ech-pierroka () (lst-ech (list [b] (list "1/50" 2 1) (list "1/1" 1 1) (list "1/2" 1 2) (list "1/4" 1 4)[/b] ) ) (princ) ) ; routine modif liste echelle (defun lst-ech (lst / DICT ENT1 I N X) (vl-load-com) (while (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST")) (progn (vla-delete (vlax-ename->vla-object (cdr (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST"))))) ) ) (setq i 1 x (strcat "Z" (rtos i))) (repeat (length lst) (setq n (nth (1- i) lst) dict (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST"))) ent1 (entmakex (list '(0 . "SCALE") '(100 . "AcDbScale") '(70 . 0) (cons 300 (car n)) (cons 140 (cadr n)) (cons 141 (caddr n))))) (dictadd dict x ent1) (setq i (1+ i) x (strcat "Z" (rtos i))) ) ) [Edité le 9/7/2007 par Bred]

Désolé, je ne comprends toujour pas ... http://xs317.xs.to/xs317/07281/2007-07-09_150452.jpg ça c'est donc une rotation 2D ? :casstet: Pourquoi ? et qu'est-ce que tu entends par X , Z ?

alors que des fenêtres rectangulaires.... ou astuce : tu demandes à un de tes pote qui à une versions lourde de t'enrgistrer un plan avec tous les types de fenêtes possibles (cercle, elipse, polygonales .....) tu le récupères sur LT, (et tu t'en créés un gabarit si tu as envies).

??? Salut Patrick05,

Salut, c'est du lisp. tu es en lt. ce n'est pas possible d'utiliser des lisp en lt. (sauf si tu utilises ltextender, je te laisse regarder)

Re, Que l'on ce comprenne : quands tu appels "rotation 3D", c'est bien l'outils "rotate3D" (Modification/Opération3D/Rotation3D) ? Une rotation(3D) ne peut se faire que sur UN axe (tu tournes aurour d'un axe qui peut être parrallèle au SCU/SCG, ou par 2 points) C'est une rotation 2D, ça. Tu fais alors une "rotation3D" par 2 points. Qu'est ce que tu appels une ligne en 3D ? Autocad (2006) travaille en 2D, c'est à toi de le forcer (en rentrant des coordonnées ou en tournant le SCU) pour dessinner "une ligne en 3d." tu peux m'envoyer un mail à manufred@neuf.fr. [Edité le 9/7/2007 par Bred]

je m'incline encore devant la simplicité de la proposition de Patrick_35 .... (et comme d'hab, on s'en veut toujours de ne pas avoir trouvé ça, qui est si simple !!!!....)

OK, comme tu le dis : ça n'est pas génant... si ? Résultat : (defun @Macro_remplace_texte ($string $recherche $remplace / txt-f nb) (setq txt-f "" nb (strlen $recherche)) (while (vl-string-position (ascii $recherche) $string) (if (equal (substr $string 1 nb) $recherche) (setq $string (vl-string-subst "" $recherche $string) txt-f (strcat txt-f $remplace)) (setq txt-f (strcat txt-f (substr $string 1 1)) $string (vl-string-subst "" (substr $string 1 1) $string)) ) ) (strcat txt-f $string) ) [Edité le 6/7/2007 par Bred]

Salut, ... c'est bien parti pour être un challeenge, ça !!! ;) ma proposition : (defun @Macro_remplace_texte ($string $recherche $remplace / txt-f) (setq txt-f "") (while (vl-string-position (ascii $recherche) $string) (if (equal (substr $string 1 3) $recherche) (setq $string (vl-string-subst "" $recherche $string) txt-f (strcat txt-f $remplace)) (setq txt-f (strcat txt-f (substr $string 1 1)) $string (vl-string-subst "" (substr $string 1 1) $string)) ) ) txt-f ) (@Macro_remplace_texte "oldoldoldoldold-old-old" "old" "Pold") donne : "PoldPoldPoldPoldPold-Pold-Pold"

Salut, oui c'est possible, avec les filtres de ssget. Par exemple, si tes gaines sont sur le calque "Mes_Gaines" (setq sel (ssget '((8 . "Mes_Gaines"))))

Salut et bienvenue ! remonter vers où ? en y ou en z ?

Re, (vla-put-WindowState dessin-actif 3)

Salut, Alors : (setq dessin-actif (vla-get-ActiveDocument (vlax-get-acad-object))) récupérer Hauteur : (vla-get-Height dessin-actif) récupérer Largeur : (vla-get-Width dessin-actif) Modifier Hauteur : (vla-put-Height dessin-actif [b]haut[/b]) Modifier Largeur : (vla-put-Width dessin-actif [b]larg[/b])

Salut, dans l'aide vlisp, cherche : (ou dans "ssget") Logical Grouping of Filter Tests (setq ss (ssget '((0 . "CIRCLE") (-4 . "<")(40 . 15.0))))

merci de cette réponse encourageant, (gile)... .... je pense que ça resteras pour moi dans la liste de souhaits.... A moins que Monsieur Autodesk vienne faire un petit tour par ici ???? (après tout, certaine entités sont "anisotransparente", comme les polylignes par exemples, qui selon leur normal, en caché, se laisse traverser ou pas....(mais il reste le pourtour....) )

Salut (gile), merci, mais ce n'est pas la visibilité/invisibilité que je cherche. Le problème avec la visibilité du code dxf 60 c'est que cela me rend invisible l'objet, alors que je voudrais que l'objet soit visible en dans un sens, mais pas dans l'autre... Imagine un trait faisant partie d'un bloc et décalé par rapport à ce bloc. Ce bloc est succeptible d'être insérer en 3D, dans n'importe quel sens. Je voudrais voir, en vue de droite le trait. Mais je ne vaux pas voir le trait d'un 2nd bloc indentique qui est tourné de 90°... Exemple 2 blocs solides jaune identiques avec une ligne blanche http://images0.hiboox.com/images/2707/az9frcrs.jpg En vue de droite, l'une des ligne blanche n'est plus visible (ou ne s'imprime plus) http://images0.hiboox.com/images/2707/jn3pun7z.jpg (ces lignes sont sur le même calque bien sûr : c'est le même bloc !)

Re, un exemple récupérer ici que j'ai dans mes archives : ;;; Grippe tous les cercles de rayons supérieur à 30 et inférieur ou égal à 40 ou égal à 50 ((lambda (/ ss) (setq ss (ssget "_X" '((0 . "CIRCLE") (-4 . "[b]< or[/b]") (-4 . "[b]< and[/b]") (-4 . ">") (40 . 30.0) (-4 . "<=") (40 . 40.0) (-4 . "and>") (-4 . "=") (40 . 50.0) (-4 . "or>") ) ) ) (enlever espace en gras)

Salut, Si tu dois passer en revus tous les blocs et qu'ils sont tous différent, je ne vois pas d'autre manière .... Mais imagine le temps si tu devais le faire "à la main" .... 30 secondes est un moindre mal (si tu ne dois pas le répéter toutes les minutes bien sûr...) Mais peut-être que si tu faisais une selection plus "générale" (ex : (setq sel "_X" (ssget '((0 . "INSERT" )))) ) et que tu faisais le tri après par un repeat, tu gagnerais un peu de temps.... à tester.....

Salut, il faut mettre la variable UCSFOLLOW à 0. Attention, si tu as déjà des fenêtres existantes, il faut activer chaque fenêtre et mettre cette variable à 0 !!!!

RE, c'est pas du tout pareil.... Outils / options / Sélection - Mode de selection : coché Sélection nom/verbe ou PICKFIRST sur 1

Salut, si ça ne déclanche plus rien : outils / options / prefernce utilisateur / cocher "edition double-clic" ou variable DBLCLKEDIT sur 1 si ça fait autre chose : Allez dans le personnalisation de l'interface, dans "Actions déclenchée par double clic" .....

Salut, EVOLDYN sur Auto

Salut, pour t'aider je pense qu'il serait utile que tu montre une image. Tu imprimes ton solide en vue 3D ? En 2D ? En Couleur ? ...

Salut, non.

Salut, Oui, c'est possible en programmation, mais si tu veux récupérer des données dans des cellules précises, et donc logiquement pas les même cellule suivant le dessin, il faudra que tu ailles les chercher la première fois (après il est possible de la mettre à jour si tu les modifies). mais Pour les inforamtions dans les cartouches, tu as beaucoups de messages y répondant si tu fais une recherche. L'une des manière est d'utiliser les champs.....