有那个朋友帮我一下，让的代码处理来快的，现在好慢的

Andyhon

不知有否理解错误

3. (defun c:dsc (/ ss en lst newdim typ oldds n)
4.   (princ "\n程序功能：改变框选范围内尺寸的全局比例因子")
5.   (princ "\n请输入新的尺寸比例<")
6.   (princ (getvar "dimscale"))
7.   (setq newdim (getreal ">:"))
8.   (if (= nil newdim)
9.     (setq newdim (* (getvar "dimscale") 1))
10.   )
11.   (setq oldds (getvar "dimstyle"))
12.   (setvar "CmdEcho" 0)
13.   (setvar "dimscale" newdim)
14.   (if (setq ss (ssget '((0 . "DIMENSION"))))
15.     (progn
16.       (setq n -1)
17.       (repeat (sslength ss)
18.         (setq en (ssname ss (setq n (1+ n))))
19.         (setq lst (entget en))
20.         (setq typ (cdr (assoc 0 lst)))
21.         (command "-dimstyle" "a" en "")
22.       )
23.     )
24.   )
25.   (command "-dimstyle" "r" oldds)
26.   (setvar "CmdEcho" 1)
27.   (princ)
28. )

(defun c:dsc (/ ss en lst newdim typ oldds n)   (princ "\n程序功能：改变框选范围内尺寸的全局比例因子")   (princ "\n请输入新的尺寸比例<")   (princ (getvar "dimscale"))   (setq newdim (getreal ">:"))   (if (= nil newdim)     (setq newdim (* (getvar "dimscale") 1))   )   (setq oldds (getvar "dimstyle"))   (setvar "CmdEcho" 0)   (setvar "dimscale" newdim)   (if (setq ss (ssget '((0 . "DIMENSION"))))     (progn       (setq n -1)       (repeat (sslength ss)         (setq en (ssname ss (setq n (1+ n))))         (setq lst (entget en))         (setq typ (cdr (assoc 0 lst)))         (command "-dimstyle" "a" en "")       )     )   )   (command "-dimstyle" "r" oldds)   (setvar "CmdEcho" 1)   (princ) )