CAD中VBA操作多段線畫矩形

本文格式為Word版，下載可任意編輯——CAD中VBA操作多段線畫矩形VBA操作多段線畫矩形

在CAD中使用VBA畫多段線閉合的矩形。其實(shí)這個(gè)多段線圍起來(lái)，圍成一個(gè)矩形即可。

VBA中多段線是一串點(diǎn)，每個(gè)點(diǎn)使用兩個(gè)雙精度數(shù)值描述，這些數(shù)值連續(xù)放在數(shù)組中，就用ThisDrawing.ModelSpace.AddLightWeightPolyline(數(shù)組名)命令畫出一段多段線。畫出矩形，關(guān)鍵就是要控制好四個(gè)頂點(diǎn)。

本次測(cè)試中使用一條直線（用于定矩形的方向的基準(zhǔn)線）為參數(shù)畫出一個(gè)矩形。假使希望控制矩形的寬度，也可以再加其他控制條件。

提醒用戶畫矩形，選取第一個(gè)點(diǎn)（sp，這里的點(diǎn)其實(shí)是一個(gè)只有兩個(gè)元素的數(shù)組）

提醒用戶畫矩形，選取其次個(gè)點(diǎn)（ep）

由兩點(diǎn)算這條基準(zhǔn)線的長(zhǎng)度l、角度正弦sina和角度余弦cosa

l=sqr((sp(1)-ep(1))^2+(sp(0)-ep(0)^2))

sina=(ep(1)-sp(1))/lcosa=(ep(0)-sp(0))/l

由此可知，第三點(diǎn)坐標(biāo)p3（ep（0）+w*(-sina),ep(1)+w*cosa）進(jìn)而推得第四點(diǎn)p4（p3(0)+(-cosa)*l,p3(1)+(-sina)*l）最終還要連回第一點(diǎn)，古增加一個(gè)p5，和sp同一點(diǎn)。

于是這個(gè)數(shù)組組建完畢，總共是個(gè)數(shù)值，每?jī)蓚€(gè)數(shù)值對(duì)應(yīng)一個(gè)點(diǎn)，總共五個(gè)點(diǎn)。代碼實(shí)現(xiàn)如下：

SubRectang()OnErrorGoToESC

sp=ThisDrawing.Utility.GetPoint(,\起點(diǎn):\ep=ThisDrawing.Utility.GetPoint(sp,\終點(diǎn)：\

l=Sqr((sp(1)-ep(1))^2+(sp(0)-ep(0))^2)sina=-(sp(1)-ep(1))/dcosa=-(sp(0)-ep(0))/d

Dimp(1To10)AsDoublep(1)=sp(0)

p(2)=sp(1)‘第一點(diǎn)p(3)=p(1)+sl*cosap(4)=p(2)+sl*sina‘其次點(diǎn)p(5)=p(3)+sw*-sina

p(6)=p(4)+sw*(cosa)‘第三點(diǎn)p(7)=p(5)+sl*(-cosa)

p(8)=p(6)+sl*(-sina)‘第四點(diǎn)p(9)=p(1)

p(10)=p(2)‘第五點(diǎn)

Dimrect(0To0)AsAcadEntity

Setrect(0)=ThisDrawing.ModelSpace.AddLightWeightPolyline(p)ESC:

IfErrThenMsgBo