pBe 发表于 2022-7-6 09:35:08

ODBX错误

我编写这个例程是为了通过DBX检查图形上的选项卡数量
 

(defun c:FindTabs (fileNames )
(cond ((and fileNames
      (setq myDoc (vla-GetInterfaceObject
                         (vlax-Get-Acad-Object)
                         (strcat "ObjectDBX.AxDbDocument." (substr (getvar 'AcadVer) 1 2)))))
(setq AuditFile "D:\\My Documents\\test_reaL.csv"
            AuditFile (open AuditFile "a"))
   (foreach File Filenames
(cond (
         (not (vl-catch-all-apply 'vla-Open (list myDocfile :vlax-true)))

               (if (> (vla-get-count (vla-get-layouts myDoc)) 2)
                  (write-line (vla-get-name myDoc) AuditFile)
                     )
         )
                  )
          )

      (vl-catch-all-apply 'vlax-Release-Object (list myDoc))
      (close AuditFile)
      )
)
)

 
一切都很好，在它显示的某个地方
 
“将两个顶点添加到2D pline（3AFB9），该pline没有
顶点。"
 
你认为这是什么原因？有什么想法吗？
 
我正在通过9000多个文件运行这个代码。
 
Autocad 2009
 
编辑：现在一切似乎都好了。。真的不知道我第一次在500个文件上运行它时会得到什么，一切都很好
谢谢

pBe 发表于 2022-7-6 09:58:27

废话！消息回来了
 
建议，先生们？

Lee Mac 发表于 2022-7-6 10:32:23

听起来像是另一段代码的问题，该代码正在创建没有顶点的LWLPolyline定义，但DXF 90设置为2。

pBe 发表于 2022-7-6 10:42:17

 
可能就是这样。
当您运行ODBX时，仍然加载acaddoc。lsp和startup suite中的所有例程？
页: [1]
查看完整版本: ODBX错误