URGENT HELP - RECDIM WITH LAYER INFO

[angelteh86]

Hi... I really need help... I need someone to help include one more column "Layer" as the 4th column to this RECDIM lisp. I am really no good with this so if there is anyone who can help me I will be so grateful...

Many many thanks

[paullimapa]

I actually modified this to include the layer column in 2018 on this post:

Solved: Gather rectangular dimension with layer name - Autodesk Community

But looks like color order has been added since then so now I've updated your revised version to include the Layer column.

[angelteh86]

Hi I have tried it but the dimensions for lengths of the rectangles are not correct after the layer info is included in the lisp. I have attached a screenshot of said issue.

[angelteh86]

I have also attached a sample dwg for you...

[paullimapa · Accepted solution]

I've think I've resolved the problem.

After running the updated lisp routine (reuploaded in previous post) the Table with the Layer name vs without should now look like this:

[angelteh86]

omg... thank you so much... it is working as it should be... 😅 though there is actually one more feature i would like to include... i.e., to have the layer text put in the middle of the rectangles... i have attached both the screenshot as well as the sample dwg... is that even possible? 😅

[angelteh86]

the nature of my work requires that each member/component of the structure to be labelled for "visibility". doing them one by one is really taking up too much time.

[paullimapa]

Glad that worked out for you. 
To get maximum feedback perhaps you should start a new post with this request on placing the name of the rectangles layer to fit in the middle and rotated 

[angelteh86]

I take on your advice... and many thanks for the previous lisp...

[paullimapa]

You are welcome..,cheers!!!

[Sea-Haven]

Something like this.

(defun c:wow ( / obj cen lay )
  (setvar 'textstyle "Standard")
  (setvar 'textsize 2.5)
  (while (setq obj (vlax-ename->vla-object (car (entsel "\nPick rectang object "))))
   (setq cpt (osnap (vlax-curve-getStartPoint obj) "gcen"))
   (setq lay (vlax-get obj 'layer))
   (command "Text" "J" "MC" cpt "" 0.0 lay)
  )
(princ)
)

 Need to set text size, style and possibly set the variable Angbase or change angle, as well as set a layer for the layer name.

[angelteh86]

Hi... thanks for the suggestion but I am "coding-illiterate". I only know how to use them but I do not know how to code/write the lisp. I am relying on expert/specialist like your goodself to help me with it... 😭