全屏显示选择对象

linshiyin2

;;;全屏显示选择对象
(defun c:tt ( / EN ptl SS)
  (setq en (car (entsel)))
  (seeo_bject en)
  )
(defun seeo_bject (ename / ll ur ptl)
  (vla-GetBoundingBox (vlax-ename->vla-object ename) 'll 'ur)
  (setq ptl (list
      (reverse (cdr (reverse (vlax-safearray->list ll))))
      (reverse (cdr (reverse (vlax-safearray->list ur))))))
  (Command "ZOOM" "w" (car ptl) (cadr ptl)))

tianyi1230

适用过了。谢谢楼主，请教一般用在什么地方？

springwillow

这样不就可以吗？

2. (defun c:zo ()
   
3.   (command "zoom" "o" )
   
4.   )

(defun c:zo ()<br />   (command "zoom" "o" )<br />   )

linshiyin2

springwillow 发表于 2013-3-5 12:00
这样不就可以吗？

这样是可以，但是如果你获取了选择集，需要查看某个对象时就有用了。

linshiyin2

tianyi1230 发表于 2013-3-5 11:11
适用过了。谢谢楼主，请教一般用在什么地方？

获取了选择集，需要查看某个对象时就有用了。

springwillow

linshiyin2 发表于 2013-3-6 11:10
这样是可以，但是如果你获取了选择集，需要查看某个对象时就有用了。

你的最后也是用了“command",执行完也会释放已选　择的对象吧！还是你说的是另外一个意思？

逮猫的老鼠

谢谢楼主提供