我来看MM的 发表于 2014-9-19 16:25:17

【求助】如何不开图，将dwg图中图框层里的图框按原坐标粘贴到当前图纸中？

【请问】如何不开图，将dwg图中图框层里的图框按原坐标粘贴到另一张图纸或当前图纸中？(defun c:tt( / dbx file ob path)
(setq dbx (Vlax-Get-Or-Create-Object "ObjectDBX.AxDbDocument.16" ))
(setq path "D:\\讲课\\批量图纸处理\\")
(foreach file (vl-directory-files path "*.dwg" 1)
    (Vlax-Invoke-Method dbx 'Open (strcat path file) );自己添加vl-catch-all-apply判断是否可以打开
    (vlax-for ob (Vlax-Get dbx 'ModelSpace)
      (cond
      ((= "AcDbText" (Vlax-Get ob 'ObjectName ))
          (cond
            ((= "深圳市小猫设计院" (Vlax-Get ob 'TextString ))
            (Vlax-Put ob 'TextString "深圳市老猫设计院")
            )
            ((= "2002 12" (Vlax-Get ob 'TextString ))
            (Vlax-Put ob 'TextString "2010 04")
            )
          )
      )
      )
    )
    (Vlax-Invoke-Method dbx 'SaveAs (strcat path file))
)
(vlax-release-object dbx)
)比较急没多少时间慢慢研究，求高手出手！
以下有猫老师利用DBX的不开图批量处理方法。
只有一个币，so......

我来看MM的 发表于 2014-9-20 00:50:54

我来看MM的 发表于 2014-9-20 13:29:24

顶一下，求帮助

我来看MM的 发表于 2014-9-20 22:39:12

不得不顶啊！

我来看MM的 发表于 2014-9-21 13:46:27

。。。。。。

zzyong00 发表于 2014-9-21 22:59:08

把你的图框文件发上来，好测试呀
页: [1]
查看完整版本: 【求助】如何不开图，将dwg图中图框层里的图框按原坐标粘贴到当前图纸中？