比例标注,的小程序谁有呀

futuremh

在一些工程图中.住往要放大一些地方,但是放大后标注的数字也跟着放大了.我看过有的工具上有这样的小程式,输入一个比例,放在几倍输多少,然后标注出来也是成比例的.这样的小程式谁有呀.给我个好吗

ZZXXQQ

3. ;改标注比例 明经 ZZXXQQ 2007.9.2
4. (DEFUN C:TT ()
5. (SETVAR "CMDECHO" 0)
6. (PRINC "\nSelect Dimension(s) :")
7. (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN
8.   (SETQ N (GETDIST "\nEnter Scale :")
9. OLDFAC (GETVAR "DIMLFAC"))
10.   (SETVAR "DIMLFAC" N)
11.   (COMMAND "DIMSTYLE" "_APPLY" SS "")
12.   (SETVAR "DIMLFAC" OLDFAC)
13. ))
14. (SETVAR "CMDECHO" 1)
15. (PRINC)
16. )

;改标注比例 明经 ZZXXQQ 2007.9.2 (DEFUN C:TT () (SETVAR "CMDECHO" 0) (PRINC "\nSelect Dimension(s) :") (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN   (SETQ N (GETDIST "\nEnter Scale :") OLDFAC (GETVAR "DIMLFAC"))   (SETVAR "DIMLFAC" N)   (COMMAND "DIMSTYLE" "_APPLY" SS "")   (SETVAR "DIMLFAC" OLDFAC) )) (SETVAR "CMDECHO" 1) (PRINC) )

ssasia123

这是什么原理？能否说一下为什么尺寸数据变了

ZZXXQQ

变量DIMLFAC是测量尺寸的比例因子，如果为1就是1:1标注，即显示尺寸与实际尺寸相等；如果为2，则显示尺寸为实际尺寸的二分之一。

dwg001

程序的写法，如果为2，似乎显示尺寸为实际尺寸的二倍。。

liuhoujun

好东东!可惜我现在才发现!

英雄无敌

(defun c:scd (/ sc ss oldds oldfac poi)
  ;;变比例尺寸不变
  (SETQ sc (GETDIST "\n请输入缩放比例 :"))

(princ"\n请选择缩放的对象:")
  (IF (SETQ ss (ssget ))
    (PROGN

      (command "scale" ss "")
      (while (= nil (setq poi (getpoint "\n请输入基点:"))))
      (command poi sc)
      (setq ss (ssget "p" '((0 . "dimension"))))
      (if ss
 (progn
   (setq oldds (getvar "dimstyle"))
   (command "_dimstyle" "restore" "" (ssname ss 0))
   (setq oldfac (getvar "dimlfac"))
   (SETVAR "DIMLFAC" (/ oldfac sc))
   (COMMAND "DIMSTYLE" "_APPLY" ss "")
   (command "-dimstyle" "r" oldds)
 )
      )

    )
  )

  (princ)
)

这个小程序可以在变比例的时候保持尺寸数值不变