Patrick_35

Normalement, plus la caméra voit loin, plus l'angle de vision se réduit et inversement. @+

Avec la fonction setvar @+

Salut Avec un paramètre d'étirement. Par exemple ? @+ Exemple.zip

Salut Tu as songé à faire une recherche avec un type de fichier (*.lsp) et contenant le texte "command" ? @+

Salut Je trouve que tu pousses un peu. Tu n'as même pas cherché comment faire car changer des variables en lisp, il n'y a rien de plus simple. (De plus que tu donnes les variables !) J'ai un besoin, je demande sans même chercher, un merci histoire d'aller dans le sens du poil. On consomme en gros Je passe mon tour. @-

Salut Après une recherche. @+

Salut Comme tu te débrouilles en script, le lisp n'est pas très loin (pour commencer) Quand tu lances une commande en script, tu as la même chose avec command. Par exemple : Script --> Traceur N Plan "" PdfCreator N N O (ps le "" = espace ou entrée) Lisp --> (command "traceur" "N" "Plan" "" "PdfCreator" "N" "N" "O") (ps le "" = entrée) @+

Hi Peut-être une question de cache, aussi bien au niveau d'autocad que de la carte graphique. Le fait de changer le type de ligne doit forcer la regénération. Je te salue du chapeau. @+

Salut (defun c:fyl(/ doc ent sel sty) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (and (ssget (list (cons 0 "LINE,POLYLINE,LWPOLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE,MLINE,REGION,MPOLYGON"))) (progn (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (setq sty (vla-get-linetype ent)) (vla-put-linetype ent "continuous") (vla-put-linetype ent sty) ) (vla-delete sel) (vla-regen doc acallviewports) ) ) (vla-endundomark doc) (princ) ) @+

Salut Patrick Dans ta fenêtre dans l'espace papier, tu vas dans le gestionnaire des calques et tu changes tes couleurs dans "Couleur de fenêtre:Modifie la couleur uniquement dans la fenêtre courante" @+

Salut Juste quelques explications sur les signes cabalistiques http://www.theswamp.org/screens/leemac/Formatting%20Codes.png ps : Infos trouvé sur theswamp @+

Si si, je n'avais pas compris la démarche. Je suis d'accord que cela reste anecdotique et que le gain est plus que négligeable, mais il est toujours intéressant de débattre sur ces sujets. Donc pour résumer, tu "mémorises" les résultats afin d'éviter d'aller les chercher dans chaque boucle, ce qui peut faire un gain potentiel en fonction d'un nombre minimum d'éléments pour compenser les deux mapcar Oki et merci @+

Oui Heu oui, mais pour moi (car p1) = L1 et (cdr p2) = L2 en nombre d'éléments. Je ne vois pas trop où tu veux en venir ? Oui, mais le gain entre les boucles au début pour ne conserver que le nécessaire et un car et cdr dans les mapcar reste à démontrer. Je ne suis pas certain car tu fais une boucle pour ne retenir que le car de L1 et une autre pour le cdr de L2 alors que dans la première version, tu la fais directement dans la boucle. Dans un sens comme dans l'autre, tu as besoin d'un car sur L1 et d'un cdr sur L2. Alors un gain avec les deux mapcar supplémentaires ? @+

C'est un bloc classique. Donc la seul chose possible est de jouer sur l'echelle. Je ne pense pas que c'est ce que tu souhaites. L'idéal est un bloc dynamique avec un facteur d'étirement @+

BATTMAN ou ATTSYNC @+

Salut Effectivement, mais il faudrait le bloc pour voir ce qu'il est possible de faire. @+

Salut Tu peux éditer le bloc pour ensuite le synchroniser ps : Grillé par un décapode @+

Salut je ne suis pas certain car tu ajoutes quand même deux boucles. @+

Salut Et pour compléter la réponse d'allan59, un petit lisp qui évite de rechercher cette case @+ Ast.lsp

Salut La fonction lambda définit une fonction anonyme La fonction mapcar fonctionne comme une boucle foreach sauf que l'argument est une fonction et retourne le résultat Par exemple, ajouter 1 aux chiffres de la liste '(2 3 4 5) (mapcar '1+ '(2 3 4 5)) Peut aussi s'écrire (mapcar '(lambda(x) (1+ x)) '(2 3 4 5)) @+

Salut Et avec ceci ? (setq fso (vlax-create-object "Scripting.FileSystemObject")) (vlax-for drv (vlax-get fso 'drives) (terpri) (vlax-dump-object drv) ) Et encore (vlax-get (vlax-get-property (vlax-get fso 'drives) 'item "F:") 'ShareName) @+

Non, pas besoin :huh: C'est corrigé avec insertionpoint @+

Voila (defun c:txx(/ bas doc ori pos sel txt) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (and (setq bas (entsel "\nSélectionnez le texte de référence : ")) (setq bas (vlax-ename->vla-object (car bas))) (vl-position (vla-get-objectname bas) '("AcDbText" "AcDbMText")) (ssget (list (cons 0 "TEXT,MTEXT"))) (setq pos (car (trans (vlax-get bas 'insertionpoint) 1 0))) (progn (vlax-for txt (setq sel (vla-get-activeselectionset doc)) (setq ori (trans (vlax-get txt 'insertionpoint) 1 0)) (vlax-put txt 'insertionpoint (trans (list pos (cadr ori) (caddr ori)) 0 1)) ) (vla-delete sel) ) ) (vla-endundomark doc) (princ) ) (defun c:txy(/ bas doc ori pos sel txt) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (and (setq bas (entsel "\nSélectionnez le texte de référence : ")) (setq bas (vlax-ename->vla-object (car bas))) (vl-position (vla-get-objectname bas) '("AcDbText" "AcDbMText")) (ssget (list (cons 0 "TEXT,MTEXT"))) (setq pos (cadr (trans (vlax-get bas 'insertionpoint) 1 0))) (progn (vlax-for txt (setq sel (vla-get-activeselectionset doc)) (setq ori (trans (vlax-get txt 'insertionpoint) 1 0)) (vlax-put txt 'insertionpoint (trans (list (car ori) pos (caddr ori)) 0 1)) ) (vla-delete sel) ) ) (vla-endundomark doc) (princ) ) ps : Mon petit tourteau, on dirait que tu as trouvé mon point faible ;) pps : Mon petit décapode, je t'ai donné une réponse pour tes fenêtres. @+

Salut Deux lisps vite fait Pour aligner en X (defun c:txx(/ bas doc ori pos sel txt) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (and (setq bas (entsel "\nSélectionnez le texte de référence : ")) (setq bas (vlax-ename->vla-object (car bas))) (vl-position (vla-get-objectname bas) '("AcDbText" "AcDbMText")) (ssget (list (cons 0 "TEXT,MTEXT"))) (setq pos (car (vlax-get bas 'insertionpoint))) (progn (vlax-for txt (setq sel (vla-get-activeselectionset doc)) (setq ori (vlax-get txt 'insertionpoint)) (vlax-put txt 'insertionpoint (list pos (cadr ori) (caddr ori))) ) (vla-delete sel) ) ) (vla-endundomark doc) (princ) ) Pour aligner en Y (defun c:txy(/ bas doc ori pos sel txt) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (and (setq bas (entsel "\nSélectionnez le texte de référence : ")) (setq bas (vlax-ename->vla-object (car bas))) (vl-position (vla-get-objectname bas) '("AcDbText" "AcDbMText")) (ssget (list (cons 0 "TEXT,MTEXT"))) (setq pos (cadr (vlax-get bas 'insertionpoint))) (progn (vlax-for txt (setq sel (vla-get-activeselectionset doc)) (setq ori (vlax-get txt 'insertionpoint)) (vlax-put txt 'insertionpoint (list (car ori) pos (caddr ori))) ) (vla-delete sel) ) ) (vla-endundomark doc) (princ) ) @+

Salut Ici @+