tianyi1230 发表于 2015-4-26 10:01:14

1993063 发表于 2015-4-24 23:41 static/image/common/back.gif
俺也做了个缩放标注值,锁住并改色的

你的东西呢？怎么只有演示？

1993063 发表于 2015-4-27 23:27:12

tianyi1230 发表于 2015-4-25 16:01 static/image/common/back.gif
你的东西呢？怎么只有演示？

(defun c:tt (/ i s1 ss x)
(if (setq ss (ssget))
    (progn
      (setq pt (getpoint "\n指定缩放的基点: "))
      (zdh-sdbz ss)
      (zdh-cmd ss pt 1.5 "S")
    )
)
(princ)
)

yjc532 发表于 2015-4-28 07:59:33

我也下载了，但是没有这效果？？

dingtiedt 发表于 2015-7-4 23:07:04

1993063 发表于 2015-4-27 23:27 static/image/common/back.gif
(defun c:tt (/ i s1 ss x)
(if (setq ss (ssget))
    (progn


显示error: no function definition: ZDH-SDBZ
只能选择物体，没有执行缩放，

edata 发表于 2015-7-5 17:02:37


;;图形放大,标注不变
;;by edata @mjtd.com 2015-7-5 17:01:20
(vl-load-com)
(defun c:tt(/ ss p sc i en ss obj dim_sc dim_length units_pre)
(princ "\n选择缩放对象:")
(if(and (setq ss(ssget ))
          (setq p(getpoint "\n指定缩放基点:"))
          (setq sc(getreal "\n指定缩放比例:"))
          )
    (progn
      (setq i -1)
      (while(setq en(ssname ss (setq i(1+ i))))
        (if(=(cdr(assoc 0 (entget en))) "DIMENSION")
          (progn
          (setq obj(vlax-ename->vla-object en))
          (setq dim_sc(vla-get-scalefactor obj))
          
          (if (=(vla-get-TextOverride obj) "")
              (progn
                (setq units_pre(vla-get-PrimaryUnitsPrecision obj))
                (setq dim_lenth(rtos(vla-get-Measurement obj) 2 units_pre))
          (vla-put-TextOverride obj dim_lenth)
                )
              )               
          (vla-put-scalefactor obj (* dim_sc sc))
          )
          )
        )
      (setvar 'cmdecho 0)
      (vl-cmdf "_.scale" ss "" "_non" p sc)
      (setvar 'cmdecho 1)
      )
    )
(princ)
)

my258 发表于 2018-8-13 13:35:15

这个很强大

taoyi0727 发表于 2018-8-13 13:52:57

好程序谢谢分享
页: 1 [2]
查看完整版本: 标注尺寸放大后，尺寸值不变