[求助]lisp 怎么保存当前的窗口ZOOM

lichh_2003

１、lisp 怎么保存当前的窗口ZOOM，然后到程序完了后恢复?

２、用OFFSET 时对一个矩形怎么样才能保证它是往外面，就是放大的方向ＯＦＦＳＥＴ　１个毫米那？

３、怎么样获取一个ＰＬＩＮＥ线的所有顶点坐标，必须是闭合的？

我一直用ＶＢＡ开发，这些一直不懂，ＶＢＡ实在是没法窗口的批量裁剪。所以想自己用ＬＩＳＰ做个结合ＶＢＡ的程序，望大家帮助

danxingpen

1、zoom p
2、vla-offset obj 1不行吗？
3、看看vlax-curse的帮助，不行就查找一下这里，很多的～～

caoyin

1.用下面函数求出屏幕的的范围，储存，然后 zoom w

(defun viewBox (/ vc vh vs)
  (setq vc (trans (getvar "viewctr") 1 2)
        vh (getvar "viewsize")
        vs (mapcar '/ (list (* (apply '/ (getvar "screensize")) vh) vh) '(2 2))
  )
  (mapcar '(lambda (f) (trans (mapcar f vc vs) 2 1)) '(- +))
)

2.笨方法，以前写过一个用vlax-curve-getFirstDeriv方法的，适应任意曲线，一下子没找到

;;只有矩形适应

(defun c:test (/ rec p1 p2 p d)
(setq rec (entsel))
(setq rec (car rec))
(setq p1  (vlax-curve-getPointAtParam rec 0.5))
(setq p2  (vlax-curve-getPointAtParam rec 3.5))
(setq p   (polar p1 (angle p1 p2) 1))
(setq d   (distance p1 p))
(if (not (equal (angle p1 p) (angle p2 p) 1e-6))
  (setq d (- d))
)
(vla-offset (vlax-ename->vla-object rec) d)
)

3.(defun polyVertexs (ply / i p lst)
    (setq i 0)
    (while (setq p (vlax-curve-getPointAtParam ply i))
      (setq lst (cons p lst) i (1+ i))
    )
    (if (vlax-curve-isClosed ply) (setq lst (cdr lst)))
    (reverse lst)
  )

lichh_2003

vlax-curve-getPointAtParam

这些是什么啊?

phoenixdjq

是vlisp 函数

从本论坛下一个函数表吧

highflybir

第一个问题应该用command命令view保存视图，恢复视图，完全不用再编程。

vlax-curve-getFirstDeriv与这点的法向矢量的叉积，可以判断内外。

无痕

１、lisp 怎么保存当前的窗口ZOOM，然后到程序完了后恢复?

    (command ".zoom" p1 p2)

    ....;你的程序片段

    (command ".zoom" "p")

    或如楼上说过的，命名后恢复（可用cad命令或vla方法）

２、用OFFSET 时对一个矩形怎么样才能保证它是往外面，就是放大的方向ＯＦＦＳＥＴ　１个毫米那？

    不要保证，vla-offset 方法，大于0值是向面积增大的方向。

３、怎么样获取一个ＰＬＩＮＥ线的所有顶点坐标，必须是闭合的？

    搜索。

龙龙仔

lisp 怎么保存当前的窗口ZOOM

=>連續ZOOM N次的話,看看VIEW指令的用法吧!