久久天天躁狠狠躁夜夜躁2014,极品人妻老师的娇喘呻吟,后入内射欧美99二区视频,久久国产劲爆∧v内射,久久精品国产亚洲一区二区

CAD > CAD行業(yè)教程> CAD圖文教程> 文章詳情

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

2019-07-26 6662 CAD標(biāo)注  

當(dāng)我們?cè)谑褂?/span>CAD軟件繪制圖紙時(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)),很好地解決了以上問題,該程序?yàn)楹瞥?span>CAD增加了一條BXH命令,可方便地在圖紙中標(biāo)注序號(hào),并且如果修改或刪除標(biāo)注也十分方便,工效提高十倍以上。根據(jù)該程序的編制原理,可演繹出使用在機(jī)械制圖中標(biāo)注序號(hào),標(biāo)注焊接符號(hào)等程序。
BXH.LSP源程序如下:
(defun C:Bxh (/ p1 p2 p3 1 ang 1 bx bxh radi txth) ;標(biāo)序號(hào)
(setq radi 5) ;圓圈半徑
(setq txth 5) ;字高
(if (not bx) (setq bx 1))
(setq p1 (getpoint "n請(qǐng)選擇起點(diǎn):")) ;在零件上選一點(diǎn)
(setq p2 (getpoint "n請(qǐng)選擇第二點(diǎn)或回車表示無(wú)第二點(diǎn)")) ;標(biāo)注位置處一點(diǎn)
(setq bxh (getint (gstr "n請(qǐng)輸入序號(hào)" bx))) ;序號(hào)數(shù)
(if bxh (setq bx bxh))
(cond (p2
(command "layer" "set" 2 " ") ;改到畫細(xì)線圖層
(setq ang 1 (angle p1 p2))
(setq p3 (polar p1 ang (-(distance p1 p2) radi))) ;畫圓、線
(command "pline"
(polar p1 ang 1 0.25)
"w" 0.5 0,5 "A" "CE"p1"A"359.9"L""W"0 0 p3"")
(command"circle"p2 radi)
(command "layer" "set" 6 " " ;改到寫文字圖層
"text" "J" "M" p2 txth 0 bx) ;寫文字
)
((not p2) ;如果在零件中直接標(biāo)注
(command "layer" "set" 2 " ") ;改到畫細(xì)線圖層
(Command "circle" p1 radi) ;畫圓
(command "layer" "set" 6 " " ;改到寫文字圖層
"text" "J" "M" p1 txth 0 bx) ;寫文字
)
)
(setq bx (+ bx 1))
(princ)
)
程序的使用方法,在Command:提示符下,鍵入(Load"BXH")回車后再鍵入BXH,然后按屏幕提示輸入對(duì)應(yīng)項(xiàng)即可。因?yàn)檫@個(gè)命令經(jīng)常使用,建議把它裝在菜單文件,在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í)候,我們可以通過上述內(nèi)容了解下相關(guān)的內(nèi)容。今天就介紹這么多了。安裝浩辰CAD軟件試試吧。更多CAD教程技巧,可關(guān)注浩辰CAD官網(wǎng)進(jìn)行查看。

相關(guān)文章推薦
Copyright © 1992-2021 蘇州浩辰軟件股份有限公司 版權(quán)所有 蘇ICP備12077906號(hào)-1 增值電信業(yè)務(wù)經(jīng)營(yíng)許可證: 蘇B2-20210241 蘇公網(wǎng)安備 32059002004222號(hào)