局部放大—山寨版 v1.4.3（2024-8-3更新）

konoko

感谢分享！

yegucheng0129

不错的程序,感谢分享

macos101

感谢分享，学习学习

13763815647

给力，很好用，感谢

蓝盾设计

群主：为啥我的CAD打开1.43版就假死，只能强行关闭CAD

寒潮大冬瓜

感谢楼主大侠分享！
2024-08-03更新：支持中望，浩辰
(defun fy_zoom ;缩放对象,要返回上一个的视图,需两次(vl-cmdf "zoom" "p")
        (ss sc / two_pt p1 p2 app)
        (if ss
                (progn
                        (vl-load-com)
                        (setq two_pt (fy_Getbox ss))
                        (setq p1 (car two_pt))
                        (setq p2 (cadr two_pt))
                        (setq app (vla-get-Application (vla-get-activedocument (vlax-get-acad-object))))
                        (vla-ZoomWindow app (vlax-3d-point p1) (vlax-3d-point p2))
                        (vla-ZoomScaled app sc acZoomScaledRelative);函数参数不正确
                )
        )
        (princ)
)
辛苦修正一下？