lisp 開啟選擇層問題

大家好
請教 lisp 開啟選擇層問題
網路上,下載 lisp 開啟選擇層

---------- 如下列 ------------------
(defun C:tom8 (/ a b b1 c n c2 index )
;; (setvar "cmdecho" 0)
(command"-layer""ON""*""")
  (setq a (ssget))
(setq n(sslength a))
(setq c(ssname a 0))
(setq b1 (entget c))
;(entmod b1)


;(setq b1(entget (ssname a index)))
    ; (setq index (1+ index))
     (setq b(assoc 8 b1))
    (setq c1(cdr b))
(command"-layer" "OFF" "*" "Y" "")
(command"-layer" "ON" c1 "" )
)
---------- -----------------

但有來圖 圖層名為:  圖層1 -01 [10]
有方括號[]  時 圖層會無法 開啟

------------指令烈回應 ---------
找不到相符的圖層名稱。

studioyhfa 寫到:
---------- -----------------

但有來圖 圖層名為:  圖層1 -01 [10]
有方括號[]  時 圖層會無法 開啟

------------指令烈回應 ---------
找不到相符的圖層名稱。

這原因是因為括號[]是CAD的常見的萬用字元的因素
可以參考 使用萬用字元列示圖層

所以需要在括號[]前面分別加上` (反引號)
原本是(command"-layer" "ON" "圖層1 -01 [10]" "" )
要改成(command"-layer" "ON" "圖層1 -01 `[10`]" "" )
就可以使用了

naruto018 寫到:


這原因是因為括號[]是CAD的常見的萬用字元的因素
可以參考 使用萬用字元列示圖層

所以需要在括號[]前面分別加上` (反引號)
原本是(command"-layer" "ON" "圖層1 -01 [10]" "" )
要改成(command"-layer" "ON" "圖層1 -01 `[10`]" "" )
就可以使用了

謝謝 naruto018

naruto018 寫到:
這原因是因為括號[]是CAD的常見的萬用字元的因素
可以參考 使用萬用字元列示圖層

所以需要在括號[]前面分別加上` (反引號)
原本是(command"-layer" "ON" "圖層1 -01 [10]" "" )
要改成(command"-layer" "ON" "圖層1 -01 `[10`]" "" )
就可以使用了

謝謝naruto018熱心解說～