autolisp output single line problem

[kaplan46]

autolisp output is single line. I want to write a list article, I couldn't, can you help me? Thank you

 

 

; (setq output-str
(strcat
dn-eşdeğeri " - " (rtos input-val) " W\n"
(strcat " " (rtos Hızı 2 2) " m/s, " (rtos basınç kaybı)) 2 2) " Pa/m")))


  (setq pt (getpoint "\nMetin için ekleme noktasını seçin: "))


  (setq text (entmakex (list '(0 . "TEXT") (eksileri 10 pt) (eksileri 40 12) (eksileri 1 çıktı-str))))


  (setq pt2 (getpoint pt "\nMetin için dönüş noktasını seçin: "))


  ("_.döndür" metin nokta2 "" kesin (açı nokta nokta2) "")


  (prens)
)

 

 

Edited April 3, 2023 by SLW210
Added Code Tags!!

[mhupp]

Going to need a little more info.

Biraz daha fazla bilgiye ihtiyaç olacak.

[kaplan46]

Sonuç :

 

output : DN50-5000 W 0,66 m/s 180 pa/m  

 

desired output  :

DN50-5000 W

0,66 m/s

180 pa/m 

[devitg]

4 hours ago, kaplan46 said:

Sonuç :

 

output : DN50-5000 W 0,66 m/s 180 pa/m  

 

desired output  :

DN50-5000 W

0,66 m/s

180 pa/m 

@kaplan46 Please upload your sample.dwg where to apply the lisp , with BEFORE and AFTER

 

[BIGAL]

(alert "desired output  :\nDN50-5000 W\n0,66 m/s\n180 pa/m")

[devitg]

5 hours ago, BIGAL said:

(alert "desired output  :\nDN50-5000 W\n0,66 m/s\n180 pa/m")

@BIGAL This text , will not be Stacked 

 

(setq texto "\nDN50-5000 W\n0,66 m/s\n180 pa/m")

(setq pto (getpoint))

(setq stack-texto    (vla-AddText model texto (vlax-3d-point pto) 25     ))

 

 

Please clear us.

[kaplan46]

resolved

 

; Sonucu bir yazı olarak çizin

(setq output-str1 (strcat dn-equivalent " - " (strcat (strcat (substr (rtos input-val 2 0) 1 (- (strlen (rtos input-val 2 0)) 3)) ".") (substr (rtos input-val 2 0) (- (strlen (rtos input-val 2 0)) 2))) " W")
      output-str2 (strcat "" (rtos velocity 2 2) " m/s, " (rtos pressure-loss 2 0) " Pa/m"))

  ; Kullanıcıya sonucu yerleştirmesi için işaretçi değişkeni oluşturun
  (setq pt (getpoint "\nMetin için ekleme noktası seçin: "))
  (setq pt1 (polar pt (* pi 1.5) 18.0))

  ; Yazıyı belirlenen noktaya yerleştirin ve seçin
  (setq text (entmakex (list '(0 . "TEXT") (cons 10 pt) (cons 40 12) (cons 1 output-str1))))
  (setq text2 (entmakex (list '(0 . "TEXT") (cons 10 pt1) (cons 40 12) (cons 1 output-str2))))

  ; Kullanıcıya yazıyı döndürmesi için işaretçi değişkeni oluşturun
  (setq pt2 (getpoint pt "\nMetin için döndürme noktası seçin: "))

  ; Yazıyı belirlenen açıda döndürün
  (command "_.rotate" text text2 "" pt (angtos (angle pt pt2)))

  ; Sonucu kaydetmek için işleme bekleyin
  (princ)
)