[编程交流] lisp设置dimdec并选择

(defun c:setdimdec(/ i)<p>  (setq i 1)</p><p>  (repeat 9</p><p>    (eval(read(strcat "(defun c:d" (itoa i)</p><p>        "()(setvar "DIMSCALE" " (itoa i)</p><p>        ")(princ))")))</p><p>    (setq i(1+ i))</p><p>    ); end repeat</p><p>  (princ)</p><p>  ); end of test</p><p>(c:test)[\code]</p>

(defun c:dd (/ *error* dim ss ssl)
   (defun *error* (msg)
   (setvar "cmdecho" 1)
   (if (= msg "")
       (princ "\nFunction Complete.")
       (princ "\nError or Esc Pressed...")
   ) ;_  end if
   (princ)
   ) ;_  end defun
   (setvar "cmdecho" 0)
   (if
   (>= (setq dim (getint "\nSpecify Number of Decimal Places: ")) 0)
      (progn
          (setvar "DIMDEC" dim)
          (setq ss (ssget))
          (if (/= (setq ssl (sslength ss)) 0)
          (command "-dimstyle" "a" ss "")
          (alert "No Dimensions Selected.")
          ) ;_  end if
      ) ;_  end progn
      (alert "Number of Decimal Places must be Positive.")
   ) ;_  end if
   (*error* "")
   (princ (strcat "\n" (itoa ssl) " Dimensions Updated."))
   (princ)
) ;_  end defun

(defun c:[color=Red][b]0[/b][/color] (/ *error* ss ssl)
   (defun *error* (msg)
   (setvar "cmdecho" 1)
   (if (= msg "")
       (princ "\nFunction Complete.")
       (princ "\nError or Esc Pressed...")
   ) ;_  end if
   (princ)
   ) ;_  end defun
   (setvar "cmdecho" 0)
   (setvar "DIMDEC" [b][color=Red]0[/color][/b])
   (setq ss (ssget))
   (if    (/= (setq ssl (sslength ss)) 0)
   (command "-dimstyle" "a" ss "")
   (alert "No Dimensions Selected.")
   ) ;_  end if
   (*error* "")
   (princ (strcat "\n" (itoa ssl) " Dimensions Updated."))
   (princ)
) ;_  end defun

(defun c:0 (/ *error* ss ssl)
   (defun *error* (msg)
   (setvar "cmdecho" 1)
   (if (= msg "")
       (princ "\nFunction Complete.")
       (princ "\nError or Esc Pressed...")
   ) ;_  end if
   (princ)
   ) ;_  end defun
   (setvar "cmdecho" 0)
   (setvar "DIMDEC" 0)
   (setq ss (ssget "X" (list (cons 0 "DIMENSION"))))
   (if    (/= (setq ssl (sslength ss)) 0)
   (command "-dimstyle" "a" ss "")
   (alert "No Dimensions Exist.")
   ) ;_  end if
   (*error* "")
   (princ (strcat "\n" (itoa ssl) " Dimensions Updated."))
   (princ)
) ;_  end defun