Excellent, Lee. Thanks for sharing.

You're welcome 

Curious, what is the order of the list that (_xrefhierarchy) returns? Is it random based on how tblnext finds the refs?

The order in which they are encountered in the block symbol table, in reverse (though, a simple sort could easily be applied).

Also, does it always list the "deepest" (child) references first, followed by any parent xrefs w child xrefs?

No - the list is merely the order in which they are encountered in the block symbol table; the nesting hierarchy is determined by recursively querying list items with multiple entries against the original list when printing the output.

Thanks.

I was thinking of using "vla-put-textwidth" but didn't figure it out.
Can anyone help?
Thanks again.

John, I coded for sample which is going to be copied like in my shown example... If you want 9.0 from bottom of room, just move sample for 4.5 upward and add small line for entering which connects sample and entering point... Sample is calculated the way that allows exiting pipe to be distanced from wall for 9.0 units from left wall side... So exiting and entering pipes are distanced at 9.0 units between each other... My picture explains everything, only you wanted to move sample for 4.5 upward; you must add small pipe line if you want or keep like you want and not like it is with my picture...
That's all, I hope it helps...
Regards...

hi~i read this https://www.theswamp.org/index.php?topic=34804

and has two questions about grread

1)

if i want to add else keyword into LM:UCS-ssget,how can i add it.

(setq size (LM:UCS-ssget (strcat "\n->[ARC(A)/CIRCLE(B)/ARC and CIRCLE(N)]
\n->Filter by:[radius size(R)/circle color(C)/circle linetype(L)]
\n->select object or[setting(S)]{now radius size" (rtos radius size) "now circle color" (rtos circle color) "now circle linetype" circle linetype "}:")))

if key A

(ssget (list '(0 . "ARC")))

if key B

(ssget (list '(0 . "CIRCLE")))

if key N

(ssget (list '(0 . "ARC,CIRCLE")))

if key R

enter radius size setting

(setq radius size (getreal))

then back (setq size (LM:UCS-ssget

if key C

enter circle color setting

(setq circle color (acad_colordlg 7))

then back (setq size (LM:UCS-ssget

if key L

enter circle linetype setting

(setq circle linetype (getstring))

then back (setq size (LM:UCS-ssget

if i key A and setting radius size=5 circle color=2 circle linetype="HIDDEN"

get (ssget (list '(0 . "ARC" (cons 40 5) (cons 62 2) (cons 6 "HIDDEN"))))

it can make it?

2) and grread can use both getstring and keyword , if enter getstring word not affected by keyword(if Key A can enter else funtoin but getstring word has "A"  alphabet.)

on grread funtion use Right click and Enter has different?

Thanks for the help.
And sorry for the late reply as too busy after Easter.

Another thought...
How to update the text width if it is an attribute in title blocks in a multi-page drawing?
Thanks.

Have you tried changing this line :
(setq sel (ssget '((0 . "INSERT") (2 . "BLK-01"))));BLK-01
To this :
(setq sel (ssget "_X" '((0 . "INSERT") (2 . "BLK-01"))));BLK-01
And then iterate through sel. set 'sel'...