Jump to content

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


Benoit S

Recommended Posts

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 !

2023-03-22 12.22.27.jpg

Link to comment
Share on other sites

  • 3 weeks later...

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.

image.png.46b68860936ff7dea735192479b35ea3.png

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 by Benoit S
Link to comment
Share on other sites

×
×
  • Create New...

Important Information