绘制方框云线标注

(defun c:tt2 ()
(  (progn
   (command "_rectang" pause pause)   ;绘制长方形
   (setq en1 (entlast))              ;选择刚刚绘制的
   (command "_revcloud" "a" "1" "1" "s" "n" "o" "" en1 "n") ;绘制云线
   (command "mleader" pause pause  ) ;设置标注
)
(princ)
) 
)

 auto cad 2008 版以后；