问题描述
大家好大家好想通过vb.net中为autocad文件制作输出脚本,是否要在赋初值时将所有autocad的图形用程序来代替,举个列子,如何输出圆形,方形我试着写了一部分,有没有高手能帮我啊谢谢了!!'赋初值PublicSubinit_p()PrintLine(filenumber,";")PrintLine(filenumber,";INITIALISATION")'脚本信息PrintLine(filenumber,";")PrintLine(filenumber)PrintLine(filenumber,"_tilemode1")PrintLine(filenumber,"_limits")'输出大小PrintLine(filenumber,"-297,-210297,210")PrintLine(filenumber,"-typeligne")'使用不同类型的线PrintLine(filenumber,"axes2")'轴线WriteLine(filenumber)PrintLine(filenumber,"echltp")'比例WriteLine(filenumber,0.5).............EndSubPublicSubtest_autocad_p()ryn_p=VB.Day(Now)&Month(Now)&Year(Now)&"-"&VB.Timer()filenumber=FreeFile()'readthenumberoffichieinutilisedDimscript_pAsString="P_scr"&ryn_p&"-"&filenumberDimnom_fic_pAsString=script_pDimscr_pathname_pAsString="C:temp"&script_p&".scr"FileOpen(filenumber,scr_pathname_p,OpenMode.Output)endsub
解决方案
解决方案二:
如果真要将图形全部翻译为程序编码,那一个复杂图形岂不是要了人的命