用VB在CAD中绘制直线的时候线型设置不了
Set lineObj = acadDoc.ModelSpace.AddLine(startPoint, endPoint)lineObj.color = colors
lineObj.lineweight = lineweight
lineObj.lineType = "CENTER2"
最后这个设置线型的代码只有将线型设为"BYLAYER"的时候才不会报错,其他的线型都会报错。
错误截图如图。
想了很久想不出原因,希望有高手指导一下。
请先确认要设置的线型是否存在。byblock和continuous能用么?
这两个是可以的,别的不行,比如虚线什么的。 那就是没加载,不存在当然不能设置。
那怎样在设置先行之前先把其他的线型加载呢 具体没操作过,自己网上仔细搜索。
ok 多谢 问题已解决,有些线型需要加载,所以要提前加载这些线型,语句为:
acadDoc.Linetypes.Load lineType, "acad.lin"
其中lineType是要加载的线型,"acad.lin"为CAD自带的线型文件
页:
[1]