CAD繪制中心線的方法

———CAD繪制中心線的方法在我們繪制圖紙的過程中，我們圖紙中的中心點及中心線對我們的繪制總是很重要，當我們在鏡像等操作的時候也會使用到，因此我們在軟件使用CAD繪制中心線就很重要，詳細的操作過程是怎樣的呢

CAD繪制中心線的方法：

第一個程序適用于兩條邊是連續(xù)直線的狀況。使用方法是：用LOAD命令裝入GLS.LSP，運行C:GSL，依據(jù)屏幕提示，分別選擇兩邊，自動繪制出中心線。

GSL.LSP:

(defunmid(pt1pt2)計算兩點之中點的功能函數(shù)

(setqpt(mapcar'+pt1pt2))

(setqpt(mapcar'/pt'(222)))

)

(defunc:gsl/mcl1clcl2eptpt1pt2pt3pt4a)(SETQ

M1)

(WHILEM

(SETQCL1(ENTSEL"\n選擇第一條直線"))

(cond

((notcl1)(prompt"\n沒有發(fā)覺實體"))

((/="LINE"(cdr(assoc0(setqe(entget(car

cl1))))))

(prompt"\n所選不是直線")

)

(t(prompt"找到了第一條直線”)

(setqmnil)；退出循環(huán)

)

)

)

(setqcl(ssget(nth0(cdrcl1))))；取得第一條直線的實體數(shù)據(jù)

(SETQM1)

(WHILEM

(SETQCL2(ENTSEL"\n選擇其次條直線"))

(ifcl2

(if(ssmemb(carcl2)cl)

(progn

(princ"\n選擇重復，重新選擇")

(setqcl2nil)

)

)

)

(cond

((notcl2)(prompt"沒有發(fā)覺實體或重復"))

((／="LINE"(cdr

(assoc0(setqe(entget(carcl2))))))

(prompt"\n所選不是直線")

)

(t(prompt"\n兩條直線已經(jīng)選擇完畢")

(setqmnil)；；；退出循環(huán)

)

)

)

；；；取得第始終線兩端點的坐標

(setqpt1(cdr(assoc10e))pt2(cdr(assoc11e)))

(setqe(entget(carcl1)))；；取得其次條直線的實體數(shù)據(jù)

；；；取得其次直線兩端點的坐標

(setqpt3(cdr(assoc10e))pt4(cdr(assoc11e)))

；；調(diào)整端點

(if(interspt1pt3pt2pt4t)

(setqptpt1

pt1pt2

pt2pt

)

)

；；；計算兩端中點坐標

(setqpt1(midpt1pt3))

(setqpt2(midpt2pt4))

(setqa(anglept1pt2))；計算中心線的傾角

(setqpt2(polarpt2a2.5))；；計算中心線的第一個端點

(setqpt1(polarpt1(＋pia)

2.5))

(command"layer""SET"5"")；；設(shè)置中心線層

(command"line"pt1pt2"")；；畫出中心線

)

(princ"\nC:GSLhasloaded")

(Princ"\nforsymmetryline")

(princ)

其次個程序適用于階梯軸，階梯孔等各種狀況。使用方法是：用LOAD命令裝入GLS1.LSP，運行C:GSL1，依據(jù)屏幕提示，分別選擇兩邊的端點，自動繪制出中心線。

GSL1.LSP

(defunmid(pt1pt2)

(setqpt(mapcar'+pt1pt2))

(setqpt(mapcar'/pt'(222)))

)

(defunc:gsl1(/p1p1p3p4a)

；；保存環(huán)境變量

(setqos(getvar"osmode"))

(setqcm(getvar"cmdecho"))

；；設(shè)置環(huán)境變量

(setvar"osmode"33)

(setvar"cmdecho"0)

；；依次讀取兩條直線的端點

(initget1)

(setqp1(getpoint"\n選擇第一條直線的第一個點"))

(initget1)

(setqp2(getpoint"\n選擇第一條直線的其次個點"))

(initget1)

(setqp3(getpoint"\n選擇其次條直線的第一個點"))

(initget1)

(setqp4(getpoint"\n選擇其次條直線的其次個點"))

；；；；恢復環(huán)境變量

(setvar"osmode"os)

(setqp1(midp1p3))

(setqp2(midp2p4))

(setqa(anglep1p2))

(setqp2(polarp2a2.5))

(setqp1(polarp1(+pia)2.5))

(command"layer""set"5

"")

(command"line"p1p2"")

)

(princ"\nC:GSL1hasloaded")

(Princ"\nforsymmetryline")

Princ

以上就是在CAD繪圖軟件中，我們假如想知道圖紙中圖形的中心點，我們可以使用CAD繪制中心線，便利我們找到中心點的位置。今日就介紹這么多了。安裝浩辰CAD軟件試試吧。更多CAD教程技巧，可關(guān)注浩辰CAD官網(wǎng)進行查看。

在我們繪制圖紙的過程中，我們圖紙中的中心點及中心線對我們的繪制總是很重要，當我們在鏡像等操作的時候也會使用到，因此我們在軟件使用CAD繪制中心線就很重要，詳細的操作過程是怎樣的呢

CAD繪制中心線的方法：

第一個程序適用于兩條邊是連續(xù)直線的狀況。使用方法是：用LOAD命令裝入GLS.LSP，運行C:GSL，依據(jù)屏幕提示，分別選擇兩邊，自動繪制出中心線。

GSL.LSP:

(defunmid(pt1pt2)計算兩點之中點的功能函數(shù)

(setqpt(mapcar'+pt1pt2))

(setqpt(mapcar'/pt'(222)))

)

(defunc:gsl/mcl1clcl2eptpt1pt2pt3pt4a)(SETQ

M1)

(WHILEM

(SETQCL1(ENTSEL"\n選擇第一條直線"))

(cond

((notcl1)(prompt"\n沒有發(fā)覺實體"))

((/="LINE"(cdr(assoc0(setqe(entget(car

cl1))))))

(prompt"\n所選不是直線")

)

(t(prompt"找到了第一條直線”)

(setqmnil)；退出循環(huán)

)

)

)

(setqcl(ssget(nth0(cdrcl1))))；取得第一條直線的實體數(shù)據(jù)

(SETQM1)

(WHILEM

(SETQCL2(ENTSEL"\n選擇其次條直線"))

(ifcl2

(if(ssmemb(carcl2)cl)

(progn

(princ"\n選擇重復，重新選擇")

(setqcl2nil)

)

)

)

(cond

((notcl2)(prompt"沒有發(fā)覺實體或重復"))

((／="LINE"(cdr

(assoc0(setqe(entget(carcl2))))))

(prompt"\n所選不是直線")

)

(t(prompt"\n兩條直線已經(jīng)選擇完畢")

(setqmnil)；；；退出循環(huán)

)

)

)

；；；取得第始終線兩端點的坐標

(setqpt1(cdr(assoc10e))pt2(cdr(assoc11e)))

(setqe(entget(carcl1)))；；取得其次條直線的實體數(shù)據(jù)

；；；取得其次直線兩端點的坐標

(setqpt3(cdr(assoc10e))pt4(cdr(assoc11e)))

；；調(diào)整端點

(if(interspt1pt3pt2pt4t)

(setqptpt1

pt1pt2

pt2pt

)

)

；；；計算兩端中點坐標

(setqpt1(midpt1pt3))

(setqpt2(midpt2pt4))

(setqa(anglept1pt2))；計算中心線的傾角

(setqpt2(polarpt2a2.5))；；計算中心線的第一個端點

(setqpt1(polarpt1(＋pia)

2.5))

(command"layer""SET"5"")；；設(shè)置中心線層

(command"line"pt1pt2"")；；畫出中心線

)

(princ"\nC:GSLhasloaded")

(Princ"\nforsymmetryline")

(princ)

其次個程序適用于階梯軸，階梯孔等各種狀況。使用方法是：用LOAD命令裝入GLS1.LSP，運行C:GSL1，依據(jù)屏幕提示，分別選擇兩邊的端點，自動繪制出中心線。

GSL1.LSP

(defunmid(pt1pt2)

(setqpt(mapcar'+pt1pt2))

(setqpt(mapcar'/pt'(222)))

)

(defunc:gsl1(/p1p1p3p4a)

；；保存環(huán)境變量

(setqos(getvar"osmode"))

(setqcm(getvar"cmdecho"))

；；設(shè)置環(huán)境變量

(setvar"osmode"33)

(setvar"cmdecho"0)

；；依次讀取兩條直線的端點

(initget1)

(setqp1(getpoint"\n選擇第一條直線的第一個點"))

(initget1)

(setqp2(getpoint"\n選擇第一條直線的其次個點"))

(initget1)

(setqp3(getpoint"\n選擇其次條直線的第一個點"))

(initget1)

(setqp4(getpoint"\n選擇其次條直線的其次個點"))

；；；；恢復環(huán)境變量

(setvar"osmode"os)

(setqp1(midp1p3))

(setqp2(midp2p4))

(setqa(anglep1p2))

(setqp2(polarp2a2.5))

(setqp1(polarp1(+p