cad图层置顶的lisp_cad中的底图老置顶，如何让它永久置底？

展开全部

①应该就是用DR命令啊，，，

②要不试试这个：

使用程序来解决。AutoCAD有autolisp接口，加62616964757a686964616fe59b9ee7ad9431333363366165载lsp程序。程序如下：;;一键所有填充对象置后显示,CAD2005以上版本适用

(defun C:TES ( / block1 dict doc lst obj sotr1)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(vl-load-com)

(setq  doc (vla-get-ActiveDocument (vlax-get-acad-object)))

(vlax-for block1 (vla-get-blocks doc)

(cond

((not (VL-CATCH-ALL-ERROR-P (setq sotr1 (VL-CATCH-ALL-APPLY 'vla-item (list (setq dict (vla-GetExtensionDictionary block1)) "ACAD_SORTENTS"))))))

((setq sotr1 (VL-CATCH-ALL-APPLY 'vla-AddObject (list dict "ACAD_SORTENTS" "AcDbSortentsTable"))))

)

(setq lst nil)

(vlax-for obj block1 (if (= "AcDbHatch" (vla-get-objectname obj)) (setq lst (cons obj lst))));vla-MoveTotop

(if lst (progn (vla-MoveToBottom sotr1 (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 (1- (length lst)))) lst)))))

)

(vla-regen doc :vlax-true)

(princ)

);;复制到记事本，以【.lsp】为后缀命名，autolisp加载，命令【TES】