【转帖】plottofile问题
 

plottofile问题
www.dimcax.com
plottofile问题
小弟有疑问啊：。net里调用，作图之后，想打印为dwf格式，可是在使用plot对象的plottofile语句后，返回true，语句执行成功，可是找不到打印出来的文件。
dim app as new acadapplication ' 定义application对象
dim adobj as new acaddocument ' 定义document对象
adobj = app.activedocument ' 定义document对象
dim plineobj as acadline ' 定义line对象
dim pointa(0 to 2) as double ' 定义两个一维数组存储点
dim pointb(0 to 2) as double
dim ss as boolean
' 给两个三维点赋值
pointa(0) = 2 : pointa(1) = 4 : pointa(2) = 4
pointb(0) = 2 : pointb(1) = 6 : pointb(2) = 4
' 在模型空间中创建以pointa，pointb为端点的直线对象
plineobj = adobj.modelspace.addline(pointa, pointb)
dim layoutliscon as object
dim ad as string
layoutliscon = "f:\pubtoweb.pc3"
ad = "f:\myplot.dwf"
ss = adobj.plot.plottofile(ad, layoutliscon)
'以dxf格式存储文件“bdk40”
adobj.saveas("f:\ bdk40", acsaveastype.ac