标注尺寸放大后，尺寸值不变

tianyi1230

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

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

1993063

tianyi1230 发表于 2015-4-25 16:01
你的东西呢？怎么只有演示？

(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

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

dingtiedt

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

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

edata

1. ;;图形放大,标注不变
   
2. ;;by edata @mjtd.com 2015-7-5 17:01:20
   
3. (vl-load-com)
   
4. (defun c:tt(/ ss p sc i en ss obj dim_sc dim_length units_pre)
   
5.   (princ "\n选择缩放对象:")
   
6.   (if(and (setq ss(ssget ))
   
7.           (setq p(getpoint "\n指定缩放基点:"))
   
8.           (setq sc(getreal "\n指定缩放比例:"))
   
9.           )
   
10.     (progn
    
11.       (setq i -1)
    
12.       (while(setq en(ssname ss (setq i(1+ i))))
    
13.         (if(=(cdr(assoc 0 (entget en))) "DIMENSION")
    
14.           (progn
    
15.             (setq obj(vlax-ename->vla-object en))
    
16.             (setq dim_sc(vla-get-scalefactor obj))
    
17.             
    
18.             (if (=(vla-get-TextOverride obj) "")
    
19.               (progn
    
20.                 (setq units_pre(vla-get-PrimaryUnitsPrecision obj))
    
21.                 (setq dim_lenth(rtos(vla-get-Measurement obj) 2 units_pre))
    
22.             (vla-put-TextOverride obj dim_lenth)
    
23.                 )
    
24.               )               
    
25.             (vla-put-scalefactor obj (* dim_sc sc))
    
26.             )
    
27.           )
    
28.         )
    
29.       (setvar 'cmdecho 0)
    
30.       (vl-cmdf "_.scale" ss "" "_non" p sc)
    
31.       (setvar 'cmdecho 1)
    
32.       )
    
33.     )
    
34.   (princ)
    
35.   )

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

my258

这个很强大

taoyi0727

好程序  谢谢分享