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

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

嗯好的感谢！

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

y854271613 发表于 2023-7-3 17:24:48


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

烟盒迷唇 发表于 2025-4-22 08:30:56

求代码，如何准确的插入原文中
页: 1 [2]
查看完整版本: 如何做到精准输出png图片