AutoCAD VBA运行时错误13 m
问候语，我在autocad 2004中的计算机（windows xp sp3）上运行autocad lisp时遇到问题。
我试着在另一台计算机windows xp sp2上运行lisp，它运行得很好。
当我在我的计算机上运行它时，它给了我一个错误：运行时错误13类型不匹配，在下面一行：
设置plineObj=此图形。模型空间。添加多段线（点）
它与windows版本有关吗？
请帮忙，
谢谢
迪娜 Dina这里有一个VBA宏，而不是LSIP例程。
您如何声明变量plineObj，“Dim plineObj As？？？？？”。
我怀疑它是否与Windows版本有关。宏工作的另一台机器上运行的是哪个版本的AutoCAD。
啊，是的，对不起，这是一个宏。
在另一台机器上也是autocad 2004，它工作得很好。
是的，它被宣布：Dim plineObj As AcadPolyline 在获取错误消息的行上设置一个断点，使该行代码不被执行，然后查看变量“points”中的内容。应该有多组坐标。
有些点的坐标为0。我认为这就是问题所在，但奇怪的是，这个问题刚刚发生在我的电脑上。有什么想法吗？
我不知道为什么它在一台计算机上工作而在另一台计算机上不工作。除标准参考文献外，您是否包括了其他参考文献？如果是，两台计算机上是否都有这些参考文献？
在断点线上方的注释中，您说要创建LW多段线，但代码正在创建二维多段线，“点”中的0坐标是Z坐标。在您的代码中，0坐标不是问题，应该可以工作。
如果要创建LW多段线，请使用此代码并确保0 Z坐标不在“点”中，请在将数据写入“点”时执行此操作：
Dim plineObj As AcadLWPolyline
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
我测试了你的代码片段，一切正常。
如果你想你可以PM我，我可以看看你的完整代码。
页:
[1]