需要lsp。

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

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

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

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

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

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

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

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

copy


(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))

[编程交流] 需要lsp。

发表回复

精选推荐