VectorScript pour agir sur une option des Préférences

[Benoit S]

Bonjour,

Je suis amené à souvent associer / désassocier les cotations de la classe "Cotations".  Pour cette opération, je dois à chaque fois ouvrir les préférences document et cocher / décocher l'option.

J'aurais voulu créer un script pour accélérer cette opération.  Est-ce que quelqu'un est versé en VectorScript pour m'expliquer comment coder cela?

Merci !

[Nico_be]

Bonjour,
Il y a quelques spécialistes de la discipline sur le forum US, je vous conseille d'y poster votre question, c'est très actif.

Bonne journée,

[Benoit S]

OK merci!

 

[Benoit S]

Voilà, j'ai mes scripts.

Tout est ici ⬇︎

https://forum.vectorworks.net/index.php?/topic/107094-link-unlink-dimensions-and-class-dimensions/#comment-466117

[Benoit S]

Un script pour chaque classe de cotation. Lorsque je veux faire des cotations de parcelle, je double-clique sur le dernier script (capture ci-dessous).  Les cotations sont placées dans la classe "Cotations de parcelle", avec les caractéristiques graphiques spécifiques à cette classe.

Bien sûr avant chaque opération de cotation, il faut vérifier quelle classe est paramétrée dans les préférences document.

Code pour le script "cotations parcelle" : 

Procedure SwapDimsAutoClass;
{©2023  Pat Stanford - pat@coviana.com}
{licensed under the Boost Software License 1.0}
{https://github.com/boostorg/boost/blob/master/LICENSE_1_0.txt}
{TL/DR Use as you want, attribution for source, No warranty}

{With great thanks the Raymond Mullin (@MullinRJ) for help in}
{identifying the proper Preference code.}

CONST	C1='Cotations de parcelle';
		
VAR	H1			:Handle;
	L1,L2,L3	:LongInt;
	N1			:Integer;
	R1			:Real;
	S1			:String;
	
	
BEGIN
	S1:=Index2Name(GetPrefLongInt(546));
	BEGIN
		SetPrefLongInt(546,Name2Index(C1));
	End
End;

Run(SwapDimsAutoClass);

 

Edited April 13, 2023 by Benoit S