（完成）[求助]：能不能实现这个操作？

guobaoming · 发表于 2002-12-2 15:04:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

对一个图中的多个对象进行同时缩放，缩放比例相同，但希望缩放后每个对象还在各自的原位置。

megranate · 发表于 2002-12-2 15:08:21

多个不同的对象进行缩放吗？好象有点麻烦

XDSoft · 发表于 2002-12-2 15:09:31

最初由 guobaoming 发布
[B]对一个图中的多个对象进行同时缩放，缩放比例相同，但希望缩放后每个对象还在各自的原位置。 [/B]

如果是块，晓东工具箱已经提供工具了。

如果不是块，任意实体，那么位置可能不好定义（什么是不变），如果你能给出不变的位置的规则，就能给你写出程序，你可以试试晓东工具箱的－自由缩放，提供了最大程度的灵活性。

下载地址：http://www.xdcad.net/tech/XDTB_XSCALE.swf

<embed src=http://www.xdcad.net/tech/XDTB_XSCALE.swf quality=high width=532 height=482 loop=true type="application/x-shockwave-flash">
</embed>

XDSoft · 发表于 2002-12-2 15:22:48

晓东工具箱－图块－图块缩放，可以处理多个块，保持位置自身缩放

下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_xscale.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_xscale.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

guobaoming · 发表于 2002-12-2 15:43:31

首先，谢谢晓东的热心帮助。我缩放的是多个实体，说白了就是建筑图中的轴线编号，有几十个。看来我只能同时放大后，再逐个移动了。

XDSoft · 发表于 2002-12-2 15:45:39

最初由 guobaoming 发布
[B]首先，谢谢晓东的热心帮助。我缩放的是多个实体，说白了就是建筑图中的轴线编号，有几十个。看来我只能同时放大后，再逐个移动了。 [/B]

建筑轴线符号，你的应该是块吧？一般建筑软件都用块的。

如果是，那么上面那个演示，你就可以用了。

这工具最初，就是根据朋友要求，缩放轴号，编写的。

另外，晓东工具箱单独提供了轴号缩放的工具，不仅仅是位置不变，而且轴符和界线的交点位置也不变。

晚上我做个教学上来吧。

XDSoft · 发表于 2002-12-2 18:25:02

重新写了“轴符缩放”工具，该工具可以让多个轴符块保持和界线端点位置不变，自身缩放。

下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_axiscscl.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_axiscscl.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

程序如下：大家把它存一个LISP文件，在晓东工具箱环境下加载，用命令XDTB_AxisCScl

[font=courier new]
;|
命令：XDTB_AxisCScl
功能：保持位置的轴号缩放
说明：轴号图层AXIS
|;
(defun c:XDTB_AxisCScl (/ scl scl1 tf ss m0 e pj ang pj1 mS ss1 p1 p2 nearpt)
(initget 6)
(if (setq scl (getreal "\n请输入缩放比例<退出>:"))
(progn
(prompt "\n请选取缩放的轴符<全选>:")
(if (not (setq ss (ssget '((8 . "AXIS") (0 . "INSERT")))))
(progn
(xdrx_drawing_viewsave)
(setq tf (xdrx_drawing_zoome))
(setq ss (ssget "x" '((8 . "AXIS") (0 . "INSERT"))))
)
)
(xdrx_setsstodb ss 0)
(setq m0 (xdrx_matrix_identity 3))
(while (setq e (xdrx_getentdata 0))
(setq pj (xdrx_getentdxf 10)
scl1 (xdrx_getentdxf 41)
box (xdrx_entity_box e)
box (apply 'xdrx_pointsoffset (cons (/ scl1 8) box))
box (reverse (cons (car box) (reverse box)))
ss1 (ssget "f" box '((0 . "line")(8 . "AXIS")))
)
(if (and ss1
(= 1 (sslength ss1))
(setq e1 (ssname ss1 0))
(setq pj1 (xdrx_getinters box e1))
)
(progn
(xdrx_setenttodb e1)
(setq p1 (xdrx_getentdxf 10)
p2 (xdrx_getentdxf 11)
nearpt (xdrx_getnearpt (car pj1) p1 p2)
pj (car nearpt)
)
)
)
(setq mS (xdrx_matrix_setScale m0 scl pj))
(xdrx_entity_transForm e ms)
)
(if tf
(xdrx_drawing_viewres)
)
)
)
(princ)
)
[/font]

[font=courier new] 
;| 
   命令：XDTB_AxisCScl 
   功能：保持位置的轴号缩放 
   说明：轴号图层AXIS 
|; 
(defun c:XDTB_AxisCScl (/ scl scl1 tf ss m0 e pj ang pj1 mS ss1 p1 p2 nearpt) 
  (initget 6) 
  (if (setq scl (getreal "\n请输入缩放比例<退出>:")) 
    (progn 
      (prompt "\n请选取缩放的轴符<全选>:") 
      (if (not (setq ss (ssget '((8 . "AXIS") (0 . "INSERT"))))) 
        (progn 
          (xdrx_drawing_viewsave) 
          (setq tf (xdrx_drawing_zoome)) 
          (setq ss (ssget "x" '((8 . "AXIS") (0 . "INSERT")))) 
        ) 
      ) 
      (xdrx_setsstodb ss 0) 
      (setq m0 (xdrx_matrix_identity 3)) 
      (while (setq e (xdrx_getentdata 0)) 
        (setq pj (xdrx_getentdxf 10) 
              scl1 (xdrx_getentdxf 41) 
              box (xdrx_entity_box e) 
              box (apply 'xdrx_pointsoffset (cons (/ scl1 8) box)) 
              box (reverse (cons (car box) (reverse box))) 
              ss1 (ssget "f" box '((0 . "line")(8 . "AXIS"))) 
        ) 
        (if (and ss1 
              (= 1 (sslength ss1)) 
              (setq e1 (ssname ss1 0)) 
              (setq pj1 (xdrx_getinters box e1)) 
            ) 
           (progn 
              (xdrx_setenttodb e1) 
              (setq p1 (xdrx_getentdxf 10) 
                    p2 (xdrx_getentdxf 11) 
                    nearpt (xdrx_getnearpt (car pj1) p1 p2) 
                    pj (car nearpt) 
              ) 
           ) 
        ) 
        (setq mS (xdrx_matrix_setScale m0 scl pj)) 
        (xdrx_entity_transForm e ms) 
      ) 
      (if tf 
        (xdrx_drawing_viewres) 
      ) 
    ) 
  ) 
  (princ) 
) 
[/font]

wzy306 · 发表于 2002-12-2 21:59:53

现在才知道有这好东西.以前都不知道还要移来移去的真麻烦.谢谢.

znyjszx · 发表于 2002-12-2 22:04:26

可以先改变图形的大小，再重新定义块。

roger_zw · 发表于 2002-12-7 00:49:33

如果不是块呢，好想就不行了把!

XDSoft · 发表于 2002-12-7 00:52:05

最初由 roger_zw 发布
[B]如果不是块呢，好想就不行了把! [/B]

那你能说出哪些实体是一起的吗？

chenlei · 发表于 2002-12-8 11:09:35

改轴号文字大小吗，一步到位改变文字大小而不改位置
最方便的方法是：
CAD2002工具－－对正文字，使方字中间对正（有时也用中心或中下，根据需要灵活使用）。
CAD2002工具－－缩放方字。
这方法还用在改出图比例时的文字大小调整。

chenhang · 发表于 2003-1-13 23:30:22

最初由 guobaoming 发布
[B]首先，谢谢晓东的热心帮助。我缩放的是多个实体，说白了就是建筑图中的轴线编号，有几十个。看来我只能同时放大后，再逐个移动了。 [/B]

轴线编号如果是一样大的话，你可以过滤出要改的编号。然后用特性改半径就可以了。

zxdvip · 发表于 2005-10-23 20:57:59

我一般用超级刷子改轴号大小

老人小孩 · 发表于 2005-10-23 22:18:38

晓东老大，2006版本的晓东工具箱什么时候出炉？我们都很着急等候用呢。

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

（完成）[求助]：能不能实现这个操作？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：能不能实现这个操作？

晓东工具箱－图块－图块缩放，可以处理多个块，保持位置自身缩放