社区 › Auto Lisp › 插入autocad图形的编号

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

插入autocad图形的编号

我有一个记事本，其中指定了dwg文件的所有路径
 
c： \首先。图纸
d： 秒。图纸
D： aaaa区域。图纸
 
我正在寻找lisp程序或vb。6提取图纸并将图纸插入同一层的程序。
i、 打开同一层中的所有图形

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

也许是这个？
 
（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，
 
试试这个，如果它能解决问题，请告诉我：
 
|多块插入器：…：作者：李·麦克唐纳：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图形的编号