平面圖樁號標註
平面圖樁號標註是平面圖的定線取完之後必經過程 生成流心的部分是透過設定取樣密度(流心連線距離)，去抓兩個邊界的中心點連線取得中心點，再將收集到的中心點連線而成。 圖中的定線(紅色線段)可能是AcadPolyline或者是AcadLWPolyline 兩者的差別僅在於Coordinates是否有Z值 大致上概念是將該多段線先任取兩點取得其"方位角"再用方位角+90度與方位角-90度取出橫斷面樁兩端點，再進行後續處理。 程式碼的概念都是幾何關係，滿滿的都是包括極坐標轉XY、方位角轉正角，XY轉方位角 有興趣者請參考以下程式碼~ UI介面： 圖面成果： 我比較偏愛這款(右樁標註+左樁標註+方向旗標) 程式碼： 'clsCL Private CAD As New clsACAD Private Math As New clsMath Private arrLen() As Variant Private arrLoc() As Variant Private collCLPt As New Collection Private CL As Object Private BL As Object Private pts As Variant Private CO As Byte Private totalLen As Double Public w As Double Public nowLoc As Double Public IsLeftShow As Boolean Public IsRightShow As Boolean Public NeedBox As Boolean Public NeedDir As Boolean Public BLnext As Double Const WIDTH_COE = 1.2 Private Sub Class_Initialize() Set lay = CAD.acaddoc.Layers.Add("橫斷面樁") lay.color = 4 'acCyan Set lay = CAD.acaddoc.Layers.Add(&qu