Autocad自定义

suns_444 · 发表于 2022-7-6 07:46:17

你好
我想写一个vb6.0程序来打开AutoCad应用程序&一个新的绘图。

我已经为图形生成编写了AutoLisp/visualLisp例程。

我想知道在AutoCad中运行AutoLisp/visualLisp例程以生成图形的VB 6.0代码。根据用户在userfrom中提供的输入，用户可以请任何人帮忙吗？

当做
阳光明媚的德迪亚

MSasu · 发表于 2022-7-6 08:00:49

您需要使用SendCommand方法：

copy

ThisDrawing.SendCommand "(load " & Chr(34) & "C:\\test.lsp" & Chr(34) & ") "

但是有一个问题-VB不会注意到AutoLISP代码的执行已经完成，所以需要一个变通方法来等待，直到恢复自己的代码。此前曾对此问题进行过讨论；我会尽力帮你定位的。

suns_444 · 发表于 2022-7-6 08:08:05

非常感谢。

嗨Mircea，

你能详细说明一下你到底想表达什么吗

你给的代码是vb6.0代码，请详细说明我要如何使用它

当做
阳光明媚的德迪亚

MSasu · 发表于 2022-7-6 08:16:00

这是Visual Basic 6代码，因为您在第一篇文章中说明了此版本。
该代码只会将AutoLISP例程加载到当前图形中-您可以通过另一个SendCommand调用或仅通过在所述LSP文件末尾调用来调用它。
要使用它，只需将示例路径替换为您的路径。

suns_444 · 发表于 2022-7-6 08:21:35

嗨Mircea，

谢谢你的解释

在你谈论另一个帖子之前，如果你找到了，请告诉我
我还将把变量值从VB6用户窗体传递到AutoLISP以创建图形，然后在创建图形后，将该区域返回到VB6.0用户窗体
正如我在第一篇文章中所说，我还需要VB 6.0代码来打开Autocad和一个新的绘图

如果你也能帮我的话

非常感谢你的帮助

：拇指支撑：

当做
阳光明媚的德迪亚

MSasu · 发表于 2022-7-6 08:25:52

我还没有找到那个讨论，稍后我会再试一次；我记得很清楚的一个细节是，这个解决方案是由主持人Fuccaro提出的。

为此，您可以使用临时文件，也可以创建并调用带有参数的AutoLISP函数：

copy

ThisDrawing.SendCommand "(load " & Chr(34) & "C:\\MyLISPFile.lsp" & Chr(34) & ") "
ThisDrawing.SendCommand "(MyFunction " & (CStr Param1st) & " " & (CStr Param2nd) & ") "

我假设您希望将在AutoCAD中处理的结果转换为Visual Basic表单。为此，应再次使用临时文件或AutoCAD的用户定义系统变量之一。

这是涵盖了很多次之前-请在论坛上搜索。

suns_444 · 发表于 2022-7-6 08:36:15

你能告诉我创建临时文件意味着什么吗？我将把11个变量从VB 6.0用户窗体传递到Autolisp以创建图形，然后将5个变量在Autolisp中计算面积。这5个变量将在VB6.0用户窗体中显示，因为我将把VB6.0用户窗体中的所有这些详细信息传递到excel文件中，以供用户打印出来

当做
阳光明媚的德迪亚