用VB在CAD中绘制直线的时候线型设置不了

ChiN丶

Set lineObj = acadDoc.ModelSpace.AddLine(startPoint, endPoint)
    lineObj.color = colors
    lineObj.lineweight = lineweight
    lineObj.lineType = "CENTER2"
最后这个设置线型的代码只有将线型设为"BYLAYER"的时候才不会报错，其他的线型都会报错。
错误截图如图。
想了很久想不出原因，希望有高手指导一下。

mikewolf2k

请先确认要设置的线型是否存在。byblock和continuous能用么？

ChiN丶

mikewolf2k 发表于 2019-6-11 09:46
请先确认要设置的线型是否存在。byblock和continuous能用么？

这两个是可以的，别的不行，比如虚线什么的。

mikewolf2k

那就是没加载，不存在当然不能设置。

ChiN丶

mikewolf2k 发表于 2019-6-11 14:19
那就是没加载，不存在当然不能设置。

那怎样在设置先行之前先把其他的线型加载呢

mikewolf2k

具体没操作过，自己网上仔细搜索。

ChiN丶

mikewolf2k 发表于 2019-6-12 09:44
具体没操作过，自己网上仔细搜索。

ok   多谢               

ChiN丶

问题已解决，有些线型需要加载，所以要提前加载这些线型，语句为：
acadDoc.Linetypes.Load lineType, "acad.lin"
其中lineType是要加载的线型，"acad.lin"为CAD自带的线型文件