[编程交流] Getstring问题

(vl-load-com)
(setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object))
     spc (if (zerop (vla-get-activespace doc))
    (if (= (vla-get-mspace doc) :vlax-true)
      (vla-get-modelspace doc)
      (vla-get-paperspace doc))
    (vla-get-modelspace doc)))
(setq begin (getpoint "\nCenter of Cell: "))
(setq 3dpt (vlax-3d-POINT begin))
(if (setq inside (getstring T "\nContents within box: "))
 (while (= "" inside)
   (setq inside (getstring T "\nInvalid Input, Enter Contents within box: "))))
(setq slen (strlen inside))
(SETQ TEXT (VLA-ADDTEXT spc INSIDE 3dpt 0.09375))
(vla-put-alignment text 10)

(defun c:test ( / inside begin tobj ) (vl-load-com)
 
 (while (= "" (setq inside (getstring t "\nContents Within Box: ")))
   (princ "\n** You're doing it wrong **")
 )
 (if (setq begin (getpoint "\nPick that Center: "))
   (progn
     (setq tObj
       (vla-AddText
         (vlax-get-property (vla-get-ActiveDocument (vlax-get-acad-object))
           (if (= 1 (getvar 'CVPORT)) 'PaperSpace 'ModelSpace)
         )
         inside (vlax-3D-point begin) 0.09375
       )
     )
     (vla-put-Alignment tObj acAlignmentMiddleCenter)
     (vla-put-TextAlignmentPoint tObj (vlax-3D-point begin))
   )
 )
 (princ)
)

(defun c:test ( / inside begin )
 
 (while (= "" (setq inside (getstring t "\nContents Within Box: ")))
   (princ "\n** You're doing it wrong **")
 )
 (if (setq begin (getpoint "\nPick that Center: "))
   (entmakex
     (list
       (cons 0 "TEXT")
       (cons 10 begin)
       (cons 1 inside)
       (cons 40 0.09375)
       (cons 72 1)
       (cons 73 2)
       (cons 11 begin)
     )
   )
 )
 (princ)
)