Lisp강좌(5)

[슬픈돼지]

너무 늦었군요..음 죄송 근 한달이 넘었다.. 넘 죄송합니다... 다음에는 좀더 자세히 올리겠습니다. 그리고 밑에 두가지 리습을 잘 보시면 2D상에서 제어할수 있는 DXF코드를 거의 다 할수 있답니다. (기본개념이 히히...) 오늘 자료실에 올리는 자료를 잘 보시고 밑의 두가지 리습의 차이를 확인해 보세요.. (defun c:ff() (setq et1 (entsel "\n 원본 객체를 선택하시요")) (setq et2 (car et1)) (redraw et2 3) (setq et3 (entget et2)) (setq et4 (assoc 8 et3)) (setq rt1 (entsel "\n 객체를 선택하시요")) (setq rt2 (car rt1)) (setq rt3 (entget rt2)) (setq rt4 (assoc 8 rt3)) (setq ddr (subst et4 rt4 rt3)) (entmod ddr) (redraw et2 4) ) (defun c:gg() (prompt "\n원본객체선택를 선택하십시요.") (setq sp1 (entsel)) (setq sp2 (car sp1)) (redraw sp2 3) (setq sp3 (entget sp2)) (setq newlayer (ASSOC 8 sP3)) (setq new_layer (cdr newlayer)) (prompt "\n바꿀객체선택(여러개선택가능):") (SETQ p1 (ssget)) (setq n 0) (setq len (sslength p1)) (While (< n len) (setq p2 (ssname p1 n)) (setq p3 (entget p2)) (setq oldlay (ASSOC 8 P3)) (setq mod (subst newlayer oldlay3)) (entmod mod) (setq n (1+ n)) );while (redraw sp2 4) (princ) (princ "바꿨습니다") (princ) );비교