GetPrimaryUnitInfo Units 
VectorWorks8.0

VectorScript Declaration:

PROCEDURE   GetPrimaryUnitInfo
( VAR  style :INTEGER;
  VAR  prec :LONGINT;
  VAR  dimPrec :LONGINT;
  VAR  format :INTEGER;
  VAR  angPrec :INTEGER;
  VAR  showMark :BOOLEAN;
  VAR  dispFrac :BOOLEAN
) ;

Python:

def  vs.GetPrimaryUnitInfo():
   return (style, prec, dimPrec, format, angPrec, showMark, dispFrac)

Description:

Procedure GetPrimaryUnitInfo returns the primary units settings for the active document.

説明

現在設定されている主単位の情報を返します。

Parameters:

style Returns active primary units style. 単位の種類
prec Returns display precision. 表示精度
dimPrec Returns dimension precision. 寸法線の精度
format Returns decimal formatting. 小数表記の種類
angPrec Returns angular precision. 角度精度
showMark Returns unit mark display setting. 単位表示
dispFrac Returns fractional display setting. 分数表示

Example:

PROCEDURE Example;
VAR
	style              :INTEGER;
	prec, dimPrec      :LONGINT;
	format, angPrec    :INTEGER;
	showMark, dispFrac :BOOLEAN;
	major, minor, maintenance, platform :INTEGER;
BEGIN
	GetVersion(major, minor, maintenance, platform);
	GetPrimaryUnitInfo(style, prec, dimPrec, format, angPrec, showMark, dispFrac);

	CASE major of
		8: Case style of
			0: AlrtDialog('Custom');
			1: AlrtDialog('Old Style Feet/Inches');
			2: AlrtDialog('Millimeter');
			3: AlrtDialog('Centimeter');
			4: AlrtDialog('Inches');
			5: AlrtDialog('Meters');
			6: AlrtDialog('Feet/Inches');
			7: AlrtDialog('Feet');
		END;

		9..11: Case style of
			0: AlrtDialog('Custom');
			1: AlrtDialog('Feet/Inches');
			2: AlrtDialog('Feet');
			3: AlrtDialog('Inches');
			4: AlrtDialog('Millimeters');
			5: AlrtDialog('Centimeters');
			6: AlrtDialog('Meters');
		END;

		12: Case style of
			1: AlrtDialog('Feet and Inches');
			2: AlrtDialog('Inches');
			3: AlrtDialog('Feet');
			4: AlrtDialog('Yards');
			5: AlrtDialog('Miles');
			6: AlrtDialog('Microns');
			7: AlrtDialog('Millimeters');
			8: AlrtDialog('Centimeters');
			9: AlrtDialog('Meters');
			10: AlrtDialog('Kilometers');
			11: AlrtDialog('Degrees');
		END;

	END;
END; 
RUN(Example);

See Also:

GetRoundingBase  



  GetRoundingBase Units 
VectorWorks10.0

VectorScript Declaration:

PROCEDURE   GetRoundingBase
( VAR  display :INTEGER;
  VAR  primary :INTEGER;
  VAR  secondary :INTEGER
) ;

Python:

def  vs.GetRoundingBase():
   return (display, primary, secondary)

Description:

Gets the rounding base (1, 2.5, or 5) for the display, primary units, and secondary units.

説明

主単位、寸法（主単位）、寸法（補助単位）の端数丸めの基準（1、2.5、5）を返します。

Parameters:

display Rounding base for the display units 主単位
primary Rounding base for the primary units 寸法（主単位）
secondary Rounding base for the secondary units 寸法（補助単位）

Example:

FUNCTION DisplayAccuracy :REAL;
VAR
	dec_prec  :REAL;
	frac_prec :REAL;
	display   :INTEGER; 
	primary   :INTEGER; 
	secondary :INTEGER;
BEGIN
	GetRoundingBase(display, primary, secondary);
	dec_prec := 1 / (10 ^ GetPrefLongInt(169));
	IF display = 1 THEN dec_prec := dec_prec * 2.5 ELSE
	IF display = 2 THEN dec_prec := dec_prec * 5;
	frac_prec := 1 / (2 ^ GetPrefLongInt(171));
	IF NOT  GetPref(168) THEN DisplayAccuracy := dec_prec
	ELSE IF GetPref(175) THEN DisplayAccuracy := Min(dec_prec, frac_prec)
	ELSE DisplayAccuracy := frac_prec;
END;



  GetSecondaryUnitInfo Units 
VectorWorks8.0

VectorScript Declaration:

PROCEDURE   GetSecondaryUnitInfo
( VAR  style :INTEGER;
  VAR  dimPrec :LONGINT;
  VAR  format :INTEGER;
  VAR  showMark :BOOLEAN;
  VAR  dispFrac :BOOLEAN
) ;

Python:

def  vs.GetSecondaryUnitInfo():
   return (style, dimPrec, format, showMark, dispFrac)

Description:

Procedure GetSecondaryUnitInfo sets the secondary unit parameters for the active document.

説明

現在設定されている補助単位の情報を返します。

Parameters:

style Returns active secondary units style. 単位の種類
dimPrec Returns dimension precision. 寸法線の精度
format Returns decimal formatting. 小数表記の種類
showMark Returns unit mark display setting. 単位表示
dispFrac Returns fractional display setting. 分数表示



  GetUnits Units 
MiniCAD

VectorScript Declaration:

PROCEDURE   GetUnits
( VAR  fraction :LONGINT;
  VAR  display :LONGINT;
  VAR  format :INTEGER;
  VAR  upi :REAL;
  VAR  lenUnitMk :STRING;
  VAR  areaUnitMk :STRING
) ;

Python:

def  vs.GetUnits():
   return (fraction, display, format, upi, lenUnitMk, areaUnitMk)

Description:

Procedure GetUnits returns the current units settings of the document.

Table - Units Formats

Units Format Constant
Decimal 0
Fractional 1
Decimal Ft/Inches 2
Fractional Ft/Inches 3


More extensive Units information is available using the GetPref routines with the selectors shown in the tables of the VectorScript Appendix.

説明

現在の単位設定の情報を返します。

Parameters:

fraction Approximate WorldCoords per drawing unit. Use GetPrefReal(150) instead. おおよその WorldCoords の長さ。代わりにGetPrefReal(150)を使うこと。
display Returns display accuracy. 表示精度
format Returns units format setting. 小数表記の種類
upi Returns units per inch value. 一インチの長さ（unit per inch）
lenUnitMk Returns length unit mark. 単位記号
areaUnitMk Returns area unit mark. 単位記号（平方）

Example:

PROCEDURE Example;
VAR 
	fraction   :LONGINT; 
	display    :LONGINT; 
	format     :INTEGER; 
	upi        :REAL; 
	lenUnitMk   :STRING;
	areaUnitMk :STRING;
BEGIN
	GetUnits(fraction, display, format, upi, lenUnitMk, areaUnitMk);
	Message(fraction, ' ', display, ' ', format, ' ', upi, ' ', lenUnitMk, ' ', areaUnitMk);
END;
RUN(Example);



  PrimaryUnits Units 
MiniCAD7.0

VectorScript Declaration:

PROCEDURE   PrimaryUnits
(   style :INTEGER;
    prec :LONGINT;
    dimPrec :LONGINT;
    format :INTEGER;
    angPrec :INTEGER;
    showMark :BOOLEAN;
    dispFrac :BOOLEAN
) ;

Python:

def  vs.PrimaryUnits(style, prec, dimPrec, format, angPrec, showMark, dispFrac):
   return None

Description:

Procedure PrimaryUnits specifies the primary units settings for the active document. The primary units setting is used by the document for all measurement entry and display values in the document.

Table - Standard Unit Settings

Units Setting Constant
Custom 0
Feet/Inches 1
Inches 2
Feet 3
Yards 4
Miles 5
Microns 6
Millimeters 7
Centimeters 8
Meters 9
Kilometers 10


Table - Units Formats

Units Format Constant
Decimal 0
Fractional 1
Decimal Ft/Inches 2
Fractional Ft/Inches 3

説明

主単位を設定します。

Parameters:

style Active primary unit style for document. 単位の種類
prec Display precision. 表示精度
dimPrec Dimension precision. 寸法線の精度
format Decimal formatting. 小数表記の種類
angPrec Angular precision. 角度精度
showMark Unit mark display setting. 単位表示
dispFrac Fractional display setting. 分数表示

Example:

PROCEDURE Example;
VAR
	style :INTEGER;
	prec, dimPrec :LONGINT;
	format, angPrec :INTEGER;
	showMark, dispFrac :BOOLEAN;
	outStr :STRING;
BEGIN
	outStr := '';
	GetPrimaryUnitInfo(style, prec, dimPrec, format, angPrec, showMark, dispFrac);
	FOR style := 0 to 16 DO BEGIN
		PrimaryUnits(style, prec, dimPrec, format, angPrec, showMark, dispFrac);
		outStr := Concat(outStr, Chr(13), style, ': ', GetPrefReal(152));
	END;
	AlrtDialog(outStr);
END;
RUN(Example);



  SecondaryUnits Units 
MiniCAD7.0

VectorScript Declaration:

PROCEDURE   SecondaryUnits
(   style :INTEGER;
    dimPrec :LONGINT;
    format :INTEGER;
    showMark :BOOLEAN;
    dispFrac :BOOLEAN
) ;

Python:

def  vs.SecondaryUnits(style, dimPrec, format, showMark, dispFrac):
   return None

Description:

Procedure SecondaryUnits sets the secondary unit parameters for the active document. The secondary units setting is used primarily for display of alternate dimensions in
when a dual dimension standard is active.

Table - Standard Unit Settings

Units Setting Constant
Custom 0
Feet/Inches 1
Inches 2
Feet 3
Yards 4
Miles 5
Microns 6
Millimeters 7
Centimeters 8
Meters 9
Kilometers 10


Table - Units Formats

Units Format Constant
Decimal 0
Fractional 1
Decimal Ft/Inches 2
Fractional Ft/Inches 3

説明

補助単位を設定します。

Parameters:

style Active secondary unit style for document. 単位の種類
dimPrec Dimension precision. 寸法線の精度
format Decimal formatting. 小数表記の種類
showMark Unit mark display setting. 単位表示
dispFrac Fractional display setting. 分数表示

Example:

SecondaryUnits(1,6,2,TRUE,TRUE); 

{ Sets the secondary units to feet/inches with a dimension precision of 1/64, }
{ unit mark displayed, and fractional display of units values enabled.        }



  Units Units 
MiniCAD

VectorScript Declaration:

PROCEDURE   Units
( i:INTEGER ) ;

Python:

def  vs.Units(i):
   return None

Description:

Procedure Units specifies a standard units setting for the active document.

Table - Standard Unit Settings

Units Setting Constant
Custom 0
Feet/Inches 1
Inches 2
Feet 3
Yards 4
Miles 5
Microns 6
Millimeters 7
Centimeters 8
Meters 9
Kilometers 10

説明

現在の単位を設定します。

Parameters:

i Standard units setting index value. 単位の種類