您自己写代码，我只是提供大致思路，你说的局部，你可以用裁剪
嗯好的感谢！ (defun MJ:pngout (/ ss s)
(defun MJ:enbox (en)
(vla-getboundingbox (vlax-ename->vla-object en) 'll 'ur)
(mapcar 'vlax-safearray->list (list ll ur))
)
(defun MJ:SS2en (ss)
(vl-remove-if-not
'(lambda (x) (= (type x) 'ename))
(apply 'append (ssnamex ss))
)
)
(defun MJ:Extents (plist)
(list (apply 'mapcar (cons 'min plist))
(apply 'mapcar (cons 'max plist))
)
)
(defun MJ:SSbox (ss / extents ss2en enbox)
(MJ:extents
(apply 'append (mapcar 'MJ:enbox (MJ:ss2en ss)))
)
)
(vl-load-com)
(vl-cmdf "_zoom"
(car (setq s (MJ:ssbox (setq ss (ssget)))))
(cadr s)
)
(if (>= (atoi (getvar "acadver")) 20)
(command-s "_.pngout" "d:\\1.png" ss "")
(vl-cmdf "_.pngout" "d:\\1.png" ss "")
)
(princ)
)
留个脚印，希望开发出更多实用的功能 求代码，如何准确的插入原文中 本帖最后由 1028695446 于 2025-6-25 16:31 编辑
今天才看到这个帖子，上周末我也研究了下这个截图，思路差不多，也是对角框选，然后设置窗口大小，zoom缩放，图片输出，
你这边有个问题，我需要给你指出：就是窗口缩放太快，导致输出的截图两侧有白边，应当在设置窗口大小后，在zoom缩放之前用getpoint之类的命令中断下，以防止两侧白边的出现（虽然多了一个步骤）
另外请教个问题，有没有彩色图片转黑白的，应为应用打印样式在图纸内容比较多的时候，会卡顿，体验不好
这个只是把一个图框最大化后，再输出，没有什么意义吧。想要输出大尺寸的图片，可以在PublishToWeb PNG.pc3等虚拟打印机里添加大尺寸的纸张。这样输出的图片就稍微清晰一点。在浩辰上，还可以设置输出图片的DPI，这样使图片更清晰，这个功能，我在中望与AutoCAD暂时还没有找到。
qazxswk 发表于 2025-6-25 22:47
这个只是把一个图框最大化后，再输出，没有什么意义吧。想要输出大尺寸的图片，可以在PublishToWeb PNG.pc3 ...
在C#可以直接渲染,不过没有多少人会也就没有公开过,嘻嘻 cghdy 发表于 2023-6-19 09:43
获取的图片格式虽然是png的，但是图片内容好像不是矢量图，不支持放大看。
图片PNG啥时候能是矢量的？要清晰就需要加大分辨率。如果需要矢量的话，输出WMF。
页:
1
[2]