绘制旋转矩形（
我在下面有一个简单的代码来选择下角点、旋转点和上远角点，这很方便跟踪上面有矩形建筑的地图。我想预览正在绘制的矩形。
也许已经很晚了，但我看不出没有grread如何轻松做到这一点，但也许有。
;; Idea from this: https://www.theswamp.org/index.php?topic=55203.msg594646#msg594646
;; TO DO:
;; Add proper undo handling
;; Show preview of the rectangle
(defun C:Survey_Rectangle (/ pt1 pt2 ptr)
(if
(and
(setq pt1 (getpoint "\nBottom left corner :"))
(setq ptr (getpoint "\nRotation :"))
(setq pt2 (getpoint pt1 "\nTop Right corner :"))
)
(progn
(command "_.rectang" pt1 "_R" ptr pt2)
(command "_.rectang" pt1 "_R" 0 \) ;; Set the rectangle rotation back to 0 without going into the command
)
)
)
(c:Survey_Rectangle)
页:
[1]