(XD::Doc:SafeZoom)安全的ZOOM

Lispboy

1. (defun XD::Doc:SafeZoom (e / box box1 h h1 pts tf x)
   
2.   (setq tf (type e))
   
3.   (cond
   
4.     ((or (= 'ENAME tf)(= 'PICKSET tf))
   
5.       (setq pts (xdrx_entity_box e))
   
6.     )
   
7.     ((= 'LIST tf)
   
8.       (setq pts e)
   
9.     )
   
10.   )
    
11.   (setq box (xdrx_points_box pts t)
    
12.         h (getvar "viewsize")
    
13.         h1 (- (cadr (last box)) (cadr (car box)))
    
14.   )
    
15.   (if (or
    
16.         (XD::DOC:IsPntsOutView pts)
    
17.         (< (distance (car box) (last box)) (/ h 6.0))
    
18.       )
    
19.     (progn
    
20.       (setq box1 (xdrx_points_offset (/ h1 10.0) box))
    
21.       (xdrx_document_zoomwindow (trans (car box1) 0 1) (trans
    
22.                                                               (caddr box1) 0
    
23.                                                               1
    
24.                                                        )
    
25.       )      t
    
26.     )
    
27.      nil
    
28.   )
    
29. )

(defun XD::Doc:SafeZoom (e / box box1 h h1 pts tf x)<br />   (setq tf (type e))<br />   (cond<br />     ((or (= 'ENAME tf)(= 'PICKSET tf))<br />       (setq pts (xdrx_entity_box e))<br />     )<br />     ((= 'LIST tf)<br />       (setq pts e)<br />     )<br />   )<br />   (setq box (xdrx_points_box pts t)<br />         h (getvar "viewsize")<br />         h1 (- (cadr (last box)) (cadr (car box)))<br />   )<br />   (if (or<br />         (XD::DOC:IsPntsOutView pts)<br />         (< (distance (car box) (last box)) (/ h 6.0))<br />       )<br />     (progn<br />       (setq box1 (xdrx_points_offset (/ h1 10.0) box))<br />       (xdrx_document_zoomwindow (trans (car box1) 0 1) (trans<br />                                                               (caddr box1) 0<br />                                                               1<br />                                                        )<br />       )      t<br />     )<br />      nil<br />   )<br /> )

csharp

getview4points 是 UCS ，entity_box 是 WCS，两者需要统一

csharp

应该返回 bool , 缩放了返回 T，后面用 zzoomPrevious, 没有缩放的时候结束不用处理

Lispboy

csharp 发表于 2016-5-10 15:09
应该返回 bool , 缩放了返回 T，后面用 zzoomPrevious, 没有缩放的时候结束不用处理

听你的，修改了，ZOOM后返回T，否则NIL。 这个函数可以在UCS下用的，里面考虑了统一。

houxianuong

我先运行了(setq e (car (xdrx_entsel "\n请拾取裁剪边界<退出>:" '((0 . "lwpolyline,circle,ellipse,spline")))))
得到的结果正常，   显示，请拾取裁剪边界<退出>:<图元名: -bc0e80>   
再运行 (XD::DOC:SafeZoom e)，就直接nil了，这是为什么

newer

houxianuong 发表于 2016-8-30 09:17
我先运行了(setq e (car (xdrx_entsel "\n请拾取裁剪边界:" '((0 . "lwpolyline,circle,ellipse,spline"))) ...

去重新下载下 裁剪插件的代码。

liuyj

发现个问题，如果是一条水平直线段，得出来的h1是0，(setq box1 (xdrx_points_offset (/ h1 10.0) box))这一句就出错了，是不是用包围盒对角线的距离好一些

liuyj

事实上，(setq box (xdrx_points_box pts t))这一句时就得不到返回值了