AutoCAD VBA运行时错误13 m

dinahajjar · 发表于 2022-7-6 22:24:43

问候语，

我在autocad 2004中的计算机（windows xp sp3）上运行autocad lisp时遇到问题。
我试着在另一台计算机windows xp sp2上运行lisp，它运行得很好。
当我在我的计算机上运行它时，它给了我一个错误：运行时错误13类型不匹配，在下面一行：

设置plineObj=此图形。模型空间。添加多段线（点）

它与windows版本有关吗？
请帮忙，

谢谢

迪娜

Tyke · 发表于 2022-7-6 22:42:37

Dina这里有一个VBA宏，而不是LSIP例程。

您如何声明变量plineObj，“Dim plineObj As？？？？？”。

我怀疑它是否与Windows版本有关。宏工作的另一台机器上运行的是哪个版本的AutoCAD。

dinahajjar · 发表于 2022-7-6 22:52:33

啊，是的，对不起，这是一个宏。
在另一台机器上也是autocad 2004，它工作得很好。
是的，它被宣布：Dim plineObj As AcadPolyline

Tyke · 发表于 2022-7-6 23:04:29

在获取错误消息的行上设置一个断点，使该行代码不被执行，然后查看变量“points”中的内容。应该有多组坐标。

dinahajjar · 发表于 2022-7-6 23:09:55

有些点的坐标为0。我认为这就是问题所在，但奇怪的是，这个问题刚刚发生在我的电脑上。有什么想法吗？

Tyke · 发表于 2022-7-6 23:18:16

我不知道为什么它在一台计算机上工作而在另一台计算机上不工作。除标准参考文献外，您是否包括了其他参考文献？如果是，两台计算机上是否都有这些参考文献？

在断点线上方的注释中，您说要创建LW多段线，但代码正在创建二维多段线，“点”中的0坐标是Z坐标。在您的代码中，0坐标不是问题，应该可以工作。

如果要创建LW多段线，请使用此代码并确保0 Z坐标不在“点”中，请在将数据写入“点”时执行此操作：

copy


Dim plineObj As AcadLWPolyline
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)

Tyke · 发表于 2022-7-6 23:25:28

我测试了你的代码片段，一切正常。

如果你想你可以PM我，我可以看看你的完整代码。

[编程交流] AutoCAD VBA运行时错误13 m

发表回复

精选推荐