如何用dbx方法打开dwg并执行一个自编程序

zyhandw

想用dbx方法批量打开dwg文件，并执行一个自编程序[如：(c:tt)]，请各位大侠指点一下！
主程序如下：
(defun c:test ( )
  (setq folder (acet-ui-pickdir "选择目录" "" "请指定目录"))
  (setq filelst (GetAllFiles folder "*.dwg"))
  (setq CadVer (substr (getvar "acadver") 1 2))
  (setq name (strcat "ObjectDBX.AxDbDocument." CadVer))  
  (setq dbx (vlax-create-object name))
  (vlax-for n filelst
    (vla-open dbx n)
    (c:tt)
    (vla-saveas dbx n)  )
)
  (vlax-release-object dbx)
)
自编程序如下：
(defun c:tt ( )
......
)

zyhandw

没有人理会啊，自己顶个

Gu_xl

方法完全不对！建议你论坛先搜一下关于ObjectDBX使用的例子先学习一下！
也可以去我的搜狐博客去看看有关ObjectDBX使用的例子！

ObjectDBX方法批量插入文件夹下的DWG文件
利用ObjectDBX技术不打开CAD文件替换文字

zyhandw

Gu_xl 发表于 2013-9-24 16:31
方法完全不对！建议你论坛先搜一下关于ObjectDBX使用的例子先学习一下！
也可以去我的搜狐博客去看看有关O ...

感谢G版的回复，先按你的指引学习下，谢谢

革天明

zyhandw 发表于 2013-9-24 16:44
感谢G版的回复，先按你的指引学习下，谢谢

研究的怎么样？G版的程序我看过，看不懂。

革天明

Gu_xl 发表于 2013-9-24 16:31
方法完全不对！建议你论坛先搜一下关于ObjectDBX使用的例子先学习一下！
也可以去我的搜狐博客去看看有关O ...

能写几个简单的例子吗？比如 说自定义程序是(command "line" (list 0 0) (list 2 9) "")这样的最简单的程序

革天明

zyhandw 发表于 2013-9-24 16:44
感谢G版的回复，先按你的指引学习下，谢谢

研究的怎么样？能不能分享一下

zyhandw

革天明 发表于 2014-4-7 18:11
研究的怎么样？能不能分享一下

没有头绪，我vl函数都不怎么会用呢
你看了G版的两篇博文了吗？可以学习下！

革天明

zyhandw 发表于 2014-4-9 13:47
没有头绪，我vl函数都不怎么会用呢
你看了G版的两篇博文了吗？可以学习下！

我VL的也很少用，GU的程序看不懂，主要是AutoLISP基体够用了，就没研究VL的

革天明

zyhandw 发表于 2014-4-9 13:47
没有头绪，我vl函数都不怎么会用呢
你看了G版的两篇博文了吗？可以学习下！

研究的怎么样？我是没有头绪的，我也查找了很多批量执行指定LSP程序的软件，都不行，现在感觉唯一可行的就是《利用VLISP开发AutoCAD下的批量图纸处理框架》