明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: king、

[已解答] 标注尺寸放大后,尺寸值不变

[复制链接]
发表于 2015-4-26 10:01 | 显示全部楼层
1993063 发表于 2015-4-24 23:41
俺也做了个缩放标注值,锁住并改色的

你的东西呢?怎么只有演示?
发表于 2015-4-27 23:27 | 显示全部楼层
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)
)
发表于 2015-4-28 07:59 | 显示全部楼层
我也下载了,但是没有这效果??
发表于 2015-7-4 23:07 | 显示全部楼层
1993063 发表于 2015-4-27 23:27
(defun c:tt (/ i s1 ss x)
  (if (setq ss (ssget))
    (progn

显示error: no function definition: ZDH-SDBZ
只能选择物体,没有执行缩放,
发表于 2015-7-5 17:02 | 显示全部楼层
  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.   )

评分

参与人数 1明经币 +1 收起 理由
lucas_3333 + 1 很给力!

查看全部评分

发表于 2018-8-13 13:35 | 显示全部楼层
这个很强大
发表于 2018-8-13 13:52 | 显示全部楼层
好程序  谢谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 20:30 , Processed in 0.227808 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表