分享工作上非常實用的小程序
選取物件在外形畫上方框
加上文字註解,方便有其他需求的自行修改吧
改一下順序先輸入距離,可以重複選取畫框
代碼:
(defun c:pe_die (/ t3 t4 pt1 pt2 sn n en pt_list)
(princ "by stephen_peng")
(setvar "blipmode" 0)
(if (= t3 nil)
(SETQ t4 4)
) ;邊框距離預設值 4
(princ (strcat "\n矩形框邊緣距離<" (rtos t4) ">:"))
(initget 4)
(setq t3 (getreal)) ...
↧