;繪出兩條線之中心線
(defun c:TOM1()
(setvar "cmdecho" 0)
(setq en1 (entsel
"外側第一條線:"))
(setq en2 (entsel "另一外側第二條線:"))
(setq p1a (cdr (assoc 10
(entget (car en1)))))
(setq p1b (cdr (assoc 11 (entget (car en1)))))
(setq p2a (cdr (assoc 10 (entget (car en2)))))
(setq p2b (cdr (assoc 11
(entget (car en2)))))
(if (inters p1a p2a p1b p2b)
(command
"line" (midpt p1a p2b) (midpt p1b p2a) "")
(command "line" (midpt p1a
p2a) (midpt p1b p2b) "")
)
(command "chprop" "L" "" "lt" "center"
"c" 2 "")
(prin1)
)
(defun midpt(1% 2%)
(polar 1% (angle 1% 2%)
(*(distance 1% 2%)0.5))
)
(defun c:TOM1()
(setvar "cmdecho" 0)
(setq en1 (entsel
"外側第一條線:"))
(setq en2 (entsel "另一外側第二條線:"))
(setq p1a (cdr (assoc 10
(entget (car en1)))))
(setq p1b (cdr (assoc 11 (entget (car en1)))))
(setq p2a (cdr (assoc 10 (entget (car en2)))))
(setq p2b (cdr (assoc 11
(entget (car en2)))))
(if (inters p1a p2a p1b p2b)
(command
"line" (midpt p1a p2b) (midpt p1b p2a) "")
(command "line" (midpt p1a
p2a) (midpt p1b p2b) "")
)
(command "chprop" "L" "" "lt" "center"
"c" 2 "")
(prin1)
)
(defun midpt(1% 2%)
(polar 1% (angle 1% 2%)
(*(distance 1% 2%)0.5))
)