以对象显示窗口(command "_.zoom" "_O"

/db_自贡黄明儒_

2. ;;以对象显示窗口(command "_.zoom" "_O"
   
3. ;;(HH:ZoomEnt (list (car(entsel))(car(entsel))))
   
4. ;;(HH:ZoomEnt (ssget))
   
5. ;;(HH:ZoomEnt (car(entsel)))
   
6. ;;SC:SSBox http://bbs.xdcad.net/thread-676589-1-1.html
   
7. (defun HH:ZoomEnt (Lst / OBJS P PTS)
   
8.   (cond
   
9.     ((> (atof (getvar "ACADVER")) 16)                            ;版本04以上
   
10.      (cond
    
11.        ((equal (Type Lst) 'PICKSET) (command "_.zoom" "_O" Lst ""))
    
12.        ((equal (Type Lst) 'ENAME) (command "_.zoom" "_O" Lst ""))
    
13.        ((equal (Type Lst) 'LIST)
    
14.         (APPLY 'command (APPEND (CONS "_.zoom" (CONS "_O" Lst)) (LIST "")))
    
15.        )
    
16.      )
    
17.     )
    
18.     (T
    
19.      (setq objs (mapcar 'vlax-ename->vla-object Lst))
    
20.      (setq pts (VL-CATCH-ALL-APPLY 'SC:SSBox (list objs (zerop (getvar "WORLDUCS")))))
    
21.      (command "_.zoom" "_w" (car pts) (cadr pts))
    
22.     )
    
23.   )
    
24. )

;;以对象显示窗口(command "_.zoom" "_O"<br /> ;;(HH:ZoomEnt (list (car(entsel))(car(entsel))))<br /> ;;(HH:ZoomEnt (ssget))<br /> ;;(HH:ZoomEnt (car(entsel)))<br /> ;;SC:SSBox http://bbs.xdcad.net/thread-676589-1-1.html<br /> (defun HH:ZoomEnt (Lst / OBJS P PTS)<br />   (cond<br />     ((> (atof (getvar "ACADVER")) 16)                            ;版本04以上 <br />      (cond<br />        ((equal (Type Lst) 'PICKSET) (command "_.zoom" "_O" Lst ""))<br />        ((equal (Type Lst) 'ENAME) (command "_.zoom" "_O" Lst ""))<br />        ((equal (Type Lst) 'LIST)<br />         (APPLY 'command (APPEND (CONS "_.zoom" (CONS "_O" Lst)) (LIST "")))<br />        )<br />      )<br />     )<br />     (T<br />      (setq objs (mapcar 'vlax-ename->vla-object Lst))<br />      (setq pts (VL-CATCH-ALL-APPLY 'SC:SSBox (list objs (zerop (getvar "WORLDUCS")))))<br />      (command "_.zoom" "_w" (car pts) (cadr pts))<br />     )<br />   )<br /> )

eachy

ENAME 和 PICKSET 执行语句是一样的