警报中有多行文本

Lt Dan's l · 发表于 2022-7-6 11:02:43

我只是想有一个提醒弹出，但要多行。如何使文本返回右侧？

例子：
（提醒“你好吗？”）

结果：
你好
你好吗

alanjt · 发表于 2022-7-6 11:12:04

(alert "first line\nsecond line")

fixo · 发表于 2022-7-6 11:18:53

如果您有文本行列表，这将有所帮助

copy

 
(defun build_alert (lst / text)
  (alert
    (substr
      (setq text
      (apply 'strcat
      (mapcar
        '(lambda (x)
    (strcat x "\n")
  )
        lst
      )
      )
      )
      1
      (1- (strlen text))
    )
  )
)
;;usage
(build_alert '("alpha" "bravo" "charlie" "delta" "echo" "fixo"))

~'J'~

Lee Mac · 发表于 2022-7-6 11:24:53

copy


(defun build_alert ( lst / lst->str )
 (defun lst->str ( lst del )
   (if (cdr lst)
     (strcat (car lst) del (lst->str (cdr lst) del))
     (car lst)
   )
 )
 (alert (lst->str lst "\n"))
)