vb.net中如何建立脚本script

[ensitm]

大家好

大家好

想通过vb.net 中为autocad 文件制作输出脚本，是否要在赋初值时将所有autocad的图形用程
序来代替,举个列子，如何输出圆形，方形
我试着写了一部分，有没有高手能帮我啊
谢谢了!!


'赋初值
Public Sub init_p()

PrintLine(filenumber, ";")
PrintLine(filenumber, ";INITIALISATION ") '脚本信息
PrintLine(filenumber, ";")

PrintLine(filenumber)

PrintLine(filenumber, "_tilemode 1")

PrintLine(filenumber, "_limits") '输出大小
PrintLine(filenumber, "-297,-210 297,210")



PrintLine(filenumber, "-typeligne") '使用不同类型的线
PrintLine(filenumber, "axes2") '轴线
WriteLine(filenumber)
PrintLine(filenumber, "echltp") '比例
WriteLine(filenumber, 0.5)

.............

End Sub

Public Sub test_autocad_p()

ryn_p = VB.Day(Now) & Month(Now) & Year(Now) & "-" & VB.Timer()
filenumber = FreeFile() 'read the number of fichie inutilised
Dim script_p As String = "P_scr" & ryn_p & "-" & filenumber
Dim nom_fic_p As String = script_p
Dim scr_pathname_p As String = "C:\temp\" & script_p & ".scr"
FileOpen(filenumber, scr_pathname_p, OpenMode.Output)
end sub

[ensitm]

如果真要将图形全部翻译为程序编码，那一个复杂图形岂不是要了人的命