Lineのオフセット教えてください - ご意見、ご感想をどうぞ

ご意見、ご感想をどうぞ

Lineのオフセット教えてください

まさちゃん - 投稿日時:2004年07月12日 21時11分57秒
引用

dendenさん有難うございました。オフセットが分かりません。
Public Sub mk＿line()
　Dim spt(0 to 2) As Double
Dim ept(0 to 2) As Double
spt(0) = 0#:spt(1) = 0#:spt(2) = 0# '線分の始点
(0.0,0.0,0.0)
ept(0) = 5#:ept(1) = 5#:ept(2) = 0# '線分の終点
　　　　　　　　　　　　　　　　　　　　　　(5.0,5.0,0.0)
ThisDrawing.ModelSpace.AddLine spt, ept 'モデル空間に線分
　　　　　　　　を作図　　End Sub

この投稿へのコメント

| インデックス | ホームページ |