すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 工字繋ぎ文様描画マクロ2()     Const KOJILEFT = 150           '描画開始位置Ｘ     Const KOJITOPP = 100          '　　　　　　Ｙ     '     Const KOJIPRAT = 5              'ポリライン描画倍率     '     Const KOJICOLS = 6             '横描画数     Const KOJIROWS = 5           '縦描画数     Const KOJICXP1 = 0             '横連結ポイント     Const KOJICXP2 = 6     Const KOJICYP1 = 5             '縦連結ポイント     Const KOJICYP2 = 17     '     Const KOJILNWE = 1.5        '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngColr(1) As Long     Dim intDxp As Integer, intDyp As Integer     Dim varPoly As Variant     D

Option Explicit Option Base 0 ' Public Sub 工字繋ぎ文様描画マクロ()     Const KOJILEFT = 120                         '描画開始位置Ｘ    Const KOJITOPP = 100                        '　　　　　　Ｙ    Const KOJITEVA = 0.2　　　　　　　　 'データ作成倍率     Const KOJITEVB = KOJITEVA * -10     Const KOJICOLS = 8 　　　　　　　　  '描画列数     Const KOJIROWS = 3 　　　　　　　　 '描画行数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim varPosi As Variant     Dim sngBase() As Single, sngData() As Single     Dim lngColr(1) As Long     '     '*工字の線データ     varPosi = Array(10, 10, 250, 10, 250, 10, 250, 110, 250, 110, _     210, 110, 210, 110, 210, 50, 210, 50, 150, 50,