아래 리습의 명령어를 입력하면
error: no function definition: STR_MEMB
라고 뜹니다.
어디를 수정해야 할까요?ㅠㅠ
;——– ON / OFF
; LON : 모든레이어 켜기
; LF : 선택하여 레이어 끄기 (다중선택 가능)
; LEO : 선택한 나머지 객체의 레이어 끄기 (다중선택 가능)
;——– LOCK / UNLOCK
; LUK : 모든레이어 잠금 해제
; LK : 선택한 객체의 레이어 잠그기 (다중선택 가능)
; LKK : 선택한 나머지 객체의 레이어 잠그기 (다중선택 가능)
;Layer On —————————————————————————————————————————–
(defun c:LON(/ cla ss k la-lis ed la k)
(setvar “cmdecho” 0)
(princ “n ::::: Layer On :::::”)
(command “layer” “on” “*” “”)
(princ “n ::::: Layer On completion :::::”)
(princ)
) ;defun
;Layer Off —————————————————————————————————————————–
(defun c:LF(/ cla ss k la-lis ed la k)
(princ “n ::::: Layer Off :::::”)
(setq cla (getvar “clayer”))
(setq ss (ssget))
(setq k 0 la-lis ‘())
(setvar “cmdecho” 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss k))
la (cdr (assoc 8 ed)))
(setq la-lis (append la-lis (list la)))
(setq k (1+ k))
) ;repeat
(setq la-lis (str_memb la-lis))
(command “undo” “be”)
(foreach x la-lis (progn
(if (= x cla) (command “layer” “off” x “y” “”)
(command “layer” “off” x “”))
)
(princ “n[“)(princ x)(princ “] layer is off.”)
) ;foreach
(command “undo” “e”)
(princ “n ::::: Layer Off completion :::::”)
(princ)
) ;defun
;Layer Except Off —————————————————————————————————————————–
(defun c:LEO(/ cla ss k la-lis ed la k)
(princ “n ::::: Layer Except Off :::::”)
(setq cla (getvar “clayer”))
(setq ss (ssget))
(setq k 0 la-lis ‘())
(setvar “cmdecho” 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss k))
la (cdr (assoc 8 ed)))
(setq la-lis (append la-lis (list la)))
(setq k (1+ k))
) ;repeat
(setq la-lis (str_memb la-lis))
(command “undo” “be”)
(command “layer” “off” “*” “y” “”)
(foreach x la-lis (progn
(command “layer” “on” x “”)
)
(princ “n[“)(princ x)(princ “] layer is on.”)
) ;foreach
(command “undo” “e”)
(princ “n ::::: Layer Except Off completion :::::”)
(princ)
) ;defun
;Layer Unlock —————————————————————————————————————————–
(defun c:LUK(/ cla ss k la-lis ed la k)
(setvar “cmdecho” 0)
(princ “n ::::: Layer Unlock :::::”)
(command “layer” “u” “*” “”)
(princ “n ::::: Layer Unlock completion :::::”)
(princ)
) ;defun
;Layer lock —————————————————————————————————————————–
(defun c:LK(/ cla ss k la-lis ed la k)
(princ “n ::::: Layer Lock :::::”)
(setq cla (getvar “clayer”))
(setq ss (ssget))
(setq k 0 la-lis ‘())
(setvar “cmdecho” 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss k))
la (cdr (assoc 8 ed)))
(setq la-lis (append la-lis (list la)))
(setq k (1+ k))
) ;repeat
(setq la-lis (str_memb la-lis))
(command “undo” “be”)
(foreach x la-lis
(progn
(command “layer” “lo” x “”)
)
(princ “n[“)(princ x)(princ “] layer is lock.”)
) ;foreach
(command “undo” “e”)
(princ “n ::::: Layer Lock completion :::::”)
(princ)
) ;defun
;Layer Except Lock —————————————————————————————————————————–
(defun c:LKK(/ cla ss k la-lis ed la k)
(princ “n ::::: Layer Except Lock :::::”)
(setq cla (getvar “clayer”))
(setq ss (ssget))
(setq k 0 la-lis ‘())
(setvar “cmdecho” 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss k))
la (cdr (assoc 8 ed)))
(setq la-lis (append la-lis (list la)))
(setq k (1+ k))
) ;repeat
(setq la-lis (str_memb la-lis))
(command “undo” “be”)
(command “layer” “lo” “*” “”)
(foreach x la-lis (progn
(command “layer” “u” x “”)
)
(princ “n[“)(princ x)(princ “] layer is unlock.”)
) ;foreach
(command “undo” “e”)
(princ “n ::::: Layer Except Lock completion :::::”)
(princ)
) ;defun