xdrx_textstyle_make 有时发生异常

zhong2013

我在使用（vla-open)连续打开多个文件时，有时出现这个错误。

zhong2013

好像打开文件又正常，就是出来个对话框，出来时要点 一下。能不能改成命令行提示。

newer

zhong2013 发表于 2018-11-16 11:14
好像打开文件又正常，就是出来个对话框，出来时要点 一下。能不能改成命令行提示。

请把你完整代码贴上来下，帮你改下

zhong2013

(defun c:ttt (/ appdoc doc dwgname getfolder ph1)
        (defun GetFolder (msg / shFolder path catchit);
                (if(vl-catch-all-error-p
                                 (setq shFolder(vlax-invoke-method(vlax-create-object "Shell.Application")'BrowseForFolder 0 msg 1)
                                         catchit(vl-catch-all-apply'(lambda()(setq shFolder(vlax-get-property shFolder'self))
                                                                                                                                                                (setq path (vlax-get-property shFolder 'path)))))) nil path))
        (setq APPDOC (vla-get-documents(vlax-get-acad-object)))
        (setq ph1 (GetFolder "请指定要打印的DWG文件夹"))
        (setq dwgname (vl-directory-files ph1 "*.DWG"))
        (foreach name dwgname
                (setq doc (vla-open APPDOC (strcat ph1 "\\" name))) ;开图
                (vla-Close DOC)
        )
)

zhong2013

我就开图，关图。

zhong2013

想自定义批量打印。另外请教一下，不开图批量打印是不是很麻烦。

newer

zhong2013 发表于 2018-11-16 11:28
我就开图，关图。

把LISP代码完整的贴上来
操作外部数据库，有固定的写法的

newer

zhong2013 发表于 2018-11-16 11:26
(defun c:ttt (/ appdoc doc dwgname getfolder ph1)
        (defun GetFolder (msg / shFolder path catchit);
...

你这代码里面也没用xdrx_textstyle_make 函数啊

操作外部数据库，要用OBJECTDBX

marting

zhong2013 发表于 2018-11-16 11:14
好像打开文件又正常，就是出来个对话框，出来时要点 一下。能不能改成命令行提示。

用你的代码，测试了打开了几十张图，没出现你说的问题
你是在最新版本的API下，执行的吗？

marting

zhong2013 发表于 2018-11-16 11:26
(defun c:ttt (/ appdoc doc dwgname getfolder ph1)
        (defun GetFolder (msg / shFolder path catchit);
...

你想批量打印，你这样是做不到的
因为你用了 vla-open 实际打开了图，图形打开后，会回到你执行LISP的那个图中，你代码就操作不了打开的那个图形了。

要想实现，得用DBX，在当前图中 后台打开DWG，然后你操作，才能让你的LISP代码控制。

zhong2013

marting 发表于 2018-11-16 14:10
你想批量打印，你这样是做不到的
因为你用了 vla-open 实际打开了图，图形打开后，会回到你执行LISP的那 ...

DBX是不是是不能选择过滤，找PL线图框是不是很慢。，还我发现如果我连续打开文件，然后顺序关闭，第一次执行正常，再执行一次有时弹出上面的提示。不知是什么原因，我是在WIN10 CAD2017下测试。

marting

zhong2013 发表于 2018-11-16 18:35
DBX是不是是不能选择过滤，找PL线图框是不是很慢。，还我发现如果我连续打开文件，然后顺序关闭，第一次 ...

DBX用VLAX-FOR遍历，不慢
不是慢不慢的问题，而是你不用DBX完不成你要做的事
1、你打开图形，不激活，你操作不了他们
2、你激活，那么你的LISP代码在原来的图形里面，LISP执行不下去

去看下今天我更新的几个DBX操作的代码

zhong2013

marting 发表于 2018-11-16 18:40
DBX用VLAX-FOR遍历，不慢
不是慢不慢的问题，而是你不用DBX完不成你要做的事
1、你打开图形，不激活， ...

好像是有问题，我用vla-open，要选择一些图元，好像选不到。要好好看看DBX了，希望收集些资料学习学习。

zhong2013

问一下，可以通过DBX打印吗，说一下思路，好吗，

marting

zhong2013 发表于 2018-11-21 15:18
问一下，可以通过DBX打印吗，说一下思路，好吗，

你可以去试试
DBX，得到DOC, 再得到LAYOUTS,再得到LAYOUT，然后你打印LAYOUT