Lisp :X-CrossLine For Door And Area

[Vuxvix]

Hi!

I use the lisp below to create X-CrossLine into space

(defun c:XC (/ P1 P2 P3 P4)

;set rectangle points
(setq P1 (getpoint "\nPick corner: "))
(setq P3 (getcorner P1 "\nPick opposite corner: "))
(setq P2 (list (car P1) (cadr P3)))
(setq P4 (list (car P3) (cadr P1)))

(command ".PLINE" P1 P3 "" ".PLINE" P2 P4 "")

(princ))

I also tried editing this lisp for Door. But there is an error when I snap it into the Door (no error when drawing freely in space)

(defun c:XC1 (/ P1 P2 P3 P4 Midpoint)
; set rectangle points
(setq P1 (getpoint "\nPick corner: "))
(setq P3 (getcorner P1 "\nPick opposite corner: "))
(setq P2 (list (car P1) (cadr P3)))
(setq P4 (list (car P3) (cadr P1)))
(setq Midpoint (list (car P3)(/ (+ (cadr P3) (cadr P4)) 2)))
(command ".PLINE" P1 Midpoint P2 "")
(princ))

 My way to create my desired object is to pick 2 points (like how to draw a rectangle)

Thanks for any help editing it.

[Vuxvix]

After reading and practicing a few more cases (Circle centertline, rectangle double center line...) . Setting osmode =0 to avoid objects created with lisp erroneously snapping points on "nearly" objects.

[WeTanks]

I see. Thanks 👍 

[WeTanks]

どうもありがとうございました。

👍

[Vuxvix]

どういたしまして。