如何将一个dwg文件里面的词典内容复制到另一个dwg文件里面？

ziyouwzb

chenyizhen28

这个不难，有个黑板功能，用上就可以了。

magicheno

chenyizhen28 发表于 2025-1-5 20:28
这个不难，有个黑板功能，用上就可以了。

大佬该怎么使用呢

magicheno

很好的问题，我也想知道怎么才能实现的

chenyizhen28

; 程序一：读取当前CAD中所有字典，并将内容写到注册表
(defun write-dictionaries-to-registry ()
  (setq rootdict (vla-get-NamedObjectsDictionary (vlax-get-acad-object)))
  (vlax-for dict-item rootdict
    (setq dict-name (vla-get-Name dict-item))
    (setq dict-content (vlax-dictionary-items dict-item))
    (vl-registry-write (strcat "HKEY_CURRENT_USER\\Software\\MyCADDictionaries\\" dict-name) :vlaxVariant (vlax-make-variant dict-content))
  )
)

; 程序二：读取注册表中的字典，并将其写入到当前CAD
(defun read-dictionaries-from-registry ()
  (setq rootdict (vla-get-NamedObjectsDictionary (vlax-get-acad-object)))
  (vlax-for subkey (vl-registry-read-all "HKEY_CURRENT_USER\\Software\\MyCADDictionaries")
    (setq dict-name (car subkey))
    (setq dict-content (vlax-variant-value (cdr subkey)))
    (setq new-dict (vla-add rootdict dict-name))
    (vlax-for item dict-content
      (vla-dictionary-add new-dict (car item) (cadr item))
    )
  )
)

; 调用示例
; (write-dictionaries-to-registry)
; (read-dictionaries-from-registry)

yoyoho

chenyizhen28 发表于 2025-2-5 11:00
; 程序一：读取当前CAD中所有字典，并将内容写到注册表
(defun write-dictionaries-to-registry ()
  (se ...

指令: (defun write-dictionaries-to-registry ()
(_>   (setq rootdict (vla-get-NamedObjectsDictionary (vlax-get-acad-object)))
(_>   (vlax-for dict-item rootdict
((_>     (setq dict-name (vla-get-Name dict-item))
((_>     (setq dict-content (vlax-dictionary-items dict-item))
((_>     (vl-registry-write (strcat "HKEY_CURRENT_USER\\Software\\MyCADDictionaries\\" dict-name) :vlaxVariant (vlax-make-variant dict-content))
((_>   )
(_> )
WRITE-DICTIONARIES-TO-REGISTRY
指令: (write-dictionaries-to-registry)
渣昫 : no function definition: VLA-GET-NAMEDOBJECTSDICTIONARY

autocad 2023 测试没能成功.