(defun c:test() (setvar "blipmode" 0) (setvar "cmdecho" 0) (setq selnum (getvar "osmode")) (setvar "osmode" 0) (setq width (getreal "\nInput trim width <10> :")) (if (=width nil) (setq width 10)) (setq ss (ssget)) (setq kk 0) (setq j 0) (repeat (- (sslength ss) 1) (setq sname1 (ssname ss j)) (setq endata1 (entget sname1)) (setq p1s (cdr (assoc 10 endata1))) (setq p1e (cdr (assoc 11 endata1))) (setq i (- (sslength ss) j 1)) (setq jj (+ j 1)) (repeat i (setq sname2 (ssname ss jj))appload
(setq endata2 (entget sname2)) (setq p2s (cdr (assoc 10 endata2))) (setq p2e (cdr (assoc 11 endata2))) (setq ang1 (angle p2s p2e)) (setq ang2 (angle p2e p2s)) (setq jj (+ jj 1)) (setq pk (inters p1s p1e p2s p2e)) (if (/=pk nil) (progn (setq pp1 (polar pk ang2 width)) (setq pp2 (polar pk (- ang2 pi) width)) (command "break" sname2 pp1 pp2) (setq kk (+ kk 1)) ) ) ) (setq j (+ j 1)) ) (setvar "osmode" selnum) (princ) )
|