dcl1214 发表于 2023-6-18 22:42:10

已有 6 人购买  本主题需向作者支付 3 个明经币 才能浏览 购买主题

kozmosovia 发表于 2025-6-26 11:58:45

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

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

渠辉 发表于 2023-7-2 15:55:59

(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:22:09

本帖最后由 1028695446 于 2025-6-25 16:31 编辑

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


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


ocoipw 发表于 2023-6-18 23:45:14

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

和尚777 发表于 2023-6-19 07:42:01

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

技术工作室 发表于 2023-6-19 08:13:04

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

cghdy 发表于 2023-6-19 09:43:38

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

帝都划水王 发表于 2023-6-19 10:08:01

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

hzyhzjjzh 发表于 2023-6-19 12:49:22

{:1_1:}支持了{:1_1:}{:1_1:}

guosheyang 发表于 2023-6-19 23:40:51

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

nijiea123 发表于 2023-6-20 11:06:49

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

dcl1214 发表于 2023-6-20 16:27:46

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

您自己写代码，我只是提供大致思路，你说的局部，你可以用裁剪
页: [1] 2
查看完整版本: 如何做到精准输出png图片