Top > 寸法変倍 寸法変倍横寸法変倍 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); |