更改视口位置（x a

alokmpatel · 发表于 2022-7-6 06:08:39

大家好，
我发现了关于改变某个视口的高度和宽度的线索。

我的现状：
我有3个视口。
我只希望在某个特定坐标（例如x=100，y=200）处有一个视口
其余两个视口位于其他坐标（例如x=1000，y=2000）

只需选择第一个视口并编辑其视口属性的“中心X”和“中心Y”，即可手动实现。

如果有人知道，请帮助我。。。

阿洛克

Lee Mac · 发表于 2022-7-6 06:36:40

欢迎来到CADTutor Alok

您是指视口目标（即通过视口查看的对象）还是视口对象本身在图纸空间中的位置？

如果您指的是目标，则首先需要存储当前视口比例（customscale属性），以便稍后重置；然后需要激活视口（mspace属性），并将其设置为活动的图纸空间视口（activeviewport属性）。

要更改目标，可以使用具有任意比例因子的zoomcenter方法（因为程序稍后可以恢复视口比例）。然后，可以通过customscale属性恢复存储的视口比例，并使用mspace属性停用视口。

alokmpatel · 发表于 2022-7-6 06:58:53

非常感谢李，
请回复您的实例。

但我对VBA编程不太熟悉。
当我在CADTutor经历了很多磨难时，我只有一些想法。

下面的代码可以很好地设置欲望目标（x，y）、比例、高度和宽度。

子PVPortManipulation（）

'遍历每个图纸空间布局的视口。
'将pviewports高度更改为6
'将其更改为SE Iso视图
'将每个paperspace vport向右移动2个单位。
'设置vport比例
'修改目标

Dim实体作为身份
Dim VPcenter作为变型
将PVport设置为AcadPViewport
作为AcadLayout的Dim objLayout
Dim dblDir（0到2）为双精度
Dim i为整数
对于本图纸中的每个对象布局。布局
如果目标布局。然后命名为“Model”
此图纸。ActiveLayout=objLayout
此图纸。MSpace=假
对于i=1到objLayout。块计数-1'避免主纸面空间PViewport
设置实体=对象布局。块项目（i）
如果实体类型为AcadPViewport，则
设置PVport=实体
PV端口。显示True
PV端口。高度=10
PV端口。宽度=50
dblDir（0）=-1#：dblDir（1）=-1#：dblDir（2）=1#：
PV端口。方向=dblDir
VPcenter=PVport。居中
VPcenter（0）=100#
VPcenter（1）=-50#
PV端口。中心=VP中心
PV端口。标准比例=acVp1\U 10
dblDir（0）=-6
PV端口。目标=dblDir
PV端口。使现代化
如果结束
下一个
此图纸。Regen Acall视口
如果结束
下一个
末端接头

但我将如何设置不同的视口属性。
上面的代码正在运行，但它正在将所有视口目标和所有其他属性更改为相同。

谢谢
阿洛克：）

alokmpatel · 发表于 2022-7-6 07:23:40

有可能吗？？？？

它会帮我很多。。。

[编程交流] 更改视口位置（x a

发表回复

精选推荐