심볼 메뉴 스케일 자동 조정 질문 드립니다.

sld메뉴를 이용하여 자주 쓰는 용접기호같은 것을
심볼로 처리하여 사용 하고 있습니다.
근데 명령어를 쓸때 마다 스케일 값을 입력해애 합니다.
이부분을 dimscale 값에 맞게 자동으로 입력되게 lisp을 변경하고 싶은데요
어느 부분을 어떻게 수정해야 할지 잘모르겠습니다.
여러분의 많이 가르침 부탁드리겠습니다.
아래 lisp 내용입니다.
(setvar “osmode” 0)
(setvar “orthomode” 0)
(setq fa (getvar “dimscale”))
(defun c:weld-all ()  (princ “D1”)(command “insert” “weld-all”)  (princ))
(defun c:weld-tail ()  (princ “D1”)(command “insert” “weld-tail”)  (princ))
(defun c:weld-dc ()  (princ “D1”)(command “insert” “weld-dc”)  (princ))
(defun c:weld-df ()  (princ “D1”)(command “insert” “weld-df”)  (princ))
(defun c:weld-dj ()  (princ “D1”)(command “insert” “weld-dj”)  (princ))
(defun c:weld-dk ()  (princ “D1”)(command “insert” “weld-dk”)  (princ))
(defun c:weld-dp ()  (princ “D1”)(command “insert” “weld-dp”)  (princ))
(defun c:weld-du ()  (princ “D1”)(command “insert” “weld-du”)  (princ))
(defun c:weld-dv ()  (princ “D1”)(command “insert” “weld-dv”)  (princ))
(defun c:weld-sc ()  (princ “D1”)(command “insert” “weld-sc”)  (princ))
(defun c:weld-sf ()  (princ “D1”)(command “insert” “weld-sf”)  (princ))
(defun c:weld-sj ()  (princ “D1”)(command “insert” “weld-sj”)  (princ))
(defun c:weld-sk ()  (princ “D1”)(command “insert” “weld-sk”)  (princ))
(defun c:weld-sp ()  (princ “D1”)(command “insert” “weld-sp”)  (princ))
(defun c:weld-su ()  (princ “D1”)(command “insert” “weld-su”)  (princ))
(defun c:weld-sv ()  (princ “D1”)(command “insert” “weld-sv”)  (princ))

;=================================================================================