지정한 길이의 line을 기정한 갯수만큼 자동으로 만들어주는 lisp입니다.
소스를 공개합니다. (저도 네이버 지식인에서 퍼왔습니다. ^^)
(defun c:mline12()
(setq p1 (getpoint "pick point: "))
(setq l1 (getdist p1 "length of line: "))
(setq d1 (getdist p1 "offset distance: "))
(setq n1 (getint "number of line: "))
(setq a1 (* (/ pi 180) 90))
(repeat n1
(setq p2 (polar p1 a1 l1))
(command "line" p1 p2 "")
(setq p1 (list (+ (car p1) d1) (cadr p1)))
)
(princ)
)
appload로 load하여 mline12라고 입력하시면
동작이 가능합니다.
첫댓글 좋은 자료 감사해요~ ^_^