AutoCAD,CASS中標註閉合宗地實際畝數,這個功能在低版本cass、cad中沒有。現在我自己做了一個簡單的外掛可以實現這個功能。
工具/原料
cass7.1或者AutoCAD2004並安裝了vba環境
方法/步驟
首先開啟cass7.1,在命令列輸入vbaide,並回車,進入vba編輯環境。
在vba視窗左側上部工程視窗內部,右鍵選擇“插入”中的”模組“
在模組右側程式碼視窗中輸入如下內容:
Option Explicit
Sub bmjhs()
Dim entry As AcadEntity, basePnt As Variant
Dim textobj As AcadText, text As String
Dim height As Double, pd As Variant
ThisDrawing.Utility.GetEntity entry, basePnt, "選擇宗地線"
text = Format(entry.Area / 666.67, "0.00") '2000 * 3
height = 1.21'文字高度
pd = ThisDrawing.Utility.GetPoint(, "選擇面積註記位置")
Set textobj = ThisDrawing.ModelSpace.AddText(text, pd, height)
End Sub
雙擊左側工程視窗中AutoCAD物件中的ThisDrawing,可以看到右側程式碼視窗改變為空白。
在ThisDrawing的右側程式碼視窗中輸入如下內容:
Option Explicit
Public TestLoad As Boolean
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If Not TestLoad Then
ThisDrawing.SendCommand "(defun c:ss()(vl-vbarun ""bmjhs"")(princ))(princ)" & vbCr
TestLoad = True
End If
End Sub
點選左上的儲存按鈕儲存。在彈出的視窗中選擇儲存路徑和儲存的名字。
回到cad繪圖視窗。這個編輯的表宗地面積工程的vba巨集名為“bmjhs”,命令列呼叫命令自定義設定的是“ss”.
執行命令標註情況見圖。
標註的面積單位為畝,文字高設定的1.21,當然這些引數都可以修改。愛好開發的朋友可以自己根據喜好自行修改。
注意事項
具體操作中如果遇到問題可以聯絡我,大家互相學習交流。