如何做到精准输出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

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

烟盒迷唇

求代码，如何准确的插入原文中

1028695446

今天才看到这个帖子，上周末我也研究了下这个截图，思路差不多，也是对角框选，然后设置窗口大小，zoom缩放，图片输出，
你这边有个问题，我需要给你指出：就是窗口缩放太快，导致输出的截图两侧有白边，应当在设置窗口大小后，在zoom缩放之前用getpoint之类的命令中断下，以防止两侧白边的出现（虽然多了一个步骤）


另外请教个问题，有没有彩色图片转黑白的，应为应用打印样式在图纸内容比较多的时候，会卡顿，体验不好

qazxswk

这个只是把一个图框最大化后，再输出，没有什么意义吧。想要输出大尺寸的图片，可以在PublishToWeb PNG.pc3等虚拟打印机里添加大尺寸的纸张。这样输出的图片就稍微清晰一点。在浩辰上，还可以设置输出图片的DPI，这样使图片更清晰，这个功能，我在中望与AutoCAD暂时还没有找到。

你有种再说一遍

qazxswk 发表于 2025-6-25 22:47
这个只是把一个图框最大化后，再输出，没有什么意义吧。想要输出大尺寸的图片，可以在PublishToWeb PNG.pc3 ...

在C#可以直接渲染,不过没有多少人会也就没有公开过,嘻嘻

kozmosovia

cghdy 发表于 2023-6-19 09:43
获取的图片格式虽然是png的，但是图片内容好像不是矢量图，不支持放大看。

图片PNG啥时候能是矢量的？要清晰就需要加大分辨率。如果需要矢量的话，输出WMF。