;;;
(defun APM (/ PT1 PT2 MPT) ; apparent mid point
(setq OOM (getvar "osmode"))
(setvar "osmode" 0)
(prompt "\nMidPoint of 2 points")
(initget (+ 1 32))
(setq PT1 (getpoint "\nFirst point: "))
(setq PT2 (getpoint PT1 "\nSecond point: "))
(setq ANG (angle PT1 PT2))
(setq MPT (polar PT1 ANG (/ (distance PT1 PT2) 2)))
(setvar "osmode" OOM)
MPT
)
;;;
(defun From (/ PT1 PT2) ; apparent distance from
(setq OOM (getvar "osmode") OBM (getvar "blipmode"))
(setvar "blipmode" 0)
(setvar "osmode" 0)
(initget (+ 1 32))
(setq PT1 (getpoint "\nBase point: "))
(setq Pt2 (getpoint PT1 "\nNext point "))
(setvar "blipmode" OBM)
(setvar "osmode" OOM)
Pt2
)
;;;
(defun API (/ Sel1 Sel2) ; apparent intersection
(setq OOM (getvar "osmode"))
(setvar "osmode" 0)
(while (= Sel1 nil) (prompt "\nPick first line ") (setq Sel1 (entsel)))
(while (= Sel2 nil) (prompt "\nPick second line ") (setq Sel2 (entsel)))
(setq SP1 (cdr (assoc 10 (entget (car Sel1)))) EP1 (cdr (assoc 11 (entget (car Sel1))))
SP2 (cdr (assoc 10 (entget (car Sel2)))) EP2 (cdr (assoc 11 (entget (car Sel2))))
)
(setq APINT (inters SP1 EP1 SP2 EP2 nil))
(setvar "osmode" OOM)
APINT
)
;;;