ahorng全球服務網

2007年5月6日星期日

標註每個尺寸上在加註+2M(AutoCAD)

前言: 標註每個尺寸上在加註+2M，實作方法有2一為作一個TOOLBARS可以點選標註尺寸;二為寫一個程式

a1.Menu內容如下(dimceci.mnu):

***MENUGROUP=dimcecix

***TOOLBARS

**dimceci

ID_adim_0 [_Toolbar("dimceci", _Floating, _Show, 100, 100, 1)]

ID_dim2m_0 [_Button("加註2M", "RCDATA_16_DIMLIN", "RCDATA_16_BLANK")]^C^C(command "_dimlinear" pause pause "T" "<>+2M")

***HELPSTRINGS

//dimceci

ID_dim2m_0 [每個尺寸上在加註+2M: (command "_dimlinear" pause pause "T" "<>+2M")]

a2.下指令:menuload載入如上的menu檔(按,[瀏覽]選取檔案,按,[載入]/[關閉])

b1.寫一支程式內容如下(dimceci.lsp):

(princ "n每個尺寸上在加註+2M n command: dimceci")

(defun c:dimceci ( / ent ent_data pt-align)

(command "_dimlinear" pause pause "T" "<>+2M")

(princ)

)

b2.載入後下指令dimceci,完成畫面如下