(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 版以后；
原文：http://www.cnblogs.com/stono/p/4394540.html