[编程交流] 你能用

(defun c:test (/ DictObj)
 (vl-load-com)
 (if (not (vl-catch-all-error-p
            (setq DictObj (vl-catch-all-apply 'vla-item
                            (list (vla-get-Dictionaries
                                    (vla-get-ActiveDocument
                                      (vlax-get-acad-object))) "AcStStandard")))))
   (progn
     (princ (strcat "\n<< Deleted " (itoa (vla-get-Count DictObj)) " DWS File Associations >>"))
     (vla-Delete DictObj))
   (princ "\n<< No Attached DWS Files >>"))
 
 (princ))

(defun c:adddws ( / dws dictionary xname newdict datalist )
 (setq dws (getfiled "Select DWS file" "" "dws" 4))
 (setq dictionary (list '(0 . "DICTIONARY") '(100 . "AcDbDictionary")))
 (setq xname (entmakex dictionary))
 (setq newdict (dictadd (namedobjdict) "AcStStandard" xname))
 (setq datalist (append (list '(0 . "XRECORD") '(100 . "AcDbXrecord")) (list (cons 1 dws))))
 (setq xname (entmakex datalist))
 (dictadd newdict "0" xname)
 (princ)
)