[编程交流] 如何在中打印变量

(defun c:coord ( / e r)
       (prompt "\nchoose a onject!")
(setq e (entget (car (entsel))))
(setq r 1)
       (setq count 0)
(while r
   (setq e (entget (entnext (cdr (car e)))))
   
   (if (/= (cdr (assoc 0 e)) "SEQEND")
   
        (progn
        
          (terpri)
          
          (princ (cdr (assoc 10 e)))
          ;print the co-ordinates
          (setq count(1+ count))
        )
        (setq r nil)
        
   )
         )
 (prompt "\nThere are total " );In here how to print "There are total (count ;number) vertexes in this object."  
 (princ)
);defun
(princ)

(prompt (strcat "\nThere are total " (itoa count) " vertices in this object"))

(princ "\nThere are total ") (print (itoa count)) (princ " vertices in this object.")

(defun c:3dCoords  (/ i s e)
 (if (and (setq i 0 s (car (entsel "\nPick on 3Dpolyline :")))
          (member '(100 . "AcDb3dPolyline") (entget s))
          )
 (while (/= (cdr (assoc 0 (setq e (entget (setq s (entnext s)))))) "SEQEND")
       (terpri)
       (princ (cdr (assoc 10 e)))
       (setq i (1+ i))
     )      
   )
 (and (< 0 i) (princ (strcat "\nThere are total [ " (itoa i) " ] vertices in this object")))
 (princ)
)