Stationing to Attribute

[Lee Mac]

Close... oh so close...

 

For the value of 77.5725, the stationing would be 0+78, but it put the value of 77+57.

 

as another example, If the footage was 1058.4878, the stationing would be 10+58, 105687.4578 would be 1056+87.

 

Oh right - that wasn't so clear from your other posts so I took a wild guess at it, I'll look to revise the code.

[Lee Mac]

Updated...

[Ohnoto]

PERFECTO :-)

 

Sorry for the confusion on dividing by 100, sometimes the simplest things avoid my mind.

[Ohnoto]

I would like to add in a parameter that if the STA tag is blank, it won't put a value in the STA tag, how would I do that?

 

I tried this, and it didn't work.

 

(if (/= "STA" null)
(LM:SetAttributeValue o "STA" (vl-string-subst "+" "." (rtos (/ s 100.) 2 2))) 
)

[Lee Mac]

I tried this, and it didn't work.

 

(if (/= "STA" null)
(LM:SetAttributeValue o "STA" (vl-string-subst "+" "." (rtos (/ s 100.) 2 2))) 
)

 

"STA" is just a string, it will never be nil - you need to get the value associated with the attribute with tag "STA".

[Ohnoto]

Kinda what I thought, which would mean editting your defun code for applying an attribute, at the bottom, right?

[Lee Mac]

Replace:

 

(LM:SetAttributeValue o "STA" (vl-string-subst "+" "." (rtos (/ s 100.) 2 2)))

 

With:

 

(vl-some
 (function
   (lambda ( a )
     (and (eq (strcase (vla-get-tagString a)) "STA")
       (or (eq "" (vla-get-textstring a))
         (progn
           (vla-put-textstring a (vl-string-subst "+" "." (rtos (/ s 100.) 2 2))) t
         )
       )
     )
   )
 )
 (vlax-invoke o 'getattributes)
)

 

And remove the 'LM:SetAttributeValue' subfunction, since it is no longer required.

[Ohnoto]

Thank you.