生成多个AutoCAD绘图

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

亲爱的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.使用读取行获取内容，然后拆分为列表
;例子：

copy

(setq dwg '(("VAR1" "VAR2" "VAR3")
    ("Dwg1" "Dim1" "Dim11")
    ("Dwg2" "Dim2" "Dim12")
    ("Dwg3" "Dim3" "Dim13")
           ("Dwg4" "Dim4" "Dim14")
    )
     ) ;_ end of setq

3、根据清单复制源图

copy

(if (and (setq fn (findfile [color="red"][b]"ORIGINAL-DWG.dwg"[/b][/color])) (setq l (fnsplitl fn)))
 (foreach x (mapcar 'car (cdr dwg)) 
   ([color="blue"]vl-file-copy[/color] fn (apply 'strcat (subst x (cadr l) l)))
   ) ;_ end of foreach
 ) ;_ end of if

现在，我们打开新创建的图形，例如“Dwg3.dwg”
每个复制的图形的所有控制柄都相同，

copy

(mapcar '[color="blue"]handent[/color] '([color="red"]"1f6"[/color] [color="#006400"];VAR1[/color]
           [color="red"]"1f9"[/color] [color="green"];VAR2[/color]
           [color="red"]"212"[/color][color="green"] ;VAR3[/color]
           ))[color="green"]
;(<Entity name: 7efa13b0> <Entity name: 7efa1408> <Entity name: 7efa1490>)[/color]

4、最后，由于已经创建了新的图纸，
BIGAL可以提供一些使用脚本修改实体的建议？

[编程交流] 生成多个AutoCAD绘图

发表回复

精选推荐

浏览过的版块