That is correct the plines could start at the base point, I believe CONS 10, that draw to the X or Y coords of each A object branching off as shown, in the picture above.
I found a command online that draws plines from a common base point that is selected, which I could use as a good starting point.
DEFUN C:PBB ()
(PROMPT "\n*POLYLINE BY BASEPOINT* ")
(SETQ BP (GETPOINT "Specify base point: "))
(SETQ LP 1)
(WHILE LP
(COMMAND "PLINE" BP)
(SETQ LP2 1)
(WHILE LP2
(IF (= (GETVAR "CMDACTIVE") 1)
(PROGN
(PROMPT "\nSpecify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: ")
(COMMAND PAUSE)
);END PROGN
(SETQ LP2 NIL)
);END IF
);END LP
);END LP
(PRINC)
);END PBB
Also, not to familiar with VLAX, some experience. While this draws a line to a curve, I think its cons 10 first point cons 11 second, etc.
I think some variation of this addition to that code could come i handy as well.
(entmake (list '(0 . "LINE") (cons 10 (trans BT 1 0))
(cons 11 (vlax-curve-getClosestPointTo entity (trans BT 1 0)))) ;_ list
) ;_ entmake