关于不开图获取属性层块并插入当前新图的求助

timmy521

我要求的功能是实现在另个一个文件里复制属性块，插入到新的当前图纸里。 我写的程序在普通cad里实现，但是到中望cad就不行。一直也找不到原因。  (setq sourceDoc (vla-open acadDocs fullFileName)) 就是在这句话一直有问题。麻烦各位大神看看，程序怎么修改，或者有没有更好的实现方法。
属性块当普通块插入，插入后，就不成为属性块了。



(vl-load-com) ; 确保加载Visual LISP扩展函数
(defun c:ImportDWGToCurrent (/ acadApp acadDocs sourceDoc sourceModelSpace
                             targetDoc targetModelSpace entities entity
                              fullFileName)
  ;; 定义命令：ImportDWGToCurrent
  ; 获取AutoCAD应用对象和文档集合
  (setq acadApp (vlax-get-acad-object))
  (setq acadDocs (vla-get-documents acadApp))
  ; 当前活动文档为目标文档
  (setq targetDoc (vla-get-activedocument acadApp))
  (setq targetModelSpace (vla-get-modelspace targetDoc))
  ; 提示用户选择要导入的DWG文件
  (setq fullFileName (getfiled "选择要导入的DWG文件" "" "dwg" 16))
  (if (not fullFileName)
    (progn
      (princ "\n未选择文件。")
      (exit)))
  ; 检查文件是否存在
  (if (not (findfile fullFileName))
    (progn
      (alert (strcat "文件未找到: " fullFileName))
      (exit)))
  ; 在后台打开源图纸
  (if (setq sourceDoc (vla-open acadDocs fullFileName))
    (progn
      (setq sourceModelSpace (vla-get-modelspace sourceDoc))
      ; 复制实体
      (vlax-for entity sourceModelSpace
        (if (not (vl-catch-all-error-p
                  (vl-catch-all-apply 'vla-copy (list entity))))
          (progn
            (setq entities (cons entity entities)); 成功将实体复制到剪贴板（通过VLA方法）
          )))
      (princ (strcat "\n找到 " (itoa (length entities)) " 个实体进行处理。"))
      (if entities  ; 使用CopyObjects方法将实体从源文档复制到目标文档
        (progn
          (vla-copyobjects sourceDoc
            (vlax-make-variant
              (vlax-safearray-fill
                (vlax-make-safearray vlax-vbobject (cons 0 (1- (length entities))))
                entities
              ))
            targetModelSpace )
          (princ "\n实体已成功复制到当前图纸。"))
        (princ "\n源图纸中未找到可复制的实体。") )
      ;(vla-close sourceDoc :vlax-false)  ; 关闭源文档，不保存更改
      (princ "\n已关闭源图纸。")
    )
    (princ "\n无法打开指定的DWG文件。")
  )
)

kozmosovia

LISP是基于doc的，open一个新doc，lsp后继执行的代码在新doc里面是没有定义的。
需要用DBX方式来后台打开DWG并操作，速度也更快。
可以提问让AI用DBX的方式实现。

timmy521

有点头痛，没有学过DBX