すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 三葉線模様描画マクロ()     Const THLFCNXP = 100　　  '描画開始中心位置Ｘ     Const THLFCNYP = 120  　　'　　　　　　　　Ｙ     '     Const THLFANSP = 5            '描画刻み角度     Const THLFRATE = 15          '線の長さ倍率     '     Const THLFCOLS = 4           '横描画数     Const THLFVPIT = THLFRATE * 4.5   '横間隔     Const THLFLNWE = 1          '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim sngPBas(360 / THLFANSP, 1) As Single     Dim sngPDat(360 / THLFANSP, 1) As Single     '     Dim sngSit As Single, sngRad As Single     Dim sngR