고캐드에서 다운받은 리습 자료 입니다..
로딩을 시켜서 리습을 실행 시키면,
오류: 잘못된 인수 유형: lselsetp nil 이라고 메세지가 뜨는데요…
어디를 수정을 해야 하나요?
혹 다른 리습 자료를 가지고 계신분이 있으시다면 업로드 부탁드립니다.
현재의 리습은 그냥 z값 전체를 없애주는거같은데요…
객체 선택후 일률적으로 z값을 +해주거나, -해주고 싶거든요..
고수님들의 관심 부탁드립니다.
(defun c:zd ()
(setvar “cmdecho” 0)
(command “undo” “group”)
(setq ss (ssget “X” ‘((0 . “INSERT”))))
(setq num (sslength ss))
(setq index 0)
(repeat num
(setq entName (ssname ss index))
(setq entList (entget entName))
(setq entXYZ (cdr (assoc 10 entList)))
(setq entZ (caddr entXYZ))
(if (> entZ 0)
(progn
(setq NentZ (- entZ 0.5))
(command “change” entName “” “p” “e” NentZ “”)
);
);
(setq index (+ index 1))
);
(prompt “n 총”)(prompt (itoa num))(prompt “개, 객체의 Z값이 변경되었습니다.”)
(princ)
(command “undo” “end”)
(princ)
);