请高手帮写一个缩放到矩形的代码

清风明月10 · 发表于 2013-10-24 15:57:07

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

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

×

请高手帮写一个缩放到矩形的代码
我有一个设想，就是在A图层中，画N个方框。这些步骤是手工做的。
再写代码，搜索到这N个方框，将屏幕缩放到每个方框的大小，有几个就缩放几次。则如果看到了我需要的区域，我退出插件运行，则屏幕就到达了我的目的位置。
这样就很容易找到自己的目的位置了。至少不用太费时间和手脚。
希望是真代码，不要是伪代码。

st788796 · 发表于 2013-10-24 17:39:43

不知道什么算伪代码?

newer · 发表于 2013-10-24 17:40:17

啥叫“伪代码”？

清风明月10 · 发表于 2013-10-24 17:54:15

就是利用了晓东等其它插件中的自定义函数的代码。它不是独立的，没有其它插件它不能正常运行

newer · 发表于 2013-10-24 18:00:06

清风明月10 发表于 2013-10-24 17:54
就是利用了晓东等其它插件中的自定义函数的代码。它不是独立的，没有其它插件它不能正常运行

那我“闪了”。现在我不用API，还真不爱写东西了，没那么多时间去重新写底层东西。有现成的，重写也是浪费生命。{:soso_e113:}

清风明月10 · 发表于 2013-10-24 18:03:36

已经有人帮写好了，请问明经
请高手帮写一个缩放到矩形的代码-AutoLISP/Visual LISP 编程技术-CAD论坛-明经CAD社区 - Powered by Discuz!
http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid614906

st788796 · 发表于 2013-10-24 18:31:20

同感，虽然能写，但真不愿费时费力

Free-Lancer · 发表于 2013-10-24 18:57:14

清风明月10 发表于 2013-10-24 18:03
已经有人帮写好了，请问明经
请高手帮写一个缩放到矩形的代码-AutoLISP/Visual LISP 编程技术-CAD论坛-明 ...

用那么复杂吗？不知道哪个版本起，Zoom 可以这样用

(defun c:tt (/ ss sl i e)
(if (setq ss (ssget))
(progn
(setq sl (sslength ss)
i -1
)
(repeat sl
(setq e (ssname ss (setq i (1+ i))))
(vl-cmdf "zoom" "o" e "")
(if (/= i (1- sl))
(progn (princ "\nNext Entity...")
(vl-cmdf pause)
)
(command)
)
)
)
)
(princ)
)

清风明月10 · 发表于 2013-10-24 19:12:51

本帖最后由清风明月10 于 2013-10-24 19:18 编辑

我试了，没有效果啊

Free-Lancer · 发表于 2013-10-24 20:23:16

清风明月10 发表于 2013-10-24 19:12
我试了，没有效果啊

AutoCAD 2008
命令: z ZOOM
指定窗口的角点，输入比例因子 (nX 或 nXP)，或者
[全部(A)/中心(C)/动态(D)/范围(E)/上一个(P)/比例(S)/窗口(W)/对象(O)] <实时>:

:zoom（或 'zoom，用于透明使用）
在透视图中，ZOOM 将显示 3DZOOM 提示。
注意在使用 VPOINT 或 DVIEW 命令时，或正在使用另一个 ZOOM、PAN 或 VIEW 命令时，不能透明使用 ZOOM 命令。

指定窗口角点，输入比例因子 (nX 或 nXP)，或

[全部(A)/中心(C)/动态(D)/范围(E)/上一个(P)/比例(S)/窗口(W)/对象(O)] <实时>:

全部在当前视口中缩放显示整个图形。在平面视图中，所有图形将被缩放到栅格界限和当前范围两者中较大的区域中。在三维视图中，“全部缩放”选项与“范围缩放”选项等效。即使图形超出了栅格界限也能显示所有对象。

登录/注册后可看大图

在本示例中，LIMITS 大于图形的范围。
因为它始终重生成图形，所以无法透明地使用“全部缩放”选项。

中心缩放显示由中心点和放大比例（或高度）所定义的窗口。高度值较小时增加放大比例。高度值较大时减小放大比例。

指定中心点: 指定点 (1)

输入比例或高度 <当前>: 输入值或按 ENTER 键

登录/注册后可看大图

动态缩放显示在视图框中的部分图形。视图框表示视口，可以改变它的大小，或在图形中移动。移动视图框或调整它的大小，将其中的图像平移或缩放，以充满整个视口。

登录/注册后可看大图

首先显示平移视图框。将其拖动到所需位置并单击，继而显示缩放视图框。调整其大小然后按 ENTER 键进行缩放，或单击以返回平移视图框。
按 ENTER 键以使用当前视图框中的区域填充当前视口。

范围缩放以显示图形范围并使所有对象最大显示。

登录/注册后可看大图

上一个缩放显示上一个视图。最多可恢复此前的 10 个视图。

登录/注册后可看大图

注意如果更改视觉样式，视图将被更改。如果输入 ZOOM Previous，它将恢复上一个不同着色的视图，而不是不同缩放的视图。

比例以指定的比例因子缩放显示。

输入比例因子 (nX 或 nXP): 指定值

输入的值后面跟着 x，根据当前视图指定比例。例如，输入 .5x 使屏幕上的每个对象显示为原大小的二分之一。

登录/注册后可看大图

输入值并后跟 xp，指定相对于图纸空间单位的比例。例如，输入 .5xp 以图纸空间单位的二分之一显示模型空间。创建每个视口以不同的比例显示对象的布局。
输入值，指定相对于图形界限的比例。（此选项很少用。）例如，如果缩放到图形界限，则输入 2 将以对象原来尺寸的两倍显示对象。

登录/注册后可看大图

窗口缩放显示由两个角点定义的矩形窗口框定的区域。

指定第一个角点: 指定点 (1)

指定对角点: 指定点 (2)

登录/注册后可看大图

对象缩放以便尽可能大地显示一个或多个选定的对象并使其位于绘图区域的中心。可以在启动 ZOOM 命令前后选择对象。

实时利用定点设备，在逻辑范围内交互缩放。

按 ESC 或 ENTER 键退出，或单击鼠标右键显示快捷菜单。

光标将变为带有加号 (+) 和减号 (-) 的放大镜。关于实时缩放时可用选项的说明，请参见“缩放”快捷菜单。

登录/注册后可看大图

当前图形区域用于确定缩放因子。ZOOM 以移动窗口高度的一半距离表示缩放比例为 100%。在窗口的中点按住拾取键并垂直移动到窗口顶部则放大 100%。反之，在窗口的中点按住拾取键并垂直向下移动到窗口底部则缩小 100%。
注意若将光标置于窗口底部，按住拾取键并垂直向上移动到窗口顶部则放大比例为 200%。

当达到放大极限时光标的加号消失，这表示不能再放大；当达到缩小极限时光标的减号消失，这表示不能再缩小。
松开拾取键时缩放终止。可以在松开拾取键后将光标移动到图形的另一个位置，然后再按住拾取键便可从该位置继续缩放显示。
要在新的位置上退出缩放，请按 ENTER 键或 ESC 键。

清风明月10 · 发表于 2013-10-25 08:51:09

可能是我的系统变量有问题，CAD软件不很正常

19622928 · 发表于 2013-10-25 09:54:18

清风明月10 发表于 2013-10-25 08:51
可能是我的系统变量有问题，CAD软件不很正常

那请用正版软件！

ysq101 · 发表于 2013-10-25 11:03:04

newer 发表于 2013-10-24 18:00
那我“闪了”。现在我不用API，还真不爱写东西了，没那么多时间去重新写底层东西。有现成的，重写也是浪 ...

我想问一下..XD--API有时间限制吗???
为什么我的加栽了会提示过期 ?? (以前的旧版本)

st788796 · 发表于 2013-10-25 11:10:10

ysq101 发表于 2013-10-25 11:03
我想问一下..XD--API有时间限制吗???
为什么我的加栽了会提示过期 ?? (以前的旧版本)

过期了赶紧过来升级啊！以前 3.0 工具箱里的 API 现在还可以用，不过和现在的功能是不可比拟了。

ysq101 · 发表于 2013-10-25 18:08:02

st788796 发表于 2013-10-25 11:10
过期了赶紧过来升级啊！以前 3.0 工具箱里的 API 现在还可以用，不过和现在的功能是不可比拟了。

是有时间限制还是我下了测试版???
可以随时上网倒没事..最怕就是不能及时更新

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

[求助] 请高手帮写一个缩放到矩形的代码

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

点评

点评

点评

点评

点评

点评

点评

点评