;楢懕擖椡憹尭検乮嚈乯傪擖椡

;(R)=ARES

;Jul.31-2025
;Jul.01-2024





;******************* 
(Defun C:SetDelta ()
;*******************
    (if (getenv "嚈")
        (setq 嚈 (getString (strcat "\n楢懕擖椡憹尭検乮嚈乯傪擖椡 <" (getenv "嚈") ">:")))
        (setq 嚈 (getString (strcat "\n楢懕擖椡憹尭検乮嚈乯傪擖椡 < >:")))				
    );if
    (if (= "" 嚈)
        (setq 嚈 (getenv "嚈"));Enter/嬻懪--->廬慜抣嵦梡
    );if
    (setenv "嚈" 嚈)
    (princ)
);----------------------------------



