% text to a line that is inclined.

[hmsilva]

I am trying to assume % text to a line that is inclined.
The drawing is in 2D…

Is like this:

>Delta Y / delta X = H1
>H1 x 100 = (text)%)

Any ideas?

Thanks to all future responses.

Regards

Henrique

[BillZ]

The percent symbol is added by appending "%%%" to the string.

Bill

[Anonymous]

> The percent symbol is added by appending "%%%" to the string. Huh? (strcat "5" "%%%%") => "5%%%%"

[BillZ]

Tom,

I think we're talking about turning that value into a text entity.

Command: (strcat "Hello" "%%%")
"Hello%%%"

(command "text" (getpoint) "1" "0" (strcat "Hello" "%%%"))

Bill

[hmsilva]

I really need is to transform the line data to a percent value...

Thanks...

Henrique

[BillZ]

Not sure if this is what you mean:

Command: (setq H 37.00)
37.0

Command: (setq Total 124.00)
124.0

Command: (strcat (rtos (* (/ H Total) 100) 2 2) "%")
"29.84%"


Bill

[Anonymous]

> I really need is to transform the line data to a percent value... Assuming edata is the entity data returned from an entget, (defun percentslope (edata / p1 p2 dv dx dy) (setq p1 (trans (cdr (assoc 10 edata)) 0 1) p2 (trans (cdr (assoc 11 edata)) 0 1) dv (mapcar'- p2 p1) dx (car dv) dy (cadr dv)) (if (zerop dx) "Vertical" (strcat (rtos (* 100 (/ dy dx)) 2 2) "%"))) ;change the decimal precision as needed

[hmsilva]

I need a lisp that I pick a line and i get the inclination in percent in the xy plane...

Thanks anyway

Henrique

[Anonymous]

> I need a lisp that I pick a line and i get the inclination in percent in the xy plane... See my previous reply, plus this: (defun c:inclin (/ sset) (if (setq sset (ssget ":s:e" '((0 . "line")))) (princ (strcat "\n" (percentslope (entget (ssname sset 0)))))) (princ))

[hmsilva]

Thanks a lot!

Regards....

Henrique