(gile)

J'ai modifié les deux dernières routines pour qu'elle fonctionnent quelque soit le SCU. À plus.

Re, Blipmode à 0 ?

Salut, Personnellement, je transfère les blocs depuis le "Design center" vers les palettes, mais je ne suis pas un grand utilisateur de ces palettes.

Et voilà une version plus aboutie (en VisualLISP) :present: (vl-load-com) (defun c:rot_iso (/ AcDoc FenAc dir haut cen vue) (setq aApp (vlax-get-acad-object) AcDoc (vla-get-ActiveDocument aApp) FenAc (vla-get-ActiveViewport AcDoc) UCSs (vla-get-UserCoordinateSystems AcDoc) ) (vla-startUndoMark AcDoc) (vla-add UCSs (vlax-3d-point (getvar "ucsorg")) (vlax-3d-point (trans '(1 0 0) 1 0)) (vlax-3d-point (trans '(0 1 0) 1 0)) "iso_scu_initial" ) (vla-add UCSs (vlax-3d-point '(0 0 0)) (vlax-3d-point '(1 0 0)) (vlax-3d-point '(0 1 0)) "iso_scu_general" ) (vla-put-activeUCS acdoc (vla-item UCSs "iso_scu_general")) (cond ((equal (getvar "viewdir") '(1 1 1)) (setq dir '(-1 1 1)) ) ((equal (getvar "viewdir") '(-1 1 1)) (setq dir '(-1 -1 1)) ) ((equal (getvar "viewdir") '(-1 -1 1)) (setq dir '(1 -1 1)) ) ((equal (getvar "viewdir") '(1 -1 1)) (setq dir '(1 1 1)) ) (T (princ "\nLa vue courante n'est pas une vue isométrique") (exit) ) ) (setq haut (getvar "viewsize") cen (trans (getvar "viewctr") 1 0) vue (vla-add (vla-get-Views AcDoc) "Vue_iso_temporaire") ) (vla-put-Direction vue (vlax-3d-point dir)) (vla-setView FenAc vue) (vla-put-ActiveViewport AcDoc FenAc) (vla-ZoomCenter aApp (vlax-3d-point cen) haut ) (vla-put-activeUCS acdoc (vla-item UCSs "iso_scu_initial")) (vla-delete vue) (vla-endUndoMark AcDoc) (princ) ) [Edité le 7/10/2005 par (gile)]

Tu peux aller voir là et aussi là

Re, Voici encore un petit LISP pour passer d'une vue iso à une autre : (defun c:rot_iso (/ echo ht cen) (setq echo (getvar "cmdecho")) (command "_undo" "_begin") (setvar "cmdecho" 0) (command "_ucs" "_w") (setq ht (getvar "viewsize") cen (getvar "viewctr") ) (cond ((equal (getvar "viewdir") '(1.0 1.0 1.0)) (command "_view" "_nwiso") ) ((equal (getvar "viewdir") '(-1.0 1.0 1.0)) (command "_view" "_swiso") ) ((equal (getvar "viewdir") '(-1.0 -1.0 1.0)) (command "_view" "_seiso") ) ((equal (getvar "viewdir") '(1.0 -1.0 1.0)) (command "_view" "_neiso") ) (T (princ "\nLa vue active n'est pas une vue isométrique.") (exit) ) ) (command "_zoom" "_c" cen ht) (command "_ucs" "_p") (command "_undo" "_end") (setvar "cmdecho" echo) (princ) ) [Edité le 7/10/2005 par (gile)]

Re, Extrait de l'aide pour "viewctr" :

Salut, Après des tests un peu plus approfondis, j'ai un peu modifié le code ci dessus.

Re, Ah Didier est déjà passé par là, je te propose quand même quelque chose de très similaire, mais sans avoir à spécifier de point. (defun c:iso_se (/ echo ht cen) (setq echo (getvar "cmdecho") ht (getvar "viewsize") cen (getvar "viewctr") ) (setvar "cmdecho" 0) (command "_-view" "_seiso") (command "_zoom" "_c" cen ht) (setvar "cmdecho" echo) (princ) ) Nouvelle version [Edité le 6/10/2005 par (gile)]

Salut, Tu peux toujours enregistrer tes vues isométriques avec la valeur de zoom qui t'intéresse et les rappeler ensuite.

Salut, Tu peux faire, dans le gestionnaire de calques : clic droit sur "Nom" (au dessus des noms de calques) et choisir "Agrandir la colonne" ou "Agrandir toutes les colonnes".

Merci à tous les deux pour toutes ces explications, la prochaine fois j'essayerais d'appronfondir les tests avant de dire des bétises :mad2:

ERRATUM En fait, non :( Je confirme ce que dit bonus (ssget "_+.:E:S" '((0 . "ARC"))) fonctionne comme (ssget "_:E" '((0 . "ARC")))

Pas trouvée :( Et encore une fois merci, çà marche :D

Salut, Çà a l'air super :D Je ne m'appelle pas Jason, mais j'ai voulu essayer quand même ! Çà marche pas :casstet: , même en faisant : (ssget "+._:E_:S" '((0 . "ARC"))) j'ai toujours : ; erreur: chaîne du mode ssget incorrecte [Edité le 3/10/2005 par (gile)]

Re, (cons 0 "CIRCLE,3DSOLID,LINE") ou (0 . "CIRCLE,3DSOLID,LINE") equivaut à : (-4 . "") NOTA : sans l'espace entre le "

'((-4 . "")) Supprimer l'espace entre le " [Edité le 2/10/2005 par (gile)]

Salut, si tu selectionnes ton calque comme tu l'as fait la syntaxe pour selectionner toutes les entités du calque est : (ssget "_X" (list (cons 8 le_calque))) Pour ajouter un filtre sur des entités (cercles, solides, lignes): (ssget "_X" (list (cons 8 le_calque) (cons 0 "CIRCLE,3DSOLID,LINE"))) [Edité le 2/10/2005 par (gile)]

Salut, Tu peux insérer ton image dans l'espace objet, et dans ta présentation, faire une fenêtre circulaire (Convertir objet en fenêtre) puis faire apparaître dans cette fenêtre la partie de l'image qui t'intéresse. Illustration avec une ellipse : http://img305.imageshack.us/img305/7798/chaise3ri.jpg [Edité le 30/9/2005 par (gile)]

OK Patrick_35, je ne connaissais pas, ce qui explique ma gymnastique peu élégante. Merci encore une fois !

Re, Vite fait sur le gaz, pour enregistrer dans un fichier texte : (defun c:txt->file (/ ss n str file) (setq ss (ssget "_X" '(( 8 . "NOM_DE_RUE") (0 . "*TEXT,MTEXT"))) n (sslength ss) str "" ) (repeat n (setq str (strcat str (cdr (assoc 1 (entget (ssname ss (setq n (1- n)))))) "\n" ) ) ) (setq file (open (getfiled "Créez ou sélectionnez un fichier" "" "txt" 1) "w" ) ) (princ str file) (close file) (princ) ) Code édité suite à la remarque ci-dessous [Edité le 30/9/2005 par (gile)]

Salut, Pour selectionner tous les" text et "mtext" du caque "NOM_DE_RUE" tu peux faire : (setq ss1 (ssget "_X" '((8 . "NOM_DE_RUE") (0 . "TEXT"))) ss2 (ssget "_X" '((8 . "NOM_DE_RUE") (0 . "MTEXT"))) n (sslength ss2) ss (repeat n (ssadd (ssname ss2 (setq n (1- n))) ss1) ) ) Le jeu de sélection "ss" contient toutes les entités "text" et "mtext"

Salut, Le site "@cad+, le coin des autocadiens" semble mort. On y trouvait, entre autre une traduction en français de La FAQ Autoloisp de Reini Urban. Même si cette FAQ date un peu, beaucoup de ce qui y est dit reste valable, en tous cas çà m'a vraiment aidé dans mes débuts en LISP. On peut la retrouver ici. À plus.

Autre lien en français : La FAQ Autolisp de Reini Urban traduite en français. C'est pas très récent, mais j'y ai énormément appris sur le fonctionnement de base du LISP. À plus ...

J'ai édité la routine 3 _ Pour un curseur : Il y avait une erreur dans le code dcl : inversion de key "nb" et "slider_info" J'ai apporté une petite amélioration dans le LISP : en créant une boucle (while ( Je lui ai aussi suprimé les deux sous routines "slider_action" et "ebox_action" pour plus de clarté. [Edité le 28/9/2005 par (gile)]