不关闭dcl对话框无法执行zoom命令吗？

sailorcwx

比例缩放

1.相对绘图边界

(vla-zoomscaled (vlax-get-acad-object) (getreal) acZoomScaledAbsolute)

2.相对当前视口

(vla-zoomscaled (vlax-get-acad-object) (getreal) acZoomScaledRelative)

3.相对图纸空间单位

(vla-zoomscaled (vlax-get-acad-object) (getreal) acZoomScaledRelativePSpace)

sailorcwx

(setq LowerLeft (getpoint "\n左下角")
      UpperRight (getcorner LowerLeft "\n右上角")
)
(vla-ZoomWindow (vlax-get-acad-object) (vlax-3d-point LowerLeft) (vlax-3d-point UpperRight))

sailorcwx

想实现对象缩放，可以使用vla-GetBoundingBox求出两个对角点，然后用vla-ZoomWindow

高级用户

 sailorcwx

多谢了，那(command "zoom" "P")如何用vla写呢？

为什么我下载的函数库里没有vla-zoom的介绍

sailorcwx

看10楼