CAD中標(biāo)注序號(hào)的lisp程序

———CAD中標(biāo)注序號(hào)的lisp程序

當(dāng)我們?cè)谑褂肅AD軟件繪制圖紙時(shí)，我們的圖紙中許多對(duì)象都會(huì)使用到序號(hào)標(biāo)注，使圖紙更有條理性，關(guān)于序號(hào)標(biāo)注的lisp程序要了解下。那在浩辰CAD軟件中如何使用CAD標(biāo)注序號(hào)的lisp程序呢？今日就為大家簡(jiǎn)潔介紹下。

CAD中標(biāo)注序號(hào)的lisp程序：

我們利用浩辰CADLISP語(yǔ)言編制了BXH.LSP(標(biāo)序號(hào))，很好地解決了以上問(wèn)題，該程序?yàn)楹瞥紺AD增加了一條BXH命令，可便利地在圖紙中標(biāo)注序號(hào)，并且假如修改或刪除標(biāo)注也非常便利，工效提高十倍以上。依據(jù)該程序的編制原理，可演繹出訪用在機(jī)械制圖中標(biāo)注序號(hào)，標(biāo)注焊接符號(hào)等程序。

BXH.LSP源程序如下:

(defunC:Bxh(/p1p2p31ang1bxbxhraditxth);標(biāo)序號(hào)

(setqradi5);圓圈半徑

(setqtxth5);字高

(if(notbx)(setqbx1))

(setqp1(getpoint"n請(qǐng)選擇起點(diǎn):"));在零件上選一點(diǎn)

(setqp2(getpoint"n請(qǐng)選擇其次點(diǎn)或回車表示無(wú)其次點(diǎn)"));標(biāo)注位置處一點(diǎn)

(setqbxh(getint(gstr"n請(qǐng)輸入序號(hào)"bx)));序號(hào)數(shù)

(ifbxh(setqbxbxh))

(cond(p2

(command"layer""set"2"

");改到畫細(xì)線圖層

(setqang1(anglep1p2))

(setqp3(polarp1ang(-(distancep1p2)radi)));畫圓、線

(command"pline"

(polarp1ang10.25)

"w"0.50,5"A"

"CE"p1"A"359.9"L""W"00p3"")

(command"circle"p2radi)

(command"layer""set"6"

";改到寫文字圖層

"text""J""M"p2txth

0bx);寫文字

)

((notp2);假如在零件中直接標(biāo)注

(command"layer""set"2"

");改到畫細(xì)線圖層

(Command"circle"p1radi);畫圓

(command"layer""set"6"

";改到寫文字圖層

"text""J""M"p1txth

0bx);寫文字

)

)

(setqbx(+bx1))

(princ)

)

程序的使用方法，在Command:提示符下，鍵入(Load"BXH")回車后再鍵入BXH，然后按屏幕提示輸入對(duì)應(yīng)項(xiàng)即可。由于這個(gè)命令常常使用，建議把它裝在菜單文件，在ACAD.MNU適當(dāng)位置中加入一項(xiàng):

標(biāo)序號(hào)］^c^c(LOAD"BXH");BXH;用鼠標(biāo)點(diǎn)取最為便利。

以上就是在浩辰CAD軟件中，當(dāng)我們的圖紙中要使用到序號(hào)標(biāo)注的lisp程序的時(shí)候，我們可以通過(guò)上述內(nèi)容了解下相關(guān)的內(nèi)容。今日就介紹這么多了。安裝浩辰CAD軟件試試吧。更多CAD教程技巧，可關(guān)注浩辰CAD官網(wǎng)進(jìn)行查看。

當(dāng)我們?cè)谑褂肅AD軟件繪制圖紙時(shí)，我們的圖紙中許多對(duì)象都會(huì)使用到序號(hào)標(biāo)注，使圖紙更有條理性，關(guān)于序號(hào)標(biāo)注的lisp程序要了解下。那在浩辰CAD軟件中如何使用CAD標(biāo)注序號(hào)的lisp程序呢？今日就為大家簡(jiǎn)潔介紹下。

CAD中標(biāo)注序號(hào)的lisp程序：

我們利用浩辰CADLISP語(yǔ)言編制了BXH.LSP(標(biāo)序號(hào))，很好地解決了以上問(wèn)題，該程序?yàn)楹瞥紺AD增加了一條BXH命令，可便利地在圖紙中標(biāo)注序號(hào)，并且假如修改或刪除標(biāo)注也非常便利，工效提高十倍以上。依據(jù)該程序的編制原理，可演繹出訪用在機(jī)械制圖中標(biāo)注序號(hào)，標(biāo)注焊接符號(hào)等程序。

BXH.LSP源程序如下:

(defunC:Bxh(/p1p2p31ang1bxbxhraditxth);標(biāo)序號(hào)

(setqradi5);圓圈半徑

(setqtxth5);字高

(if(notbx)(setqbx1))

(setqp1(getpoint"n請(qǐng)選擇起點(diǎn):"));在零件上選一點(diǎn)

(setqp2(getpoint"n請(qǐng)選擇其次點(diǎn)或回車表示無(wú)其次點(diǎn)"));標(biāo)注位置處一點(diǎn)

(setqbxh(getint(gstr"n請(qǐng)輸入序號(hào)"bx)));序號(hào)數(shù)

(ifbxh(setqbxbxh))

(cond(p2

(command"layer""set"2"

");改到畫細(xì)線圖層

(setqang1(anglep1p2))

(setqp3(polarp1ang(-(distancep1p2)radi)));畫圓、線

(command"pline"

(polarp1ang10.25)

"w"0.50,5"A"

"CE"p1"A"359.9"L""W"00p3"")

(command"circle"p2radi)

(command"layer""set"6"

";改到寫文字圖層

"text""J""M"p2txth

0bx);寫文字

)

((notp2);假如在零件中直接標(biāo)注

(command"layer""set"2"

");改到畫細(xì)線圖層

(Command"circle"p1radi);畫圓

(command"layer""set"6"

";改到寫文字圖層

"text""J""M"p1txth

0bx);寫文字

)

)

(setqbx(+bx1))

(princ)

)

程序的使用方法，在Command:提示符下，鍵入(Load"BXH")回車后再鍵入BXH，然后按屏幕提示輸入對(duì)應(yīng)項(xiàng)即可。由于這個(gè)命令常常使用，建議把它裝在菜單文件，在ACAD.MNU適當(dāng)位置中加入一項(xiàng):

標(biāo)序號(hào)］^c^c(L