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

cabel列表工具,导出于

你好
 
我正在寻找一种工具,将电缆列表的属性从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模块中

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
MsgBox "Cell doubleclicked: """ & 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'~
页: [1]
查看完整版本: cabel列表工具,导出于