发个 lsp 给大家玩玩，看看有用没？？

MRHDF

(defun C:hatchborder (/ ss mark i ed pt al ccw temppt sang eang tent blist edlist i2 mark2 mark3 temped ed2)
(princ "\nSelect the hatch you want to create a border around\n")
(setq ss (ssget '((0 . "HATCH")))) (princ (assoc 92 ed)) (setq ed (entget (ssname ss 0)))
(while (/= nil (assoc 92 ed))
(if (= (logand 4 (cdr(assoc 92 ed))) 4) (progn
(setq i (1+ (vl-position (assoc 93 ed) ed )))
(command "pline")
(repeat (cdr(assoc 93 ed)) (princ "a")
;(if (and (= 42 (car(nth(1+ i)ed)))(= al "l")) (progn (command "a") (setq al "a")))
;(if (and (= 10 (car(nth(1+ i)ed)))(= al "a")) (progn (command "l") (setq al "l")))
(command (cdr(nth i ed)))
(if (= 42 (car(nth(1+ i)ed))) (setq i (+ 2 i) blist (cons(cdr(nth(1+ i)ed)) blist))
(setq i (+ 1 i))) (princ "b")
)
(if (= 1 (cdr(nth (+ i 4) ed))) (command "cl") (command ""))
(setq ed2 (entget(entlast)) blist (reverse blist) i (vl-position (assoc 42 ed)ed));
(setq i2 0) (princ "c")
(if (/= nil blist) (setq blist (append (list (nth (1-(length blist)) blist)) blist)))
(while (< (length edlist) (length ed2)) (princ "d")
(while (/= nil (nth i2 ed2))
(if (and (/= blist nil) (= (car(nth i2 ed2)) 42) )
(setq edlist (cons (cons 42 (car blist)) edlist) i2 (1+ i2) blist (cdr blist))
(setq edlist (cons (nth i2 ed2) edlist) i2 (1+ i2))
) (princ "e")
)
) (setq ed2 (reverse edlist)) (entmod ed)
)(progn (princ "f\n");else (princ "a")
(setq i (1+ (vl-position (assoc 93 ed) ed)) al "e") (princ "g")
(repeat (cdr (assoc 93 ed)) (princ "h")
(if(= (cdr (nth i ed)) 1) (progn (princ "i")
(if (= al "a") (command "l"))
(if (= al "e") (command "pline"))
(command (cdr (nth (1+ i) ed))) (princ "j")
(setq i (+ 3 i) al "l" temppt (cdr (nth (1- i) ed))) (princ "k")
)
(if(= (cdr (nth i ed)) 2) (progn (princ "l")
(if(= al "e") (progn (princ "m")
(command "arc" "c" (cdr (nth (1+ i) ed)))
(setq sang (cdr(nth (+ i 3) ed)) eang (cdr(nth(+ i 4)ed)))
(if (= (cdr (nth (+ i 5) ed)) 1)
(command (strcat "@" (rtos(cdr(nth(+ i 2)ed))) "<" (rtos (* 180 (/ eang pi))))
"a" (* 180 (/ (- (+ (* 2 pi) sang) (+ (* 2 pi) eang)) pi)))
(command (strcat "@" (rtos(cdr(nth(+ i 2)ed))) "<" (rtos (- 360 (* 180 (/ sang pi)))))
"a" (* 180 (/ (- (+ (* 2 pi) sang) (+ (* 2 pi) eang)) pi)))
) (princ "n")
(setq i (+ 6 i))
)(progn (princ "o")
(if (= al "l") (command temppt "a"))
(if (= (cdr (nth (+ i 5) ed)) 0)
(setq ccw (- (cdr (nth (+ i 3) ed)) (cdr (nth (+ i 4) ed))))
(setq ccw (- (cdr (nth (+ i 4) ed)) (cdr (nth (+ i 3) ed))))
) (princ "p")
(command "ce" (cdr (nth (1+ i) ed)) "a" (* (/ 180 pi) ccw)) (princ "q")
(setq i (+ 6 i) al "a")
)));end of else
(if(= (cdr(nth i ed))3) (progn (princ "r");begin ellipse part
(if (= al "l") (command temppt "")) (if (= al "a") (command ""))
(setq sang (cdr(nth(+ i 4)ed)) eang (cdr(nth(+ i 5)ed))) (princ "s")
(command "ellipse" "a" "c" (cdr(nth(1+ i)ed))
(strcat "@" (rtos(cadr(nth(+ 2 i)ed))) "," (rtos(caddr(nth(+ 2 i)ed))))
(* (cdr(nth(+ 3 i)ed)) (distance (cdr(nth(+ 2 i)ed)) (list 0 0 0)))) (princ "t")
(if(= 1 (cdr(nth(+ i 6)ed))) (command (* 180 (/ sang pi)) (* 180 (/ eang pi)))
(command (- 360(* 180 (/ eang pi))) (- 360(* 180 (/ sang pi))))
) (princ "u")
(setq al "e" i (+ i 7))
))))
) (command "cl") (princ "v\n")
))
(setq mark 0 mark2 0 mark3 0 temped nil ) (princ "w")
(repeat (length ed)
(setq i 0) (princ "x")
(if (and (= 93 (caar ed))(= 0 mark2)) (setq mark2 1 i 1))
(if (and (= 92 (caar ed))(= 0 mark)) (setq mark 1 i 1))
(if (= i 0) (setq temped (cons (car ed) temped))) (setq ed (cdr ed)) (princ "y")
) (setq ed (reverse temped))
) (princ "z")
(princ)
)

meflying

你的结果好象不对,看这个: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=36635