오토캐드 2014 일반버전이구요
경로지정, appload수동으로 지정해서 올려도
레이어리습오류: no function definition:memvar 이런현상이 발생합니다
다른것들은 잘되는데 일부 안되는것들이 많이 발생하는데 문제가 뭘까요?
(defun C:MAC_LN(/ lay)
(memvar “LAYER ON”)
(makelst_off)
(setq cod (ln_dcl))
(if (= cod 1)
(progn
(while (> (strlen la_on) 0)
(setq lay (nth (atoi la_on) lst_off))
(command “layer” “on” lay “”)
(princ (strcat ($p_msg (strcat “Layer ” lay ” turn on”))))
(if (> (atoi la_on) 9)
(setq la_on (substr la_on 4))
(setq la_on (substr la_on 3))
)
)
)
)
(term)
)
(defun makelst_off (/ sortlist templist _name)
(setq sortlist nil)
(setq templist (tblnext “LAYER” T))
(while templist
(if (< (cdr (assoc 62 templist)) 0)
(progn
(setq _name (cdr (assoc 2 templist)))
(setq sortlist (cons _name sortlist))
)
)
(setq templist (tblnext “LAYER”))
)
(if (>= (getvar “maxsort”) (length sortlist))
(setq sortlist (acad_strlsort sortlist))
(setq sortlist (reverse sortlist))
)
(setq lst_off sortlist)
)
(defun ln_dcl()
(setq dcl_id (load_dialog ($i_dir “LN.dcl”)))
(if (not (new_dialog “layer_on” dcl_id)) (exit))
(start_list “off_list”)
(mapcar ‘add_list lst_off)
(end_list)
(action_tile “off_list” “(setq la_on $value)”)
(start_dialog)
)
말그대로 memvar 란 함수가 없어서 그럽니다 memvar란 함수가 같이 로딩하는 다른 리습어딘가에 있어야 하는데 그 리습이 같이 로딩 돼야 하는데 안된경우입니다