编辑图层过滤器需要帮助

dgp123 · 发表于 2022-7-5 16:29:58

图层过滤器。lsp用于将图形中的所有对象分离到单独的层中

图层细节：隐藏线到隐藏层，标注到标注层，文本到文本层

我需要为选定对象使用此lsp，因此请有人编辑选定对象的此lsp，而不是整个图形

提前感谢。。。。。。。。。
TIP1119-过滤层。LSP

BIGAL · 发表于 2022-7-5 16:35:25

一个很大的提示是，去查阅SSGET的帮助，特别是“X”或“W”或“CP”的使用，或者干脆忽略它。

dgp123 · 发表于 2022-7-5 16:37:45

兄弟，我尝试“w”和“cp”，但结果是参数错误太多

有什么方法可以解决这个错误吗？请指导我

Hippe013 · 发表于 2022-7-5 16:43:35

比格尔指出的最后一个选择。只需删除“X”。

copy

 (setq SS2 (ssget "X" '((0 . "TEXT"))))

那么。。。

copy

 (setq SS2 (ssget  '((0 . "TEXT"))))

tombu · 发表于 2022-7-5 16:46:08

从lisp来看，它必须完全重写，因为它对5种不同的实体类型和元素进行了5个不同的ssget“X”调用。您需要创建一个可以接受所有选项的选择集，然后使用cond函数测试每个选项并进行相应修改。

dgp123 · 发表于 2022-7-5 16:48:12

我删除了“x”，它只适用于ss1

ss2，ss3。。。。不工作
有任何选择，请引导我，兄弟。。。。

tombu · 发表于 2022-7-5 16:51:21

快速且经过轻微测试：

copy

(defun C:ForceObjectLayer (/ OLAY ss ent EnTyp Element)
(setq ss (ssget "+.:E:S"))
; :E  Everything in aperture
; :S  Force single object selection only
; The "+." puts (ssget) into "point" mode. It helps the ":S"
; single-mode act just like (entsel) by avoiding implied
; selection windows.
(if ss
 (progn
  (setvar "CMDECHO" 0)
  (setq OLAY (getvar "CLAYER"))
  (command "layer" "m" "dime" "lt" "continuous" "" "c" "yellow" "" "")
  (command "layer" "m" "text" "lt" "continuous" "" "c" "green" "" "")
  (command "layer" "m" "center" "lt" "center" "" "c" "red" "" "")
  (command "layer" "m" "hidden" "lt" "hidden" "" "c" "green" "" "")
  (command "layer" "m" "phantom" "lt" "phantom" "" "c" "white" "" "")
  (setq ent (ssname SS 0)
        EnTyp (cdr (assoc 0 (entget ent)))
        Element (cdr (assoc 6 (entget ent)))
  )
   (cond
    ((= EnTyp "DIMENSION")(command "change" ss "" "p" "c" "bylayer" "la" "dime" "lt" "bylayer" ""))
    ((= EnTyp "TEXT")(command "change" ss "" "p" "c" "bylayer" "la" "text" "lt" "bylayer" ""))
    ((= Element "CENTER")(command "change" ss "" "p" "c" "bylayer" "la" "center" ""))
    ((= Element "HIDDEN")(command "change" ss "" "p" "c" "bylayer" "la" "hidden" ""))
    ((= Element "PHANTOM")(command "change" ss "" "p" "c" "bylayer" "la" "phantom" ""))
    (T(princ "\nObject was not Dimension or Text or Element type Center, Hidden, or Phantom."))
   )
  (command "layer" "s" OLAY "")
 ); progn
)
(princ)
); end ForceObjectLayer.lsp

dgp123 · 发表于 2022-7-5 16:56:45

谢谢你的回复。。。。。。
兄弟，我们必须通过这个lsp分别拾取每个对象。
通过单窗口选择，可以将包含的对象放在单独的层中。。。。

BIGAL · 发表于 2022-7-5 17:01:31

我再次尝试给出一个关于ssget如何工作的重要提示，其他人在上面已经详细阐述了，在其最低级别just do（setq ss（ssget）），然后由您决定如何选择，设置1乘1，所有的几个，交叉窗口等。它只会在当前空间中看起来。

Tombu希望你不介意重新安排一点，这样ss可以是1或更多。

copy


(defun C:ForceObjectLayer (/ OLAY ss ent EnTyp Element)
(setq ss (ssget))
; (setq ss (ssget "+.:E:S"))
; :E  Everything in aperture
; :S  Force single object selection only
; The "+." puts (ssget) into "point" mode. It helps the ":S"
; single-mode act just like (entsel) by avoiding implied
; selection windows.
(if ss
 (progn
  (setvar "CMDECHO" 0)
  (setq OLAY (getvar "CLAYER"))
  (command "layer" "m" "dime" "lt" "continuous" "" "c" "yellow" "" "")
  (command "layer" "m" "text" "lt" "continuous" "" "c" "green" "" "")
  (command "layer" "m" "center" "lt" "center" "" "c" "red" "" "")
  (command "layer" "m" "hidden" "lt" "hidden" "" "c" "green" "" "")
  (command "layer" "m" "phantom" "lt" "phantom" "" "c" "white" "" "")
 ) ;progn
 (repeat (setq x (sslength ss)) ; ss can be just 1 entity
    
    (setq ent (ssname SS (setq x (- x 1)))
        EnTyp (cdr (assoc 0 (entget ent)))
        Element (cdr (assoc 6 (entget ent)))
    )
    (cond
    ((= EnTyp "DIMENSION")(command "change" ss "" "p" "c" "bylayer" "la" "dime" "lt" "bylayer" ""))
    ((= EnTyp "TEXT")(command "change" ss "" "p" "c" "bylayer" "la" "text" "lt" "bylayer" ""))
    ((= Element "CENTER")(command "change" ss "" "p" "c" "bylayer" "la" "center" ""))
    ((= Element "HIDDEN")(command "change" ss "" "p" "c" "bylayer" "la" "hidden" ""))
    ((= Element "PHANTOM")(command "change" ss "" "p" "c" "bylayer" "la" "phantom" ""))
    (T(princ "\nObject was not Dimension or Text or Element type Center, Hidden, or Phantom."))
    ) ; cond
   ) ; repeat
  (command "layer" "s" OLAY "")
 
(princ)
); end ForceObjectLayer.lsp

dgp123 · 发表于 2022-7-5 17:04:27

兄弟，检查它不工作。请参阅以下输出文件。。。。。。。。。。

[编程交流] 编辑图层过滤器需要帮助

发表回复

精选推荐