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

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

渠辉 发表于 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)
)

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

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

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

guosheyang 发表于 2023-6-21 08:50:10

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

嗯好的感谢！

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

留个脚印，希望开发出更多实用的功能
页: [1] 2
查看完整版本: 如何做到精准输出png图片