this is a prog tomake the leader objetcs

auotcad lisp 自動歸類圖層 (CClay "DIM標註" 3 "DIMENSION") ;; 這句表示:將DIMENSION標注 物件歸類到 3 綠色 ，圖層 DIM (CClay "Text" 1 "Text");; 這句表示:將 Text單行文字 物件歸類到 1 紅色 ， 圖層 Text (CClay "MText" 1 "Mtext");; 這句