[求助]图块基点放大[ZZXXQQ版主的程序]

xzqk132 · 发表于 2010-9-28 14:25:00

这是我在明经上下载的ZZXXQQ版主的程序，运行起来显示程序出错，请各位大侠看看问题在哪里？谢谢

;;; 图块基点放大明经 ZZXXQQ 2008.8.31
(defun c:tt ()
(if (setq ss (ssget '((0 . "INSERT"))))
    (progn
      (setq sc (getdist "\nInput Scale rate :"))
      (setq i 0)
      (repeat (sslength ss)
(setq ent (entget (ssname ss i))
       i (1+ i)
       ssc (* (cdr (assoc 40 ent)) sc)
       ent (subst
      (cons 40 ssc)
      (assoc 40 ent)
      ent
    )
)
(entmod ent)
      )
    )
)
(princ)
)

xyp1964 · 发表于 2010-9-28 22:50:00

xiao1984 · 发表于 2023-10-29 21:43:23

xyp1964 发表于 2010-9-28 22:50

XYP1964老师：这个程序可以分享一下吗？

crazylsp · 发表于 2010-9-28 17:21:00

必须是新插入的图块，以前缩放过的图块就不能

ZZXXQQ · 发表于 2010-9-28 20:26:00

给个出错的DWG图

xzqk132 · 发表于 2010-9-28 21:38:00

谢谢ZZXXQQ版主以及crazylsp大侠的关注，我上传一个DWG，这个DWG中的图块就无法缩放，我用的是2004。

ZZXXQQ · 发表于 2010-9-28 22:22:00

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

xzqk132 · 发表于 2010-9-29 08:41:00

谢谢ZZXXQQ版主以及xyp1964版主，ZZXXQQ版主的修改后的程序非常好用，再次感谢！ZZXXQQ版主是个热心人！

jianlin521 · 发表于 2012-6-16 23:52:23

ZZXXQQ 发表于 2010-9-28 22:22
[/post]

请问ZZXXQQ 版主，此程序可以改成直接输入或是通过获取选择另外一个块的比例，放大或缩小么？

millermin · 发表于 2012-6-17 08:29:03

这个程序我编过，和我做法一模一样。
首先lz用群码40，我不太明白，没找到他的含义。后来的那个程序用的是41，42，43.和我的就一样。但有问题。如果是属性图块，比如有数字就不行了。图形被放大了，数字却不变，要做到图形和数字同步放大，还必须统一基点，否则放大后数字就不再原位了。所以我改进了程序，先找图块插入点，再调用scale命令，将图块整体放大。这方法和直接改图块属性的xyz放大系数效果一样。但是这个系数和群马里的xyz系数似乎不是一个概念。大家可以试试查找原因。

功夫佬 · 发表于 2012-6-17 08:46:21

本帖最后由功夫佬于 2012-6-17 09:15 编辑

我也需要了解!不知道有谁会把楼主的程序写进窗口里?

账号		自动登录	找回密码
密码			注册

[求助]图块基点放大[ZZXXQQ版主的程序]

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源