同じ画面に円と線をだしたいのですが - ご意見、ご感想をどうぞ

ご意見、ご感想をどうぞ

同じ画面に円と線をだしたいのですが

恵子です - 投稿日時:2004年08月30日 22時04分24秒
引用

初心者です。教えてください。
同じ画面(AutoCAD)に円と線をだす方法教えてください。
　Public Sub　Circ()
Dim pt(0 To 2) As Double
pt(0) = 200: pt(1) = 300: pt(2) = 0
ThisDrawing.ModelSpace.AddCircle pt,150
End sub

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) = 50#:ept(1) = 100#:ept(2) = 0# '線分
　　　　　　　　　の終点　(50.0,100.0,0.0)
End sub

根本的な問題があると思います。教えてください。
　

この投稿へのコメント
Re:同じ画面に円と線をだしたいのですが

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