记忆量取的尺寸，并平行于量取角度绘制任意旋转角度的矩形
本帖最后由 hehoubin 于 2012-10-2 21:06 编辑请高手帮忙修改下面的绘制矩形的代码，我想把下面的代码，让绘制矩形时量取的长宽的记忆，并平行于量取角度绘制任意旋转角度的矩形(defun C:BX (/ PT PT1 L W)
(while (setq PT
(getpoint "\n please input center point>>"))
(if (setq L (getdist PT "\n pletse input l:"))
(progn(setq PT1 (polar PT 0 L))
(if (setq W (getdist
PT (strcat "\n please input w:<"(rtos L) ">" )))
(setq PT1 (polar PT1 (* 0.5 pi) W))
(setq PT1 (polar PT1 (* 0.5 pi) L)))
(command "_.rectang" "non" PT "non" PT1))))
(princ))
页:
[1]