liminnet 发表于 2008-7-22 17:57:00

Andyhon 发表于 2008-7-22 21:19:00

本帖最后由 作者 于 2008-7-22 21:21:21 编辑

不知有否理解错误

(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)
)


页: [1]
查看完整版本: 有那个朋友帮我一下，让的代码处理来快的，现在好慢的