[求助]：這里不知誰有辦法改改.
近來用以下程序調用系統文件時, 我有個頭痛的問題向各位大俠請教一二.是這樣的. 我建立了個TOPCAD.ARG后我運行了以下的涵數後用TOPCAD.ARG的系統的設定了. 但是我對一些系統變量作修改之后. 我想還原TOPCAD.ARG系統文件原始的設置值, 調用這個個涵數就不能返回的.請問在這種情況下LISP如何做才能實現這個還原這個系統文件的設定值呢? 希望各位大俠指教指教. 謝謝! !
(vl-load-com)
;;;lisp 調用*.arg CAD系統配置文件涵數
;;;.例: 系統配置對裝入TOPCAD.ARG系統文件可以用
;; (setq arg-file "TOPCAD.ARG")
;; (charg arg-file)
(defun charg(argfilename / argchprop)
(setq argchprop(vla-put-activeprofile
(vla-get-profiles
(vla-get-preferences
(vlax-get-acad-object)
)
)argfilename ))
(princ "\nYou chprop the tyle is OK now.")
(princ))
页:
[1]