[已解決][問題]圖框自動插入比例問題

小弟我在網路上找了自動插入圖框
但插入的圖框比例因為不是整數
所以想加一條可手動切換比例
但改了許久還是無法成功~凡請各位大大幫忙
原碼為pf工具箱的經修改如下

(defun c:frr()
  (setq mylayer (getvar "clayer"))
  (setq layname1 (substr mylayer 1 2))
  (setq layname2 (strcat layname1 "0"))
  (if(setq ed1 (tblsearch "LAYER" layname2))
    (progn
      (setq ed2 (cdr (assoc 70 ed1)))
      (cond
        ((= ed2 0)  (command "layer" "on" layname2 ""))
        ((= ed2 1)  (command "layer" "t" layname2 "on" layname2 ""))
        ((= ed2 4)  (command "layer" "u" layname2 "on" layname2 ""))
        ((= ed2 5)  (progn (command "layer" "t"  str3 "u" layname2 "on" layname2 "")))
      )
   )  
   (setq layname2 "0")
  )
  (command "layer" "s" layname2 "")
  (PRINC "\n】--自動圖框 ")(PRINC)
  (setq pt1 (getpoint "請選擇圖形左上角:\n"))
  (setq pt2 (getcorner pt1 "請選擇圖形右下角:\n"))
  (setq disx (abs (- (car pt1) (car pt2))))
  (setq disy (abs (- (cadr pt1) (cadr pt2))))
  (setq acx  (/ disx 297.00))
  (setq acy  (/ disy 165.00))
  (if (> acy acx)
      (setq acx acy)
  )
   (setq acx (*  (fix (+ (*  acx 10) 0.9999)) 0.1))
  (setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) acx)) 2.00)
                  (/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) acx)) 2.00)))

  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "attreq" 0) ;關閉屬性對話框
  (command "-insert"  "圖框外" pt0 "x"  acx "" "" "" "" "" "" "" "" "" "" ""
          acc  "" "" ""  "" )
 (command "explode" "l") ;炸開插入的圖塊
(setvar "attreq" 1) ;打開屬性對話框
  (setvar "osmode" os)  
)

算出結果後~~ 一直無法手動輸入~麻煩大大們幫忙~謝謝

已解決