cabel列表工具，导出于

extrawurscht · 发表于 2022-7-6 22:50:27

你好

我正在寻找一种工具，将电缆列表的属性从autocad导出到excel。图形中有两个块，其电缆编号与一个属性相同，FROM块包含到设备的属性，to块包含来自设备的属性。然后我想连接ACAD和Excel。
该工具可以是一个外部程序。。。
在excel中，我想编辑属性的值。如果单击excel中的单元格，我希望将中心缩放到ACAD中的值。例如，如果我在excel中单击cabel编号V1040，我想缩放到该文本包含在acad中的位置。
如果我在excel中更改了某些内容，并将单元格保留为enter，则应立即更改acad中的值。（向后并不那么重要）我还想使用excel编辑选项。
我有一个给定风格的excel电缆列表，标题为：

电缆编号，芯线，从设备，从接头，从房间，到设备，到接头，到房间。
所有其他单元格我将手动填充，无需在acad中回写。
几周前，我在一所大学的笔记本电脑上看到过这样的工具。该工具用于excel中的注释：
对于电缆编号，例如两个入口：Zeichnung3。DWG211922128
Zeichnung3.dwg2119022160
对于to设备：Zeichnung3。DWG211922136
来自设备：Zeichnung3。DWG211922168

我知道阿托和阿丁的工具。也许在excel中使用这个句柄作为注释更好，因为在这个工具中，我无法重新连接到现有的excel。

sombody能帮我吗？有什么建议吗？
非常感谢你。
问候语

（我知道这是一篇很长的文章）

fixo · 发表于 2022-7-6 23:18:57

对于快速测试，请将此代码添加到VBAIDE（Alt+F11）等中的ThisWorkBook模块中

copy

 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
MsgBox "Cell double  clicked: """ & Target.Row & ":" & Target.Column & """" & vbCr & _
"Value: " & Target.Value & vbCr & _
"Add your code after this line"
Cancel = True
End Sub

在Excel文件中插入模块
在其中粘贴以下代码
我希望这会让你开始
“Option Explicit”需要：“AutoCAD 200X对象库（仅在A2009上测试）”工具->选项->常规选项卡->错误捕捉->在未处理的错误上中断Const folderPath为String=“C:\Users\…\TempVBA\”

extrawurscht · 发表于 2022-7-6 23:35:00

你好
非常感谢。
我试试这个。
第一个代码是什么？在哪里添加？

fixo · 发表于 2022-7-7 00:01:03

此选项仅用于显示选定的单元格值
所以忘掉他们吧
（通常嵌入此工作簿模块）

~'J'~

[编程交流] cabel列表工具，导出于

发表回复

精选推荐