mdharmon 发表于 2022-7-6 15:17:22

需要lsp。

我有一个在同一层上有许多图案填充的图形。我需要一个lsp，它将允许我选择一个图案填充，并将整个层发送到后面。有什么想法吗？

Lee Mac 发表于 2022-7-6 15:41:13

您是指对象的绘图顺序吗？

mdharmon 发表于 2022-7-6 16:13:06

是的，我正在处理许多带有舱口的混凝土路面区域。我有许多实用程序，例如在漫游图案填充下方，我需要能够将整个层发送到后面（绘制顺序），而不是每次将每个图案填充发送回一个部分。

Lee Mac 发表于 2022-7-6 16:27:42

这应该可以做到——对任何实体都有效：
 

(defun c:hatchback (/ lEnt lLay lSels)
(setvar "cmdecho" 0)
(while (setq lEnt (car (entsel "\nSelect Entity on Layer to Send to Back > ")))
   (setq lLay (cdr (assoc 8 (entget lEnt)))
       lSels (ssget "X" (list (cons 8 lLay)(if (getvar "CTAB")
                                       (cons 410 (getvar "CTAB"))
                                        (cons 67 (- 1 (getvar "TILEMODE")))))))
   (command "_.draworder" lSels "" "B"))
(setvar "cmdecho" 1)
(princ))
页: [1]
查看完整版本: 需要lsp。