如何做到精准输出png图片

guosheyang

dcl1214 发表于 2023-6-20 16:27
您自己写代码，我只是提供大致思路，你说的局部，你可以用裁剪

嗯  好的  感谢！

渠辉

2. (defun MJ:pngout (/ ss 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-load-com)
    
24.   (vl-cmdf "_zoom"
    
25.            (car (setq s (MJ:ssbox (setq ss (ssget)))))
    
26.            (cadr s)
    
27.   )
    
28. 
    
29.   (if (>= (atoi (getvar "acadver")) 20)
    
30.     (command-s "_.pngout" "d:\\1.png" ss "")
    
31.     (vl-cmdf "_.pngout" "d:\\1.png" ss "")
    
32.   )
    
33.   (princ)
    
34. )
    

(defun MJ:pngout (/ ss 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-load-com)<br />   (vl-cmdf "_zoom"<br />            (car (setq s (MJ:ssbox (setq ss (ssget)))))<br />            (cadr s)<br />   )<br /> <br />   (if (>= (atoi (getvar "acadver")) 20)<br />     (command-s "_.pngout" "d:\\1.png" ss "")<br />     (vl-cmdf "_.pngout" "d:\\1.png" ss "")<br />   )<br />   (princ)<br /> )<br />

y854271613

留个脚印，希望开发出更多实用的功能