GETBOUNDINGBOX

  • Share this:

; GETBOUNDINGBOX ; 取得圖元, 如: 線, 弧, 圓, POLYLINE, SPLINE, ..., ; 的圖形左下角點和右上角點. ; 用 VLAX-SAFEARRY->LIST 指令轉換成 LIST ; 用 APPEND 指令組成 PT_LIST

(defun GET_BOUNDINGBOX () ( vla-getboundingbox sent_xobj 'LL 'UR ) ;; LL->左下角點, UR->右上角點 (setq pt-m ( mapcar ' vlax-safearray->list ( list LL UR))) (setq PT_LIST ( append PT_LIST pt-m)) ;; 加入串列中 )


Tags: