(defun c:x
( / a i m p q v
) (setq i
"Horizontal Vertical Angle Exit" m "\nPick 1st point for xline [Horizontal/Vertical/Angle/Exit] <Exit>: "
)
'(
(000 . "LAYER")
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbLayerTableRecord")
(002 . "XLINE")
(070 . 0)
(006 . "Continuous")
(062 . 96)
(290 . 0)
(370 . -3)
)
)
)
( (= "Point" p)
i "Horizontal Vertical Angle Exit"
m "\nPick 1st point for xline [Horizontal/Vertical/Angle/Exit] <Exit>: "
)
)
( (= "Horizontal" p)
i "Vertical Point Angle Exit"
m "\nPick point for horizontal xline [Vertical/Point/Angle/Exit] <Exit>: "
)
)
( (= "Vertical" p)
i "Horizontal Point Angle Exit"
m "\nPick point for vertical xline [Horizontal/Point/Angle/Exit] <Exit>: "
)
)
( (= "Angle" p)
i "Horizontal Vertical Point Angle Exit"
m
(strcat "\nPick point for " (angtos a
) " xline [Horizontal/Vertical/Point/Angle/Exit] <Exit>: ") )
)
)
( v
'(0 . "XLINE")
'(8 . "XLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbXline")
)
)
)
)
'(0 . "XLINE")
'(8 . "XLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbXline")
)
)
)
)
)
)