在多段线上增加一个节点.doc

;在多段线上增加一个节点;TUTOCAD2010版如果把(setq x2 (nth 1 (nth (+ i 5) enttym) 改为(setq x2 (nth 1 (nth (+ i 4) enttym)就变为2005版(defun c:ja(/ zsu sel tym enttym d1 d2 d3 d4 d5 zongb zongb1 d0 zb newd2 c70 b40 b41 b42 x1 y1 x2 y2 x y xn yn dq dn d9 ang0 ang1 ang2);(defun c:ja () (command _.properties) (while (setq sel (entsel n在多段线上增加一个节点) (setq tym (car sel) (setq enttym (entget tym) (setq d9 (last sel) (setq d0 (osnap d9 _NEA) (setq d0 (list (nth 0 d0) (nth 1 d0) (setq b40 (assoc 40 enttym) (setq b41 (assoc 41 enttym) (setq b42 (assoc 42 enttym) (setq c70 (CDR (assoc 70 enttym);(if (or (= c70 1)(= c70 129)(setq xhcs (sslength enttym) (setq zongb nil) (setq zsu 0) (setq i -1) (setq x0 (nth 1 (assoc 10 enttym) (setq y0 (nth 2 (assoc 10 enttym) (setq dq (list x0 y0) (setq xn (nth 1 (assoc 10 (reverse enttym) (setq yn (nth 2 (assoc 10 (reverse enttym) (setq dn (list xn yn) (setq j 8000) (SETQ PP 0) (SETQ DS(CDR (assoc 90 enttym) (repeat (length enttym) (setq i (+ i 1) (setq zb (nth i enttym) (setq zongb (append zongb (list zb) (setq j (+ j 1) (if (= j 3)(progn (setq zongb (append zongb zongb1) (setq j 8000) ) ;(if (and (= (car zb) 10) ( (distance dn (cdr zb) 0.0000001) (if (and (= (car zb) 10) ( PP DS)(progn (SETQ PP(+ PP 1) (setq x1 (nth 1 zb) (setq y1 (nth 2 zb) (setq d1 (list x1 y1) (setq x2 (nth 1 (nth (+ i 5) enttym) (setq y2 (nth 2 (nth (+ i 5) enttym) (setq d2 (list x2 y2) (setq ang0 (angle d1 d2) (setq ang0 (+ ang0 (/ pi 2) (setq d3 (polar d0 ang0 0.00001) (setq d4 (polar d0 (+ ang0 pi) 0.00001) (setq d5 (inters d1 d2 d3 d4) (if (/= d5 nil) (progn (setq j 0) (setq zongb1 (list (cons 10 d0) b40 b41 b42);(setq newd d0) ) ) ) ) (if(or (= c70 1) (= c70 129) (progn(setq d1 dn)(setq d2 dq)(setq ang0 (angle d1 d2)(setq ang0 (+ ang0 (/ pi 2)(setq d3 (polar d0 ang0 0.00001)(setq d4 (polar d0 (+ ang0 pi) 0.00001)(setq d5 (inters d1 d2 d3 d4)(IF (/= D5 NIL) (PROGN (setq j 8000) (SETQ I -1) (setq zongb nil) (repeat (length enttym) (setq i (+ i 1) (setq zb (nth i enttym) (setq zongb (append zongb (list zb) (setq j (+ j 1) (if (= j 3)(progn (setq zongb (append zongb zongb1) (setq j 8000) ) (IF (EQUAL DN (CDR ZB) 0.000000001)(PROGN (SETQ J 0) (setq zongb1 (list (cons 10 d0) b40 b41 b42);(setq newd d0) ) ) ) ) );(entmod zongb) (command PSELECT tym ) (setq newd2 nil) (SETQ NEWD2 (GETPOINT d0 请移动到正确位置：) (if(/= newd2 nil) (progn(setq newd2 (list (nth 0 n