社区 › Auto Lisp › VBA生成scr文件

mien 发表于 2022-7-6 14:46:07

VBA生成scr文件

我写这段代码是为了生成*。scr文件。但它似乎并没有那么好，表现也不尽如人意。有人能给我一些建议，让这个代码更好吗。我在这里附上代码。谢谢
VBA代码。txt文件

SEANT 发表于 2022-7-6 14:55:55

不幸的是，我认为我在构建脚本文件方面帮不了什么忙。但是，如果你不介意我问你，创建脚本是否有目的，而不仅仅是让VBA例程执行任务？

mien 发表于 2022-7-6 15:01:29

肖特，我是这个VB的新手。我试图用生成scr文件添加带有Z文本的坐标。你知道用VBA代码来执行任务吗。这里我附加了我编写的代码应该执行的scr文件。谢谢
测验拉链

SEANT 发表于 2022-7-6 15:05:05

现在我已经考虑过了，我可以想象在什么情况下生成一个。SCR文件将是合适的。再说一遍，这不是我做过的事情，所以我不能提供太多帮助。
 
如果。SCR没有其他用途，因此可能不需要额外步骤。可以想象，您正在引用数据库来生成。SCR：同一个数据库可以同样轻松（可能更快）地允许VBA直接创建几何体。

mien 发表于 2022-7-6 15:15:20

肖特，你有没有想过用VBA来完成这个任务。。导入包含x、y、z坐标的ASCII文件。然后，将其打印到autocad。。我尝试autocad VBA thisdrawing。模型空间。添加点代码，但它不工作。

SEANT 发表于 2022-7-6 15:21:46

ASCII必须正确解析，因此了解文件结构至关重要。
 
ASCII是如何创建的？如果它是通过Excel或Access完成的，那么互联网上有许多教程（许多教程在CadTutor中），展示了如何通过VBA将Microsoft Office应用程序与AutoCAD连接起来。

mien 发表于 2022-7-6 15:23:38

这是由NavEdit（水文测量软件）完成的。

BIGAL 发表于 2022-7-6 15:31:06

我认为您的操作过于复杂了，为什么不在中读取源文件并创建上面提到的autocad对象呢。
 
您只需要在开始时创建一次层，然后设置到该层，所有颜色线型等都完成了。
 
我将为每个不同的层条目编写一个函数
 
那么你的代码应该是这样的
创建新层
打开文件
读取行
调用WMH_PDEPTH（x，y，z）
调用WMH_BDEPTH（x，y，z）
调用WMH_SDEPTH（x，y，z）
下一行
关
 
作业完成最大化显示
 
每次调用都会创建点
 
请粘贴一些源数据，以便我们更好地了解您试图阅读的内容。

mien 发表于 2022-7-6 15:35:28

嗨，比格尔，这里我附上数据。。。谢谢。。
水力发电。拉链

mien 发表于 2022-7-6 15:43:04

这里我附上我从VBA导出的用户表单。。。我尝试将此代码sendcommand设置为与scr相同的命令行。。
ACAD。拉链

查看完整版本: VBA生成scr文件