[编程交流] 在每个项目前添加“\P”

; Attempt to type MTEXT:
; Construct list of strings, when done add "\P" between items, then entmake mtext with content of that list
; In user-speaking language: type rows for the mtext until done, then insert the mtext
(defun c:test ( / ans mtxt-list pt1)
(setq cont T)
(setq mtxt-list (list))
(initget "Finish")
; how to loop to type mtexts and pick points? (loop the loop)
(while cont ; loop to type rows
        (setq ans (getstring t "\nType a row for mtext or [Finish] : ")) ; ask for content of the row
        (cond
                ( (or (and (= ans "Finish") mtxt-list ) (and (= ans "FINISH") mtxt-list ) (and (= ans "F") mtxt-list ) (and (= ans "f") mtxt-list ) ) ; check if the list is not nil
                        (setq cont F) ; stop loop for typing rows
                        (setq pt1 (getpoint "\nSpecify insertion point for the mtext:"))
                        (M-Text pt1 (substr (vl-princ-to-string (reverse mtxt-list)) 2 (- (strlen (vl-princ-to-string mtxt-list)) 2)) ) ; removed first and last syntax
                )
                (t 
                        (setq mtxt-list (cons (strcat (substr "x\P" 2) ans) mtxt-list)) ; how to add "\P" infornt each item?
                        (print (reverse mtxt-list))(princ (strcat ", " (itoa (length mtxt-list)) " rows."))
                ); t
        );cond
);while
(princ)
);defun        
; LM
(defun M-Text (pt str)
(entmakex 
        (list 
                (cons 0 "MTEXT")         
                (cons 100 "AcDbEntity")
                (cons 100 "AcDbMText")
                (cons 10 pt)
                (cons 1 str)
                (cons 71 5)
        )
)
)

(defun c:test (/ go lst ans p)
 (setq go t lst "")
 (while (and go (setq ans (getstring t "\nType a row for mtext or [Enter to Finish] :")))
   (cond ((and (/= ans "") (eq (type ans) 'str))
          (setq lst (strcat lst ans "\\P"))
          )
         ((and (eq ans "")
               (/= lst "")
               (setq p (getpoint "\nSpecify insertion point for the mtext:"))
               )
          (entmakex (list '(0 . "MTEXT")
                          '(100 . "AcDbEntity")
                          '(100 . "AcDbMText")
                    (cons 10 (trans p 1 0))
                    (cons 1 lst)
                    '(71 . 5)
                    )) 
          (setq go nil))
         ((= ans "") (setq go nil))
         )
   )
 (princ)
 )

(defun c:test (/ go2 go lst ans p)
(setq go2 T)
(while go2
        (setq go T)
        (setq lst "")
        (while (and go (setq ans (getstring t "\nType a row for mtext or [Enter to Finish] :")))
                (cond 
                        ( (and (/= ans "") (eq (type ans) 'str))
                                (setq lst (strcat lst ans "\\P"))
                        )
                        
                        ( (and (eq ans "") (/= lst "") (setq p (getpoint "\nSpecify insertion point for the mtext:")))
                                (if (and
                                        (entmakex 
                                                (list 
                                                        '(0 . "MTEXT")
                                                        '(100 . "AcDbEntity")
                                                        '(100 . "AcDbMText")
                                                        (cons 10 (trans p 1 0))
                                                        (cons 1 lst)
                                                        '(71 . 5)
                                                )
                                        ) 
                                        (setq go nil)
                                )
                                (setq go2 T)
                                )
                        )
                        ( (= ans "")
                                (setq go nil)
                                (setq go2 F)
                        )
                ); cond
        ); sub-while
); main while
(princ)
);defun

(defun c:test (/ go2 go lst ans p)
(setq go2 T)
(while go2
        (setq go T)
        (setq lst "")
        (while (and go (setq ans (getstring t "\nType a row for mtext or [Enter to Finish] :")))
                (cond 
                        ( (and (/= ans "") (eq (type ans) 'str))
                                (setq lst (strcat lst ans "\\P"))
                        )
                        
                        ( (and (eq ans "") (/= lst "") (setq p (getpoint "\nSpecify insertion point for the mtext:")))
                                (if 
                                        (entmakex 
                                                (list 
                                                        '(0 . "MTEXT")
                                                        '(100 . "AcDbEntity")
                                                        '(100 . "AcDbMText")
                                                        (cons 10 (trans p 1 0))
                                                        (cons 1 lst)
                                                        '(71 . 5)
                                                )
                                        ) 
                                        (progn
                                                (setq go nil)
                                                (setq go2 T)
                                        )
                                )
                        )
                        ( (= ans "")
                                (setq go nil)
                                (setq go2 nil)
                        )
                ); cond
        ); sub-while
); main while
(princ)
);defun