cad怎么选择一个对象打散vba_求助如何读取对应CAD文件名的代码，以及如何提取CAD组码组值的方式。...

本帖最后由 jiamian0128 于 2019-7-25 12:32 编辑

在之前的的问题里面，我求助了如何通过EXCEL VBA 提取CAD的数据，非常感谢论坛大神的帮助，现在能满足一些基本要求了，现在把附件代码贴出来。希望论坛大神如果方便能继续指导下小白如何把一些效果完善下，改进下代码。

求助1：现在的情况是，读取的CAD文件只能是CAD程序当前打开的文件，能否把读取的CAD文件改为：当前路径名下的_Drawing1.dwg文件。能否运用thispath，currentdocname=“Drawing1”；的之类方式，把要读取的文件限定成当前文件的路径下的Drawing1.dwg文件。

求助2：能否把第一行空出来，能够自己填注释进去？然后每次提取的时候，能把上次的都清空，让新提取的值替换进来？现在的效果是比如新提取16行数据，16及16以上的行都会替换，16以下就不会替换。比如新提取出来的如果是13行数据，13及13上以上都是新数据，但是14到16行还是旧数据。求助大神能否帮改下代码，让第一行的数据不会被清空，数据从第二行开始生成，然后每次生成的时候第二行及以下的数据都先清空，然后新数据生成进去。

求助3：这个是最最困难的，已知现在能够通过定义CAD图元的组码 arrGroupCode(1) = 0: arrDataValue(1) = "LWPOLYLINE"组值。来筛选出来所有LWPOLYLINE的图元了，然后通过Select Case 属性命令.layer,来提取不同layer(图层)的CAD图元的数据，但是例如.objectname .area.layer这些属