davidgeorge212 发表于 2022-7-5 15:59:49

用于upda的Excel电子表格

我不知道这是否可行,但我不得不问一下。如果我有一个Excel电子表格,其中有一个零件号列表,我可以将其导入AutoCAD,以便它可以在我想要的地方加载预制的3d块吗。
例如,我有一个仓库图纸,其中包含存储在特定位置的特定零件。我已经为每个部分绘制了方块图。我有一张Excel表格,上面有零件号列表。有没有办法导入Excel表,让它在透视位置用零件图块填充仓库图纸?
 
谢谢

BIGAL 发表于 2022-7-5 16:19:05

有几种不同的方法可以做到这一点,我做了一些类似的事情,这是我们的办公室员工的图片,显示他们所在的位置,每一张图片。jpg有一个唯一的Id(电话号码),例程会找到phnum并在这个位置插入图像。
 
您可以在excel中指定x,y或使用我建议的方法。代码可以从excel中读取、读取csv或运行脚本。
 
底线必须有某种形式的链接块到一个位置。
 
提供更多细节,可能是dwg和excel。

davidgeorge212 发表于 2022-7-5 16:19:54

这听起来像是我想做的。我有一个位置列表,按顺序1,2,3。。。我只是不知道如何在autocad中进行设置,。我只需要导入Excel文件吗?我想我只需要玩一下,看看能不能让它工作。

BIGAL 发表于 2022-7-5 16:34:18

如果有一个简单块,其属性为数字,则可以找到所有块,并通过匹配数字12=part52 13=part47在此位置插入一个新块。
 
一个例子
; make a selection set of block namephnum
(setq ss1 (ssget "x"(list (cons 0 "INSERT") (cons 2 "phnum"))))
; how many blocks
(setq len (sslength ss1))
(setq x 0)
; repeat the process for each block
(repeat len
; et each block 1 at a time and retrieve its attrubutes
(foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 x )) 'getattributes)
; test block tagname is phnum
       (if (= "PHNUM" (strcase (vla-get-tagstring att)))
       (progn
; get the number from the atrribute
(setq blknum (vla-get-textstring att))
; get the insertion point
           (setq inspt (vla-get-insertionpoint att))
       )
)
)
; name of image to be inserted change xxxx to correct directory
(setq name (strcat "P:\\xxxxx\\" blknum ".jpg"))
(princ (strcat "\n" name))
; add the raster image name insertion pt scale rotation
(vla-AddRaster mspace name inspt 1.5 0.0)
)

davidgeorge212 发表于 2022-7-5 16:43:39

我可能在这里挖洞。我想编程代码不是我以前添加到AutoCAD中的东西。在AutoCAD的每个块中,我到底在哪里插入代码,还是需要一些插件/额外的软件来读取代码?
 
谢谢你的帮助
 
 

BIGAL 发表于 2022-7-5 16:59:42

我在上面的代码中添加了注释,以测试使用属性制作一个块并在其中放置一个数字,将图像另存为该数字。将xxxx更改为图像所在的目录名,将phnum更改为块名,然后查看它是否有效。
 
您只需将代码保存到文本文件,使用记事本,复制和粘贴,但另存为。LSP不是TXT,然后可以使用“Appload”加载文件,并在命令行上运行或键入(加载“myfile”),或者从资源管理器或菜单拖放。
 
(加载文件名)文件名的Ps必须位于Autocad支持路径中,并且在旧版本的Autocad中必须是受信任的位置,以避免出现警告消息。
 
你需要发布一个dwg和excel来了解你想要什么。

SLW210 发表于 2022-7-5 17:01:29

我已经将您的帖子转移到AutoLISP、Visual LISP和DCL论坛。
页: [1]
查看完整版本: 用于upda的Excel电子表格