워킹맘 [2008.03.21] CAD_도로중심선 그리는 Lisp메모장에 복사해서 .LSP확장자바꿔서 쓰시면됩니다.. 명령어는D이고 폴리라인 두개를선택하면 중심선이 생깁니다.. ---------------------------------------------------------- (defun dtr (a) (defun rtd (a) (defun dxf(code elist) (defun vtxs12(ent / ptlist) (defun vtxs14(ent / ptlist s1 count) (defun pl_length(ent / count pt1 pt2 ll) (defun nearpt(pt1 ent / count pt2 l_short l_long mx my) (princ "\n Original Road # : ") (princ "\n Center Road # : ") (setq mx (/ (+ (car pt1) (car pt2)) 2)) (defun polyline(ent / osm pt n) (defun orthopt(pt1 pt2 / osm len rads opt1 opt2 pt_list) (defun c:d( / fob sob fo_list so_list fob_lst sob_lst pt_lst ll sob_new_list) (setq fob (entsel "\n first pline : ")) (setq sob (entsel "\n second pline : ")) (setq fo_list (entget (car fob)))
;(setq sl (dxf 8 fo_list)) (if (= "LWPOLYLINE" (dxf 0 fo_list)) (if (= "LWPOLYLINE" (dxf 0 so_list)) (setq fob_ll (pl_length
fob_lst)) (if (> (length sob_lst) (length fob_lst)) (setq count 0) (repeat (length fob_lst) (polyline sob_new_list)
(princ) ---------------------------------------중심선넣는리습입니다.. |