（7月8日再次更新）[求助]：有没有一个工具将图中任何实体按其中心位置放大缩小

lsy · 发表于 2003-7-5 19:40:50

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

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

×

可有这样一个工具将图中实体按其中心位置放大缩小，比如多个小圆环或多个任意多边形。

XDSoft · 发表于 2003-7-5 20:25:38

最初由 lsy 发布
[B]可有这样一个工具将图中实体按其中心位置放大缩小，比如多个小圆环或多个任意多边形。 [/B]

你先试试晓东工具箱的“自由缩放”。

稍后，我给你写一个你要求的批量处理的，最小单位是一个实体的这样的工具。

XDSoft · 发表于 2003-7-5 21:18:07

最初由 lsy 发布
[B]可有这样一个工具将图中实体按其中心位置放大缩小，比如多个小圆环或多个任意多边形。 [/B]

程序写好了，请试用。

下载下面附件，解开压缩后运行，目录选晓东工具箱安装目录，自动更新晓东工具箱，启动晓东工具箱后，点“菜单刷新”图标按钮，就可以使用新的菜单了。

该附件包括了晓东工具箱0.27 正式版以后的所有更新文件。

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

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

[font=courier]
;|
功能：批量按照指定的基点方式，实体自身缩放
命令：XDTB_ObjSclByPnt
|;
(defun c:XDTB_EntSclByPnt (/ scl tf mat mats e box base cen)
(if (not $xdtb_global_sclbypnt)
(setq $xdtb_global_sclbypnt "0")
)
(if (not $xdtb_global_scale)
(setq $xdtb_global_scale 1.0)
)
(if (not (setq scl (getreal (strcat "\n请输入缩放比例<" (rtos $xdtb_global_scale
2 2
) ">:"
)
)
)
)
(setq scl $xdtb_global_scale)
)
(if (/= scl 1.0)
(progn
(setq $xdtb_global_scale scl)
(initget "0 1 2 3 4")
(if (not (setq tf (getkword "\n请选择基点类型[0-中心 /1-左下 /2-右下 /3-右上 /4-左上]<0>:")))
(setq tf "0")
)
(initget 6)
(setq mat (xdrx_matrix_identity 3))
(while (and
(progn
(prompt "\r请选取要缩放的实体<结束>:")
t
)
(setq ss (ssget))
)
(xdrx_begin)
(xdrx_ucson)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq box (xdrx_entity_box e)
cen (xdrx_midp (car box) (caddr box))
box (cons cen box)
base (nth (atoi tf) box)
mats (xdrx_matrix_setScale mat scl base)
)
(xdrx_entity_transform e mats)
)
(xdrx_ucsoff)
(xdrx_end)
)
)
)
(princ)
)
[/font]

[font=courier] 
;| 
   功能：批量按照指定的基点方式，实体自身缩放 
   命令：XDTB_ObjSclByPnt 
|; 
(defun c:XDTB_EntSclByPnt (/ scl tf mat mats e box base cen) 
  (if (not $xdtb_global_sclbypnt) 
    (setq $xdtb_global_sclbypnt "0") 
  ) 
  (if (not $xdtb_global_scale) 
    (setq $xdtb_global_scale 1.0) 
  ) 
  (if (not (setq scl (getreal (strcat "\n请输入缩放比例<" (rtos $xdtb_global_scale 
                                                                2 2 
                                                          ) ">:" 
                              ) 
                     ) 
           ) 
      ) 
    (setq scl $xdtb_global_scale) 
  ) 
  (if (/= scl 1.0) 
    (progn 
      (setq $xdtb_global_scale scl) 
      (initget "0 1 2 3 4") 
      (if (not (setq tf (getkword "\n请选择基点类型[0-中心 /1-左下 /2-右下 /3-右上 /4-左上]<0>:"))) 
        (setq tf "0") 
      ) 
      (initget 6) 
      (setq mat (xdrx_matrix_identity 3)) 
      (while (and 
               (progn 
                 (prompt "\r请选取要缩放的实体<结束>:") 
                 t 
               ) 
               (setq ss (ssget)) 
             ) 
        (xdrx_begin) 
        (xdrx_ucson) 
        (xdrx_setsstodb ss 0) 
        (while (setq e (xdrx_getentdata 0)) 
          (setq box (xdrx_entity_box e) 
                cen (xdrx_midp (car box) (caddr box)) 
                box (cons cen box) 
                base (nth (atoi tf) box) 
                mats (xdrx_matrix_setScale mat scl base) 
          ) 
          (xdrx_entity_transform e mats) 
        ) 
        (xdrx_ucsoff) 
        (xdrx_end) 
      ) 
    ) 
  ) 
  (princ) 
) 
[/font]

最新更新补丁请到下面连接下载

http://www.xdcad.net/forum/showt ... d=353696#post353696

yy225cn · 发表于 2003-7-5 21:29:55

最初由 XDSoft 发布
[B]该附件包括了晓东工具箱0.27 正式版以后的所有更新文件。[/B]

东哥，晓东工具箱0.28 正式版什么时候发啊，QF说安装程序老早就写好了。

xianxl · 发表于 2003-7-6 13:58:59

最初由 XDSoft 发布
[B]下载下面附件，解开压缩后运行，目录选晓东工具箱安装目录，自动更新晓东工具箱，启动晓东工具箱后，点“菜单刷新”图标按钮，就可以使用新的菜单了[/B]

太好了，晓东终于把0。27版以后的补丁集合起来了，便于大家使用工具箱的新功能。可我按你的方法做了菜单还是老的，不知道问题出在哪里？请指教！

eachy · 发表于 2003-7-6 14:44:37

更新前退出CAD，完成后进入CAD，点“更新晓东工具箱菜单”按钮或在命令行输入 xd_upmenu

xianxl · 发表于 2003-7-6 16:32:06

最初由 eachy 发布
[B]更新前退出CAD，完成后进入CAD，点“更新晓东工具箱菜单”按钮或在命令行输入 xd_upmenu [/B]

我试了还是不行，急急急！

XDSoft · 发表于 2003-7-6 16:34:55

最初由 xianxl 发布
[B]

我试了还是不行，急急急！ [/B]

首先，你用“菜单刷新”按钮更新菜单了吗？如果更新过，那么：

你在COMMAND状态下，输入：

(findfile "xdsoft.mnu")

看看结果，目录路径是否是晓东工具箱的SYS目录下，如果不是，说明其他搜索目录前面的菜单起作用了，新的菜单没有作用，你把查看结果目录里面的XDSOFT.M* 删除掉。再更新菜单。

xianxl · 发表于 2003-7-6 16:44:31

最初由 XDSoft 发布
[B]

首先，你用“菜单刷新”按钮更新菜单了吗？如果更新过，那么：

你在COMMAND状态下，输入：

(findfile "xdsoft.mnu")
... [/B]

我用过菜单更新按纽，也试过在命令行输入 xd_upmenu ，现在又用你的办法查过目录路径是在晓东工具箱的SYS目录下，可菜单就是无法更新。我刚才甚至删除后重装过了也还是没解决问题。不知道其他人有没有类似的问题发生。

XDSoft · 发表于 2003-7-6 16:50:52

最初由 xianxl 发布
[B]

我用过菜单更新按纽?.. [/B]

你查看下sys目录下面的xdsoft.mnu文件，看看是否和压缩文件里面的日期和大小一样？

如果一样，你可以用论坛置顶的手工加载工具箱方法，加载下菜单试试。

xianxl · 发表于 2003-7-6 17:22:53

最初由 XDSoft 发布
[B]你查看下sys目录下面的xdsoft.mnu文件，看看是否和压缩文件里面的日期和大小一样？

如果一样，你可以用论坛置顶的手工加载工... [/B]

我查过了，安装目录下的菜单文件的日期已经是7月5日的，但压缩文件是个执行文件，看不到其中菜单文件的日期啊。置顶的帖子我也看了，没有找到手工加载的方法，是不是就是用在命令行输入 xd_upmenu 。可我也试过了。真急人！

XDSoft · 发表于 2003-7-6 21:07:54

最初由 xianxl 发布
[B]

我查过了，安装目录下的菜... [/B]

1. (findfile "xdsoft.mns") 你看看路径是不是sys目录下

2. 你删除sys目录下的xdsoft.mns, xdsoft.mnc 然后进入工具箱，更新菜单

xianxl · 发表于 2003-7-6 21:17:27

啊！路径在LISP下呢！是不是这个原因导致的？怎么LISP下和SYS下都有菜单文件呢？

XDSoft · 发表于 2003-7-6 21:25:37

最初由 xianxl 发布
[B]啊！路径在LISP下呢！是不是这个原因导致的？怎么LISP下和SYS下都有菜单文件呢？ [/B]

就是这个原因，赶快删除LISP目录下的xdsoft.*, 然后更新菜单就可以了。

xianxl · 发表于 2003-7-6 21:29:16

终于搞定！我再次卸载并删除了工具箱的安装目录，重新安装并加载新菜单，最后还是需手工键入命令xd_upmenu才成功了！

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

（7月8日再次更新）[求助]：有没有一个工具将图中任何实体按其中心位置放大缩小

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

相关帖子

Re: [求助]：有没有一个工具将图中任何实体按其中心位置放大缩小

Re: [求助]：有没有一个工具将图中任何实体按其中心位置放大缩小

Re: Re: [求助]：有没有一个工具将图中任何实体按其中心位置放大缩小

Re: Re: [求助]：有没有一个工具将图中任何实体按其中心位置放大缩小

浏览过的版块