Berbero 发表于 2022-7-5 18:05:38

生成多个AutoCAD绘图

亲爱的smarties
我在这里和那里读了一些关于从excel文件生成多个图形的方法的文章，但没有人一步一步地解释如何做到这一点。所以，我迷失了一半。我对这类事情很陌生，但我会努力跟上，所以请慢慢来。
以下是我想要解决的问题：
1.我需要自动生成10个dwg和pdf格式的图纸，并复制到一个文件夹中。
2.所有变量（VAR1到VAR3）都存储在excel文件中。以附件为例。
3、我只需要创建一个原始图形，将用于生成所有10个图形。
 
 
请帮忙
 
 
 
 
 
 
EXCEL-VAR.xls
原件-DWG。图纸

BIGAL 发表于 2022-7-5 18:14:54

你的excel离你需要的不远
 
板材尺寸x y
开始pt x y
点x y
点x y
点x y
点x y

Berbero 发表于 2022-7-5 18:18:23

比格尔，非常感谢你的回复。
我可能对我共享的excel文件有错误，但我不知道还有什么更好的。
只要我解释了我想要什么，那么如果我需要在文件中添加什么，请告诉我。
你能帮我提供一个工作样本，以及我需要遵循的所有步骤吗？

BIGAL 发表于 2022-7-5 18:25:56

如果你在做闭合形状，那么只需在excel中输入X和Y的差值，那么你需要从这个条目或复制列中编写一个脚本。您需要在excel中使用“连接”。

BIGAL 发表于 2022-7-5 18:30:18

这就是我想要的一个真正好的例子http://www.cadtutor.net/forum/showthread.php?93854-Cad和Excel&突出显示=Excel

Berbero 发表于 2022-7-5 18:39:14

比加尔
谢谢你举个例子，但你不明白我想要实现什么。让我重新解释一下我想要什么：
我在AutoCAD中有一张图纸（已经绘制），图纸编号为VAR01，形状VAR02的宽度可变，形状VAR03的高度可变。
同时，我在电子表格中有所有变量VAR01、VAR02和VAR03。
我想从电子表格中自动生成所有施工图，而不需要逐个单独绘制每个图纸，尤其是如果我有100张图纸要生成的话。
你有什么解决办法吗？

BIGAL 发表于 2022-7-5 18:44:09

我相信我理解你，一个形状3边一个形状4边一个形状5边你不能有一个自动解决方案，（你可以，但不是现在）你需要发布一个excel，这意味着一些东西，不仅仅是var1 var2 var3等，我们没有线索。我非常高兴地说，您可以从excel数据中绘制对象，但它必须有意义。我发布的示例是一个梁，其中有4行和孔，只需在excel中输入一些数字，就可以得到下一个梁。

Berbero 发表于 2022-7-5 18:53:19

比加尔
我知道有一种方法可以使用AutoLisp、VB和/或将Excel/CSV文件连接到AutoCAD，并使用一个小代码来连接和运行施工图的生成。
你的解决方案不是我想要的，我不打算输入坐标来绘制任何东西，而只是替换原始施工图中的文本/块/等，并将其余所有内容以pdf或dwg格式打印到文件夹中。
正如你们所见，这与你们的建议大不相同，但谢谢你们的帮助。

BIGAL 发表于 2022-7-5 18:56:35

好的，我最后一个真正的大提示，其他人知道我在说什么，搜索这里的“轴”和Excel。大约10多年前，Autocad提供了一个名为“轴”的样例图形和一个名为“轴”的excel，用于更改excel中某个单元格的值，并在Autocad中查看轴的更改图形。我不知道他们为什么不再把它放在样品里。
 
它是一个链接到excel的动态块。
 
为了寻找，谷歌发布了一条帖子“有人记得R12附带的shaft.xls示例吗”就在这里。
 
搜索Ibeam3d。c:\programfiles\Autocad\Autocad中的dvb。。。xxx \样本\ vba
VBAMAN和load Ibeam3d

hanhphuc 发表于 2022-7-5 19:01:50

 
嗨，我的0.02美元解决方案
1.实际上，您可以将VAR保存在*。txt或*。csv
VAR1 VAR2 VAR3
Dwg1 Dim1 Dim11
Dwg2 Dim2 Dim12
Dwg3 Dim3 Dim13
Dwg4 Dim4 Dim14
 
2.使用读取行获取内容，然后拆分为列表
;例子：
(setq dwg '(("VAR1" "VAR2" "VAR3")
    ("Dwg1" "Dim1" "Dim11")
    ("Dwg2" "Dim2" "Dim12")
    ("Dwg3" "Dim3" "Dim13")
         ("Dwg4" "Dim4" "Dim14")
    )
   ) ;_ end of setq
 
 
3、根据清单复制源图
(if (and (setq fn (findfile "ORIGINAL-DWG.dwg")) (setq l (fnsplitl fn)))
(foreach x (mapcar 'car (cdr dwg))
   (vl-file-copy fn (apply 'strcat (subst x (cadr l) l)))
   ) ;_ end of foreach
) ;_ end of if
 
现在，我们打开新创建的图形，例如“Dwg3.dwg”
每个复制的图形的所有控制柄都相同，
(mapcar 'handent '("1f6" ;VAR1
           "1f9" ;VAR2
           "212" ;VAR3
           ))
;(<Entity name: 7efa13b0> <Entity name: 7efa1408> <Entity name: 7efa1490>)

 
 
4、最后，由于已经创建了新的图纸，
BIGAL可以提供一些使用脚本修改实体的建议？
页: [1] 2
查看完整版本: 生成多个AutoCAD绘图