forEach1 for 문 사용하기 (foreach) - 반복 작업 한번에 여러줄을 한번에 그리기 list를 만들어서 지정된 list수량 만큼 선을 그린다. (defun c:test () (setq p1 (list 0 0)) (setq p2 (list 2000 2000)) (command "line" p1 p2 "") (setq slist (list 1000 2000 3000 4000 5000 6000 7000)) (foreach temp slist (setq p1 (list 1000 0)) (setq p2 (list 2000 temp)) (command "line" p1 p2 "") ) ) 2. 실행해보기(vsc에서 다시 시작 누르고 autocad 에서 "test" 입력) - 잘됨 3. commit하기(안해도됨) - 저의 기록을 위해 git add *.lsp git commi.. 2022. 12. 9. 이전 1 다음
