插入autocad图形的编号

shamsam1 · 发表于 2022-7-6 17:06:18

我有一个记事本，其中指定了dwg文件的所有路径

c： \首先。图纸
d：秒。图纸
D： aaaa区域。图纸

我正在寻找lisp程序或vb。6提取图纸并将图纸插入同一层的程序。
i、打开同一层中的所有图形

Lee Mac · 发表于 2022-7-6 17:16:07

也许是这个？

[code]（defun c:dwin（）（c:DWGINSERT））；程序快捷方式（defun c:DWGINSERT（/dwglist oldlay pt1）（setq dwglist’（“c:\\Users\\Lee Mac\\Drawing1.dwg”）；

shamsam1 · 发表于 2022-7-6 17:16:37

谢谢mac。。

这就是我要找的。。

shamsam1 · 发表于 2022-7-6 17:24:32

你好，mac

我想编辑
（“C:\\Users\\Lee Mac\\Drawing1.dwg”；

Lee Mac · 发表于 2022-7-6 17:27:58

嘿Shamsam，

很抱歉，我在LISP方面只是平庸（充其量），对vb代码一无所知。

这里还有很多其他人，他们的知识要丰富得多，应该能够伸出援手

shamsam1 · 发表于 2022-7-6 17:35:58

你好，mac

明天我就能解决它了。。。。

山姆

shamsam1 · 发表于 2022-7-6 17:38:32

你好，Mac

当我插入autocad文件时，lisp有一个问题，它没有插入到原始文件中（其获取旋转）
我附上了图片1和图片2以供参考。。

图1是原始dwg文件。。图2使用lisp

Lee Mac · 发表于 2022-7-6 17:46:03

嗨，Sham，

试试这个，如果它能解决问题，请告诉我：

[code]|多块插入器：…：作者：李·麦克唐纳：2008年12月：.|；；增加了1.1版UCS代码。（defun c:dwin（）（c:DWGINSERT））；程序快捷方式（defun c:DWGINSERT（/dwglist oldlay pt1）（setq dwglist’（“c:\\Users\\Lee Mac\\Drawing1.dwg”）；

asos2000 · 发表于 2022-7-6 17:46:46

李先生
谢谢你的Lisp程序。
有两个问题
-lisp能否打开浏览器，然后我选择要插入的文件？
-插入的文件可能是块吗？

当做

Lee Mac · 发表于 2022-7-6 17:51:44

嗨，Asos，

感谢您的留言和问题，顺序相反：

2）插入的文件是作为块插入的，所以我倾向于说是的。

1） LISP可以暂停并提示用户输入要插入的图形的图形名称，在这种情况下，用户可以输入文件路径。但我找不到办法让它在暂停时打开浏览器。使用Active X方法可能是可行的，但我在这一领域的知识还不足以知道这是否可行。

[编程交流] 插入autocad图形的编号

发表回复

精选推荐