如何用dbx方法打开dwg并执行一个自编程序
想用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 ( )
......
)
没有人理会啊，自己顶个 方法完全不对！建议你论坛先搜一下关于ObjectDBX使用的例子先学习一下！
也可以去我的搜狐博客去看看有关ObjectDBX使用的例子！
ObjectDBX方法批量插入文件夹下的DWG文件
利用ObjectDBX技术不打开CAD文件替换文字 Gu_xl 发表于 2013-9-24 16:31 static/image/common/back.gif
方法完全不对！建议你论坛先搜一下关于ObjectDBX使用的例子先学习一下！
也可以去我的搜狐博客去看看有关O ...
感谢G版的回复，先按你的指引学习下，谢谢 zyhandw 发表于 2013-9-24 16:44 static/image/common/back.gif
感谢G版的回复，先按你的指引学习下，谢谢
研究的怎么样？G版的程序我看过，看不懂。 Gu_xl 发表于 2013-9-24 16:31 static/image/common/back.gif
方法完全不对！建议你论坛先搜一下关于ObjectDBX使用的例子先学习一下！
也可以去我的搜狐博客去看看有关O ...
能写几个简单的例子吗？比如 说自定义程序是(command "line" (list 0 0) (list 2 9) "")这样的最简单的程序 zyhandw 发表于 2013-9-24 16:44 static/image/common/back.gif
感谢G版的回复，先按你的指引学习下，谢谢
研究的怎么样？能不能分享一下 革天明 发表于 2014-4-7 18:11 static/image/common/back.gif
研究的怎么样？能不能分享一下
没有头绪，我vl函数都不怎么会用呢
你看了G版的两篇博文了吗？可以学习下！ zyhandw 发表于 2014-4-9 13:47 static/image/common/back.gif
没有头绪，我vl函数都不怎么会用呢
你看了G版的两篇博文了吗？可以学习下！
我VL的也很少用，GU的程序看不懂，主要是AutoLISP基体够用了，就没研究VL的 zyhandw 发表于 2014-4-9 13:47 static/image/common/back.gif
没有头绪，我vl函数都不怎么会用呢
你看了G版的两篇博文了吗？可以学习下！
研究的怎么样？我是没有头绪的，我也查找了很多批量执行指定LSP程序的软件，都不行，现在感觉唯一可行的就是《利用VLISP开发AutoCAD下的批量图纸处理框架》
页:
[1]
2