MJ:export 函数的具体用法

渠辉

2. (defun MJ:Export (fileName Extension SelectonSet)
   
3.   (vla-export
   
4.     (vla-get-ActiveDocument (vlax-get-acad-object))
   
5.     fileName
   
6.     Extension
   
7.     SelectonSet
   
8.   )
   
9. )
   

(defun MJ:Export (fileName Extension SelectonSet)<br />   (vla-export<br />     (vla-get-ActiveDocument (vlax-get-acad-object))<br />     fileName<br />     Extension<br />     SelectonSet<br />   )<br /> )<br />

渠辉

2. defun MJ:export (ss SaveName / s)
   
3.   (defun MJ:enbox (en)
   
4.     (vla-getboundingbox (vlax-ename->vla-object en) 'll 'ur)
   
5.     (mapcar 'vlax-safearray->list (list ll ur))
   
6.   )
   
7.   (defun MJ:SS2en (ss)
   
8.     (vl-remove-if-not
   
9.       '(lambda (x) (= (type x) 'ename))
   
10.       (apply 'append (ssnamex ss))
    
11.     )
    
12.   )
    
13.   (defun MJ:Extents (plist)
    
14.     (list (apply 'mapcar (cons 'min plist))
    
15.           (apply 'mapcar (cons 'max plist))
    
16.     )
    
17.   )
    
18.   (defun MJ:SSbox (ss / extents ss2en enbox)
    
19.     (MJ:extents
    
20.       (apply 'append (mapcar 'MJ:enbox (MJ:ss2en ss)))
    
21.     )
    
22.   )  
    
23.   (vl-cmdf "_zoom" (car (setq s (MJ:ssbox ss))) (cadr s))
    
24.   (command "export" "d:\\1.bmp" "")
    
25. )

defun MJ:export (ss SaveName / s)<br />   (defun MJ:enbox (en)<br />     (vla-getboundingbox (vlax-ename->vla-object en) 'll 'ur)<br />     (mapcar 'vlax-safearray->list (list ll ur))<br />   )<br />   (defun MJ:SS2en (ss)<br />     (vl-remove-if-not<br />       '(lambda (x) (= (type x) 'ename))<br />       (apply 'append (ssnamex ss))<br />     )<br />   )<br />   (defun MJ:Extents (plist)<br />     (list (apply 'mapcar (cons 'min plist))<br />           (apply 'mapcar (cons 'max plist))<br />     )<br />   )<br />   (defun MJ:SSbox (ss / extents ss2en enbox)<br />     (MJ:extents<br />       (apply 'append (mapcar 'MJ:enbox (MJ:ss2en ss)))<br />     )<br />   )  <br />   (vl-cmdf "_zoom" (car (setq s (MJ:ssbox ss))) (cadr s))<br />   (command "export" "d:\\1.bmp" "")<br /> )