【函数】pickset:zoom 缩放选择集ss到当前视口,支持在 DCL中控制绘图区的显示

vitalgg

pickset:zoom

"缩放选择集ss到当前视口.

显示的屏占比可由设置选项 @:magnify 控制，
其值越大，放大率越低。默认满屏"


*ACAD* 就是当前的 cad application 对象。可自行修改。
安装了@lisp的CAD无需修改可直接使用该函数，并进行设置显示的大小。

在vscode 中安装了 @lisp函数库扩展的，可以直接查看函数说明和语法。

本函数源码：
https://gitee.com/atlisp/atlisp- ... rc/pickset/zoom.lsp

@lisp函数库
https://gitee.com/atlisp/atlisp-lib


函数库问题讨论，建议及意见交流区
https://gitee.com/atlisp/atlisp-lib/issues

@lisp开源项目
https://gitee.com/atlisp

1. (defun pickset:zoom (ss / box)
   
2.   "缩放选择集ss到当前视口.
   
3. 显示的屏占比可由设置选项 @:magnify 控制，
   
4. 其值越大，放大率越低。默认满屏"
   
5.   ""
   
6.   "(pickset:zoom (ssget))"
   
7.   (setq box (pickset:getbox ss 0))
   
8.   (vla-ZoomCenter
   
9.    *ACAD*
   
10.    (apply 'vlax-3D-point (point:centroid box))
    
11.    (* (if (and (setq magnify (@:get-config '@:magnify))
    
12.          (> magnify 0.01))
    
13.     magnify
    
14.   1)
    
15.       (/
    
16.        (apply
    
17.   'max
    
18.   (mapcar
    
19.          '/
    
20.          (mapcar '- (cadr box) (car box))
    
21.          (getvar "SCREENSIZE")
    
22.    ))
    
23.        0.001
    
24.        ))))

(defun pickset:zoom (ss / box)<br />   "缩放选择集ss到当前视口.<br /> 显示的屏占比可由设置选项 @:magnify 控制，<br /> 其值越大，放大率越低。默认满屏"<br />   ""<br />   "(pickset:zoom (ssget))"<br />   (setq box (pickset:getbox ss 0))<br />   (vla-ZoomCenter <br />    *ACAD*<br />    (apply 'vlax-3D-point (point:centroid box))<br />    (* (if (and (setq magnify (@:get-config '@:magnify))<br />          (> magnify 0.01))<br />     magnify<br />   1)<br />       (/ <br />        (apply <br />   'max<br />   (mapcar <br />          '/<br />          (mapcar '- (cadr box) (car box))<br />          (getvar "SCREENSIZE")<br />    ))<br />        0.001<br />        ))))

用法：



源码：



VScode 语法提示





更多函数见 @lisp 函数库:  
https://gitee.com/atlisp/atlisp-lib

开源可查，更可直接调用。不再需要自己一个一个地组织。

中国梦

谢谢楼主分享