VS:SaveSheet/ja

From Vectorworks Developer
Revision as of 14:37, 12 August 2013 by Root (talk | contribs) (1 revision)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

現在の画面を、指定した名前で登録します。

PROCEDURE SaveSheet(
name :STRING;
saveView :BOOLEAN;
saveClass :BOOLEAN;
saveLayer :BOOLEAN);
def vs.SaveSheet(name, saveView, saveClass, saveLayer):
    return None

Parameters

name STRING 登録画面の名前
saveView BOOLEAN 画面を登録する場合はTRUE
saveClass BOOLEAN クラスの状態を登録する場合はTRUE
saveLayer BOOLEAN レイヤの状態を登録する場合はTRUE

Example

PROCEDURE Example;
VAR
	savedViewHandle  :HANDLE;
	ovSheetSaveView	  :BOOLEAN;
	ovSheetSavePage	  :BOOLEAN;
	ovSheetSaveClass :BOOLEAN;
	ovSheetSaveLayer :BOOLEAN;
BEGIN
	savedViewHandle := GetObject('Untitled View');
	IF savedViewHandle <> NIL THEN BEGIN
		ovSheetSaveView  := GetObjectVariableBoolean(savedViewHandle, 450);
		ovSheetSavePage  := GetObjectVariableBoolean(savedViewHandle, 451);
		ovSheetSaveClass := GetObjectVariableBoolean(savedViewHandle, 452);
		ovSheetSaveLayer := GetObjectVariableBoolean(savedViewHandle, 453);
		AlrtDialog(Concat(
			'handle type: ', GetType(savedViewHandle), Chr(13),
			'save view: ',  ovSheetSaveView,  Chr(13),
			'save page: ',  ovSheetSavePage,  Chr(13),
			'save class: ', ovSheetSaveClass, Chr(13),
			'save layer: ', ovSheetSaveLayer));
	END;
END;
RUN(Example);

Version

利用可能バージョン: VectorWorks8.0