text and mtext

[maahee]

 

(command "_text"  p13 0 (strcat "RISER" " " (rtos rh 2 3) //n"TREAD" " " (rtos t 2 3)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq sset9 (ssadd)) ; create blank / empty selection set 
(setq n 0)
(setq r 0) ;number
(repeat (* fln frn)
       (Setq dm (polar (nth r step-flight) (* pi 0.5) rl)) ;point
       (Setq bm (polar (nth (- (+ r (nth n fs-values)) 1)  step-flight) (* pi 0.5) rl)) ;point
       (setq r (+ r (nth n fs-values)))
(setq n (+ n 1))
(setq sset8 (ssadd)) ; create blank / empty selection set 
(command "line" dm bm "")
(ssadd (entlast) sset8)
(ssadd (entlast) sset9)
(command "_.offset" 0.045 sset8 "@1<90" "")

(command "_.fillet" "r" 0.020 (ssname sset8 0)(ssname sset9 n)))

(command "_.EXTEND" sset8 "" "f" (polar dm (* 3 pi 0.5) 0.075) (polar bm (* 3 pi 0.5) 0.075) """")
);repeat

text is written in a separate line in mtext and text

RISER 0.16

TREAD 0.30

 

(command  "_.fillet"  "r" 0.020 " " (ssname sset8 0)(ssname sset9 n))) cannot use the fillet function

Edited Wednesday at 06:22 PM by maahee

[BIGAL]

Possible 2 problems you can not use a variable name of "t" this is interpreted as the system variable TRUE, use say Tval. The other is Mtext may be a better way to go.

 

(command "_mtext"  p13 p13 (strcat "RISER " (rtos rh 2 3) "\n" "TREAD " (rtos tval 2 3)))