cxs259 发表于 2010-10-27 16:40:00

[求助]请求把修改标注尺寸后，能使数值随拉伸而变化，谢谢

szygyue 发表于 2021-9-8 19:08:59

以前下载过一个，后来不知道弄哪去了

yan1237891314 发表于 2021-11-12 14:45:40

功能强大 6666

wangkang0829 发表于 2020-3-19 10:17:21

顶贴 学习一下

ZZXXQQ 发表于 2010-10-29 20:25:00



;将尺寸值改为可变数值
(DEFUN C:CHDIM2 ()
(if (and (princ "\nselect object:")
          (setq s (ssget '((0 . "DIMENSION"))))) (progn
(setq k 0)
(repeat (sslength s)
   (setq a (entget (ssname s k)))
   (setq a (subst (cons 1 "") (assoc 1 a) a))
   (entmod a)
   (setq k (1+ k))
)
))
(princ)
)

cxs259 发表于 2010-10-30 14:11:00

<p>已解决，谢谢斑竹！</p>
<p>&nbsp;</p>

yifei 发表于 2010-11-15 21:47:00

谢谢

谢谢正需要

zhengchuan 发表于 2011-5-7 00:28:49

谢谢
谢谢正需要

timmy521 发表于 2011-5-8 10:56:41

哈哈，好东西真多啊，学习了。呵呵

yuanhui_hust 发表于 2011-6-1 20:31:51

这个很好的功能 啊

仲文玉 发表于 2011-6-5 22:51:19

ZZXXQQ 支持，很好的功能

669423907 发表于 2011-6-8 12:08:15

好程序，一定顶！

nanguohappy 发表于 2011-6-28 11:55:29

顶
好好好 好贴
页: [1] 2 3
查看完整版本: [求助]请求把修改标注尺寸后，能使数值随拉伸而变化，谢谢