怎么得到用ssget选择的物体的最边界点

BDYCAD

我對這個程序有上點見儀,我剛試了一下.我覺得這條程序可以再改進點.目前樓上的程序只能夠框住PLINE類型的.還不能處理spline 或者ARC 　LINE 等．如果再改善這將是十分完美的程序．

多多努力，不進則退．

无痕

如果块转动一个角度，能否得出这个转动的块的最大范围框？ 我需要的不是vl中getbounding的wcs坐标系的，而是有角度的（与块的转动角度相同）

mccad

你可以通过以下属性取得对象的旋转角度及插入点：
Rotation 属性
InsertionPoint 属性
把图块旋转回来，取得框后，再旋转回去，同时按照角度及点来取得旋转后的框的点坐标。

龙龙仔

;;使用ax:GetBoundingBox (car (entsel"\n选图块: ")))
;;MCCAD!方法有點土
(defun AX:GETBOUNDINGBOX (ENT / HOLDOSMODE LL UR INS ROT PT_LIST PT)
  (vl-load-com)
  (setq HOLDOSMODE (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (command "_.UCS" "")
  (command "_.COPY" ENT "" "0,0" "@")
  (setq ENT (vlax-ename->vla-object (entlast)))
  (setq INS (vla-get-insertionpoint ENT))
  (setq ROT (vla-get-rotation ENT))
  (vla-rotate ENT INS (* -1 ROT))
  (vla-getboundingbox ENT 'LL 'UR)
  (setq PT_LIST (mapcar 'vlax-safearray->list (list LL UR)))
  (command "_.LINE"
           (setq INS (vlax-safearray->list (vlax-variant-value INS)))
           (car PT_LIST)
           ""
  )
  (command "_.ROTATE" (entlast) "" INS (/ (* 180 ROT) pi))
  (setq PT (list (cdr (assoc 11 (entget (entlast))))))
  (command "_.ERASE" (entlast) "")
  (command "_.LINE" INS (cadr PT_LIST) "")
  (command "_.ROTATE" (entlast) "" INS (/ (* 180 ROT) pi))
  (setq PT (append PT (list (cdr (assoc 11 (entget (entlast)))))))
  (command "_.ERASE" (entlast) "")
  (vla-delete ENT)
  (command "_.UCS" "")
  (setvar "OSMODE" HOLDOSMODE)
  PT
)