[编程交流] Princ到屏幕

;|  ARSQ, Area and Perimeter of Rectangle when Length and Width are known 
   
Variables 
len     Length of Rectangle 
wid           Width of Rectangle     |;
(defun c:arsq()
(setq len ( getreal "\nEnter Length Of Rectangle \n"))
(setq wid ( getreal "\nEnter Widh Of Rectangle \n"))
(setq peri (* len wid))
(princ (strcat "\nThe Area Of Rectangle is = " (rtos peri 2 4 ) " Sqm"))
(setq are (* 2 (+ len wid)))
(princ (strcat "\nThe Perimeter Of Rectangle is = " (rtos are 2 4 ) " Sqm"))
(princ)
)

(defun c:arsq (/ len wid pnt are per)
 (and (setq len (getreal "\nEnter Length Of Rectangle :"))
      (setq wid (getreal "\nEnter Widh Of Rectangle :"))
      (setq are (strcat "The Area Of Rectangle is = " (rtos (* len wid) 2 4) " Sqm"))
      (setq per (strcat "The Perimeter Of Rectangle is = " (rtos (* 2 (+ len wid)) 2 4) " Sqm"))
      (princ (strcat "\n" are))
      (princ (strcat "\n" per))
      (setq pnt (getpoint "\nSpecify text location :"))
      (entmake (list '(0 . "MTEXT") '(100 . "AcDbEntity") '(100 . "AcDbMText")
          (cons 10 (trans pnt 1 0))
          (cons 40 (* (getvar "DIMSCALE") 2.0))
          (cons 7 (getvar 'TEXTSTYLE))
          (cons 1 (strcat are "\\P" per))
        )
   )
 )
 (princ)
 )

command ".text"