如何得到選中物體的座標資料???

龙龙仔

(defun AX:GETBOUNDINGBOX (ENT / LL UR)
  (vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)
  (mapcar 'vlax-safearray->list (list LL UR))
)

(defun C:TT (/ SS N PT_LIST PT1 PT2)
  (setq        SS (ssget (list        '(-4 . "<not")
                        (cons 0 "xline,rays")
                        '(-4 . "not>")
                  )
           )
  )
  (setq N 0)
  (repeat (sslength SS)
    (setq PT_LIST (append PT_LIST (AX:GETBOUNDINGBOX (ssname SS N))))
    (setq N (1+ N))
  )
  (setq        PT1 (list (apply 'min (mapcar 'car PT_LIST))
                  (apply 'min (mapcar 'cadr PT_LIST))
            )
        PT2 (list (apply 'max (mapcar 'car PT_LIST))
                  (apply 'max (mapcar 'cadr PT_LIST))
            )
  )
  (command "_.RECTANG" PT1 PT2)
)

aaddff

可不可以看一下原程序啊？

aaddff

前生，你好，可不可以看一下你的原程序？