linshiyin2 发表于 2013-3-4 12:37:53

全屏显示选择对象

;;;全屏显示选择对象
(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 发表于 2013-3-5 11:11:52

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

springwillow 发表于 2013-3-5 12:00:26

这样不就可以吗？(defun c:zo ()
(command "zoom" "o" )
)

linshiyin2 发表于 2013-3-6 11:10:05

springwillow 发表于 2013-3-5 12:00 static/image/common/back.gif
这样不就可以吗？

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

linshiyin2 发表于 2013-3-6 11:11:03

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

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

springwillow 发表于 2013-3-6 15:43:05

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

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

逮猫的老鼠 发表于 2013-8-24 09:39:38

谢谢楼主提供
页: [1]
查看完整版本: 全屏显示选择对象