寸法変倍 のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• 寸法変倍 へ行く。
  • 1 (2011-12-08 (木) 11:19:28)

寸法変倍

横寸法変倍

PROCEDURE	Propwheel;
	{	Version 4J	1992 A&A Co.,Ltd.	}
	VAR
	H : Handle;
	Existingm,Desiredm,Percentage : REAL;
	Answer,FAnswer, msg: String;
BEGIN
	H := FSActLayer;
	IF H <>  NIL THEN
		BEGIN
		Existingm := RealDialog ('現在の横の寸法を入れて下さい:',Num2StrF(HWidth(H)));
		Desiredm := RealDialog ('希望の横の寸法を入れて下さい:','0');
		Percentage := (Desiredm/Existingm);
		Answer := Num2str(9,Percentage);  {this returns 9 decimal places}
		FAnswer := StrDialog('この倍率でよろしいですか:',Answer);
		IF YNDialog('選択されている図形を、拡大又は縮小しますか?') Then
		Scale(Percentage,Percentage);
		END
	ELSE AlrtDialog('図形を選択して下さい。');
	End;
RUN(Propwheel);

縦寸歩変倍

PROCEDURE	Propwheel;
	{	Version 4J	1992 A&A Co.,Ltd.	}
	VAR
		H : Handle;
		Existingm,Desiredm,Percentage : REAL;
		Answer,FAnswer, msg: String;
	BEGIN
		H := FSActLayer;
		IF H <>  NIL THEN
		BEGIN
			Existingm := RealDialog ('現在の縦の寸法を入れて下さい:',Num2StrF(HHeight(H)));
			Desiredm := RealDialog ('希望の縦の寸法を入れて下さい:','0');
			Percentage := (Desiredm/Existingm);
			Answer := Num2str(9,Percentage);  {this returns 9 decimal places}
			FAnswer := StrDialog('この倍率でよろしいですか:',Answer);
			IF YNDialog('選択されている図形を、拡大又は縮小しますか?') Then
			Scale(Percentage,Percentage);
		END
	ELSE AlrtDialog('図形を選択して下さい。');
	End;
RUN(Propwheel);