选择了这个32313133353236313431303231363533e78988e69d8331333337396332图层的所有对象,右键,绘图次序,【前置】
用程序来解决,
(defun C:tes ( / blockdef dict doc lst obj sortents &tc1)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(vl-load-com)
(if (setq &tc1 (entsel "\n请选择要把图层放在最上面的参考图层"))
(progn
(setq &tc1 (cdr (assoc 8 (entget (car &tc1)))))
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vlax-for blockdef (vla-get-blocks doc)
(cond
((not (VL-CATCH-ALL-ERROR-P (setq sortents (VL-CATCH-ALL-APPLY 'vla-item (list (setq dict (vla-GetExtensionDictionary blockdef)) "ACAD_SORTENTS"))))))
((setq sortents (VL-CATCH-ALL-APPLY 'vla-AddObject (list dict "ACAD_SORTENTS" "AcDbSortentsTable"))))
)
(setq lst nil)
(vlax-for obj blockdef (if (= &a