[AutoCAD LT 2024]Verrouiller une fenêtre en ligne de commande ?

[AutoCAD LT 2024]Verrouiller une fenêtre en ligne de commande ?

reb_c2
Advisor Advisor
470 Visites
5 Réponses
Message 1 sur 6

[AutoCAD LT 2024]Verrouiller une fenêtre en ligne de commande ?

reb_c2
Advisor
Advisor

Bonjour à Toutes et à Tous,

 

j'ai un doute ? y-a-t-il une commande ou variable système qui permette de verrouiller la fenêtre de présentation courante, sans devoir passer par l'icone de la barre d'état ou la fenêtre des PROPRIETES ni de sélectionner le CADRE de la fenêtre en Espace PAPIER ?

 

Pour l'instant, je triche  😁  avec une MACRO et du LISP, mais ça ne marchera pas pour les anciennes versions LT...  ☹️

 

    ... CVPORT;3;_mview;_Lock;_OFF;(ssget "X" ' ( (69 . 3) ) );;


Je vous remercie.

Christian

 


Formateur Indépendant, Consultant, AutoCAD, AutoCAD LT, REVIT MEP, INVENTOR -
www.rebcao.fr

Christian REB

0 J'aime
Solutions acceptées (1)
471 Visites
5 Réponses
Replies (5)
Message 2 sur 6

-didier-
Advisor
Advisor

Bonjour @reb_c2 

 

Le souci va être dans la sélection de la fenêtre à verrouiller.

En partant du principe que tu sélectionnes tout dans ta "macro" avec (ssget "x"

tu peux remplacer ce choix par "_all"

Amicalement

Éternel débutant.. my site for learning : Programmer dans AutoCAD

DA

EESignature

0 J'aime
Message 3 sur 6

reb_c2
Advisor
Advisor

Je te remercie Didier, @-didier- 

 

Mais en fait, je sélectionne en filtrant le N° CVPORT (code DXF 69)  de la seule fenêtre qui m'intéresse ! ici le CVPORT 3...

 

Christian


Formateur Indépendant, Consultant, AutoCAD, AutoCAD LT, REVIT MEP, INVENTOR -
www.rebcao.fr

Christian REB

0 J'aime
Message 4 sur 6

-didier-
Advisor
Advisor

Bonjour @reb_c2 

Si (en LSP) tu sélectionnes le numéro de la FMULT c'est qu'une sélection précédente existe alors.

Répondre "_L" dans ce cas.

Amicalement

Éternel débutant.. my site for learning : Programmer dans AutoCAD

DA

EESignature

0 J'aime
Message 5 sur 6

_gile
Consultant
Consultant
Solution acceptée

Salut,

En LISP :

(setpropertyvalue
  (ssname (ssget "_X"
		 (list (cons 0 "VIEWPORT")
		       (cons 410 (getvar 'ctab))
		       (cons 69 (getvar 'cvport))
		 )
	  )
	  0
  )
  "Locked"
  1
)

 

 



Gilles Chanteau
Programmation AutoCAD LISP/.NET
GileCAD
GitHub

0 J'aime
Message 6 sur 6

reb_c2
Advisor
Advisor

Merci Gilles @_gile  et merci @-didier- 

 

Finalement avec l'astuce de Gilles, nettement plus propre que ma Bidouille, il n'y a rien à sélectionner et tant mieux... ça marche.

 

Merci.

Christian


Formateur Indépendant, Consultant, AutoCAD, AutoCAD LT, REVIT MEP, INVENTOR -
www.rebcao.fr

Christian REB

0 J'aime