autocad下繪制直線對稱中心線的方法

autocad下繪制直線稱中心線的法AutoCAD是前國內(nèi)應(yīng)用最廣范的CAD系統(tǒng)之一，AutoCAD能強大，是一個通用的平臺但如果不根據(jù)本專業(yè)的需要進(jìn)行二次開發(fā)用起來是很不方便的畫對稱中心線是機械設(shè)計中經(jīng)常遇到的一個問題。筆者用AutoLISP依國家標(biāo)準(zhǔn)開發(fā)了兩個程序很方便地解決直線對稱中心線的問題。第一個程序適用于兩條邊是連續(xù)直線的情況。使用方法是：用OAD命裝入GLS、LSP，行C:GSL，據(jù)屏幕提示，分別選擇兩邊，自動繪制出中心線。GSL、LSP:〔defunmid〔pt1pt2〕算兩點中點的功能函數(shù)〔setqpt〔mapcar'+pt1pt2〕〔setqpt〔mapcar'/pt'〔〕〕〔defunc:gsl/mcl1clcl2eptpt1pt2pt3pt4a〕〔WHILEM〔SETQCL1〔ENTSEL”選擇一條直線”〕〔condnotcl1”沒有發(fā)現(xiàn)實體”〕“LINE”cdr〔assoc0〔setqeentgetcarcl1〕〕〔prompt”\n所不是直線”〕〔〔prompt”到了第一條直線”〕〔setqmnil出環(huán)〕〕〕〔setqcl〔ssget〔nth0〔cdrcl1第一條直線的實體數(shù)據(jù)〔SETQM1〕〔WHILEM〔SETQCL2”選擇二條直線”〕〔ifcl2〔〔ssmemb〔carcl2〕〕〔progn〔princ”選擇復(fù)，重新選”〕〔setqcl2nil〕〕〕〕〔condnotcl2”沒有發(fā)現(xiàn)體或重復(fù)”〕”LINE”〔assoc0〔setqe〔entgetcarcl2〕〔prompt”所選是直線”〕〕〔〔prompt\n兩條線已經(jīng)擇完畢”〕

〔setqmnil退出循環(huán)〕〕〕第一直線兩端點的坐標(biāo)〔setqpt1〔〔assoc10e〕〔cdrassoc11e〕〔setqe〔〔取得第二條直線的實體數(shù)據(jù)第二直線兩端點的坐標(biāo)〔setqpt3〔〔assoc10e〕〔cdrassoc11e〕整端點〔〔interspt1pt3pt2pt4t〕〔setqptpt1pt1pt2pt2pt〕〕兩端中點坐標(biāo)〔setqpt1〔midpt1pt3〕〔setqpt2〔midpt2pt4〕〔setqa〔anglept1pt2〕；計算心線的傾角〔setqpt2〔polarpt2a2、〕；計算中心線的第一個端點〔setqpt1〔polarpt1〔pia〕、5〕〔command”layer”””5”設(shè)置心線層〔command”line”pt1pt2”畫中心線〕〔princ””〔Princ”\nforsymmetryline”〔princ〕第二個程序適用于階梯軸，階梯孔等各種情況。使用方法是：L命裝入GLS1LSP，運行C:GSL1，依據(jù)屏幕提示，分別選擇兩邊的端點，自動繪制出中心線。GSL1、〔defunmid〔pt1pt2〕〔setqpt〔mapcar'+pt1pt2〕〔setqpt〔mapcar'/pt'〔〕〕〔defunc:gsl1〔/p1p1p3p4a〕存環(huán)境變量〔setqos〔getvar”osmode”〕〔setqcm〔getvar”cmdecho”置環(huán)境變量〔setvar”osmode〕〔setvar”cmdecho”0〕次讀取兩條直線的端點〔initget1〕

〔setqp1〔getpoint”選第一條直線的第一個點”〕〔initget1〕〔setqp2〔getpoint”選第一條直線的第二個點”〕〔initget1〕〔setqp3〔getpoint”選第二條直線的第一個點”〕〔initget1〕〔setqp4〔getpoint”選第二條直線的第二個點”〕變〔setvar”osmode〕〔setqp1〔midp1p3〕〔setqp2〔midp2p4〕〔setqa〔anglep1p2〔setqp2〔polarp2a2、〕〔setqp1〔〔〕、〔command”l