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

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

<p><font size="5">这是我在明经上下载的ZZXXQQ版主的程序，运行起来显示程序出错，请各位大侠看看问题在哪里？谢谢</font></p>
<p><font size="5"></font>&nbsp;</p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">;;; 图块基点放大 明经 ZZXXQQ 2008.8.31<br/>(defun c:tt ()<br/>&nbsp; (if (setq ss (ssget '((0 . "INSERT"))))<br/>&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq sc (getdist "\nInput Scale rate :"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq i 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (repeat (sslength ss)<br/>&nbsp;(setq ent (entget (ssname ss i))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i (1+ i)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ssc (* (cdr (assoc 40 ent)) sc)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ent (subst<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 40 ssc)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (assoc 40 ent)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ent<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;(entmod ent)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)</font></p>

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

<p>给个出错的DWG图</p>

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

<font size="5">谢谢<font face="Verdana" color="#da2549"><b>ZZXXQQ</b></font>版主以及<font face="Verdana" color="#61b713"><b>crazylsp</b></font>大侠的关注，我上传一个DWG，这个DWG中的图块就无法缩放，我用的是2004。</font>

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



;;; 图块基点放大 明经 ZZXXQQ 2008.8.31--2010.9.28
(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))
   (if (assoc 40 ent)
    (setq ssc (* (cdr(assoc 40 ent)) sc)
          ent (subst (cons 40 ssc) (assoc 40 ent) ent))
    (setq ssc1 (* (cdr(assoc 41 ent)) sc)
          ssc2 (* (cdr(assoc 42 ent)) sc)
          ssc3 (* (cdr(assoc 43 ent)) sc)
          ent (subst (cons 41 ssc1) (assoc 41 ent) ent)
          ent (subst (cons 42 ssc2) (assoc 42 ent) ent)
          ent (subst (cons 43 ssc3) (assoc 43 ent) ent))
   )
   (entmod ent)
)
))
(princ)
)

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

<font size="5">谢谢<font face="Verdana" color="#da2549"><b>ZZXXQQ</b></font>版主以及<font face="Verdana" color="#da2549"><strong>xyp1964</strong><font color="#000000">版主，<font face="Verdana" color="#da2549"><b>ZZXXQQ</b></font>版主的修改后的程序非常好用，再次感谢！<font face="Verdana" color="#da2549"><b>ZZXXQQ</b></font>版主是个热心人！</font></font></font>

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

ZZXXQQ 发表于 2010-9-28 22:22 static/image/common/back.gif


请问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 编辑

我也需要了解!不知道有谁会把楼主的程序写进窗口里?
页: [1] 2
查看完整版本: [求助]图块基点放大[ZZXXQQ版主的程序]