looking for a line lable lisp

[shadow]

im looking for a line lable routine that would when given place a peice of singline text 6" from the midpoint of the line and the text would me middlecenter justified and would contain the length of the line in ft and inches and place this text on the same layer as the line

key is here it looks for lines on a specified layer given at the begining of the routine if everyone helps everybody the world will be a better place

 

[tigrek]

Depends on the drawing scale. Is it to be assumed
1 Drawing Unit (DU) = 1 ft ?
Kind of difficult to guess what scale is to be set in the plot dialog box.

 

[shadow]

not worried about that now just need text inserted into the drawing w/ justification of MC with the insertion point of the text 6" from the mid point of the line but i would like to be able to sellect all 504 of them and have it do it all at once im trying to peice a lsp together now but having a hard time figureing a few things oout like how to get text to insert w/ mc justification and get it to use the length of the line as the text info??? i would be very happy if you might just hint to me how to goabout it like give me an example and let me try to piece it together as im going to have to learn soon i can read lsp but cant write it )

is the way i get the text to input the length like this


(Command "_text" "j" "mc" "6"" "Rotation angle of line"("object.length&quot)

if this is right how do i get it to also find the rotation angle of the line and use this for the rotation of the text as well
would it be liek so

(Command "_text" "j" "mc" "6"" ("object.Angle&quot("object.length&quot)




if everyone helps everybody the world will be a better place

 

[shadow]

Yes tigrek assume drawing in model space is 1 to 1
1unit is 1 ft im working in arch units if everyone helps everybody the world will be a better place

 

[shadow]

tigrek
im going to start a new thread for this so that it better explains to everyone else what its about ok

ill Call it An Autolisp Lesson if everyone helps everybody the world will be a better place