图像显示顺序调到最下

Lisphk · 发表于 2018-3-29 21:55:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:I2B (/)
(setvar "cmdecho" 0)
(setq SS_IMAGE nil)
(setq SS_IMAGE (ssget "X" '((0 . "IMAGE"))))
(if (= SS_IMAGE nil)
(princ "\nNo images in drawing")
(progn
(command "draworder" SS_IMAGE "" "back" )
(setvar "cmdecho" 1)
(princ "\n ************************************")
(princ "\n *** All IMAGES moved to back !! ***")
(princ "\n ************************************")
);progn
);if
(princ)
);defun

sicky111 · 发表于 2018-3-30 00:01:48

沙发。谢谢分享。

marting · 发表于 2018-3-30 10:48:31

下面这个，除了IMAGE,PDF，也能把HATCH调到最下面

(defun c:tt (/ *error* _catch u lock e s ss i lst r)
;; send all Hatch and Images Back (draworder)
;; Alan J. Thompson, 12.23.10 | 2016.09.09
(defun *error* (msg)
(foreach l lock (vla-put-lock l :vlax-true))
(if r
(vla-regen *AcadDoc*
(if (eq (getvar 'CVPORT) 1)
acAllViewports
acActiveViewport
)
)
)
(and u (vla-endundomark *AcadDoc*))
(if (and msg
(not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,"))
)
(progn (vl-bt) (princ (strcat "\nError: " msg)))
)
)
(defun _catch (f a / r)
(if (not
(vl-catch-all-error-p (setq r (vl-catch-all-apply f a)))
)
r
)
)
(setq u (not
(vla-startundomark
(cond (*AcadDoc*)
(setq
*AcadDoc*
(vla-get-activedocument (vlax-get-acad-object))
)
)
)
)
)
(vlax-for lay (vla-get-layers *AcadDoc*)
(if (eq (vla-get-lock lay) :vlax-true)
(vla-put-lock (car (setq lock (cons lay lock))) :vlax-false)
)
)
(setq e (vla-getextensiondictionary (vla-get-modelspace *AcadDoc*))
s (cond ((_catch 'vla-getobject (list e "acad_sortents")))
((_catch 'vla-getobject
(list e "acad_sortents" "acdbsortentstable")
)
)
)
)
(foreach pair '((0 . "HATCH") (0 . "IMAGE,OLE2FRAME,PDFUNDERLAY"))
(if (setq ss (ssget "_X" (list pair '(410 . "Model"))))
(progn (repeat (setq i (sslength ss))
(setq lst (cons (vlax-ename->vla-object (ssname ss (setq i (1- i))))
lst
)
)
)
(vlax-invoke s 'MoveToBottom lst)
(setq r t
lst nil
)
)
)
)
(*error* nil)
(princ)
)

(defun c:tt (/ *error* _catch u lock e s ss i lst r) 
  ;; send all Hatch and Images Back (draworder) 
  ;; Alan J. Thompson, 12.23.10 | 2016.09.09 
  (defun *error* (msg) 
    (foreach l lock (vla-put-lock l :vlax-true)) 
    (if r 
      (vla-regen *AcadDoc* 
                 (if (eq (getvar 'CVPORT) 1) 
                   acAllViewports 
                   acActiveViewport 
                 ) 
      ) 
    ) 
    (and u (vla-endundomark *AcadDoc*)) 
    (if (and msg 
             (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,")) 
        ) 
      (progn (vl-bt) (princ (strcat "\nError: " msg))) 
    ) 
  ) 
  (defun _catch (f a / r) 
    (if (not 
          (vl-catch-all-error-p (setq r (vl-catch-all-apply f a))) 
        ) 
      r 
    ) 
  ) 
  (setq u (not 
            (vla-startundomark 
              (cond (*AcadDoc*) 
                    (setq 
                     *AcadDoc* 
                     (vla-get-activedocument (vlax-get-acad-object)) 
                    ) 
              ) 
            ) 
          ) 
  ) 
  (vlax-for lay (vla-get-layers *AcadDoc*) 
    (if (eq (vla-get-lock lay) :vlax-true) 
      (vla-put-lock (car (setq lock (cons lay lock))) :vlax-false) 
    ) 
  ) 
  (setq e (vla-getextensiondictionary (vla-get-modelspace *AcadDoc*)) 
        s (cond ((_catch 'vla-getobject (list e "acad_sortents"))) 
                ((_catch 'vla-getobject 
                         (list e "acad_sortents" "acdbsortentstable") 
                 ) 
                ) 
          ) 
  ) 
  (foreach pair '((0 . "HATCH") (0 . "IMAGE,OLE2FRAME,PDFUNDERLAY")) 
    (if (setq ss (ssget "_X" (list pair '(410 . "Model")))) 
      (progn (repeat (setq i (sslength ss)) 
               (setq lst (cons (vlax-ename->vla-object (ssname ss (setq i (1- i)))) 
                               lst 
                         ) 
               ) 
             ) 
             (vlax-invoke s 'MoveToBottom lst) 
             (setq r   t 
                   lst nil 
             ) 
      ) 
    ) 
  ) 
  (*error* nil) 
  (princ) 
)

scnjlwb · 发表于 2018-3-30 14:05:40

谢谢分享！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 图像显示顺序调到最下

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。