如何做到精准输出png图片

渠辉

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 />

dcl1214

guosheyang 发表于 2023-6-19 23:40
杜总   这个代码能否实现  栅格图片的局部导出为png图片？

您自己写代码，我只是提供大致思路，你说的局部，你可以用裁剪

guosheyang

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

嗯  好的  感谢！

ocoipw

_$
; 错误: Automation 错误。 参数无效
_$
_$
; 错误: 函数已取消

和尚777

替换这两句
  (vla-put-width doc (abs(+ dw width)))
  (vla-put-height doc (abs(+ dh height)))

技术工作室

可以用，就是像素低点，支持一下

cghdy

获取的图片格式虽然是png的，但是图片内容好像不是矢量图，不支持放大看。

帝都划水王

支持了。各种格式互相转换

hzyhzjjzh

支持了

guosheyang

杜总   这个代码能否实现  栅格图片的局部导出为png图片？

nijiea123

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