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

Lispboy · 发表于 2016-5-10 12:48:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2016-5-10 15:13 编辑

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

csharp · 发表于 2016-5-10 15:03:39

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

csharp · 发表于 2016-5-10 15:09:28

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

Lispboy · 发表于 2016-5-10 15:15:48

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

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

houxianuong · 发表于 2016-8-30 09:17:34

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

newer · 发表于 2016-8-31 18:15:47

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

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

liuyj · 发表于 2019-1-19 16:16:57

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

liuyj · 发表于 2019-1-19 16:34:43

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

账号		自动登录	找回密码
密码			立即注册

[[coior=red]文档类] (XD::Doc:SafeZoom)安全的ZOOM

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评