[原创]改變標注的比例

torcky

(defun c:bbz (/ fac)
  (if (= fact nil)
    (setq fact 1.0))
  (prompt "\nEnter the Scale Factor<")
  (princ fact)
  (princ ">:")
  (setq fac (getreal))
  (if (or (= fac nil) (= fac fact))
    (progn
      (setq fact (/ 1.0 fact))
      (command "dimoverride" "DIMLFAC" fact pause)
      (setq fact (/ 1.0 fact))
    )
    (progn
      (setq fac (/ 1.0 fac))
      (command "dimoverride" "DIMLFAC" fac pause)
      (setq fact (/ 1.0 fac)))
    )
  (prompt "\n*****The Program's Designer Is Tang.J.Z.*****")
  (princ)
)

note:如放大4倍﹐就输入4.程序将标注的实测尺寸除以4

liu22737

(setq fac (getreal (strcat "\nEnter the Scale Factor&lt;" (rtos fcat) "&gt;:"))

HuaiYu

好东东，copy 下来用用.

torcky

那就再简化点吧﹗﹗﹗﹗

(defun c:bzz (/ fac)
  (if (= fact nil)(setq fact 1.0))
  (setq fac (getreal (strcat "\nEnter the Scale Factor<" (rtos fact) ">:")))
  (if (and fac(/= fac fact))(setq fact fac)(setq fac fact))
  (command "dimoverride" "DIMLFAC" (/ 1.0 fac) pause) 
  (prompt "\n*****The Program's Designer Is Tang.J.Z.*****")
  (princ)
)

liu22737

(defun c:bzz (/ fac)
  (if (= fact nil)(setq fact 1.0))
  (setq fac (getreal (strcat "\nEnter the Scale Factor<" (rtos fact) ">:")))
  (if fac (setq fact fac)(setq fac fact))
  (command "dimoverride" "DIMLFAC" (/ 1.0 fac) "" (ssget) "") 
  (prompt "\n*****The Program's Designer Is Tang.J.Z.*****")
  (princ)
)

ZZXXQQ

 

(defun c:bzz (/ fac)
  (if (= fact nil)(setq fact 1.0))
  (setq fac (getreal (strcat "\nEnter the Scale Factor<" (rtos fact) ">:")))
  (setq fac (if fac fac fact))
  (command "dimoverride" "DIMLFAC" (/ 1.0 fac) "" (ssget) "") 
  (prompt "\n*****The Program's Designer Is Tang.J.Z.*****")
  (princ)
)