文字加外框透過Acadpolyline.setBulge 方法去執行
如果不想要方方正正的外框的話可以嘗試用這個code去擬合
就會得到滿好看的圓角說明外框囉~
使用時需要先用thisdrawing.modelspace.addtext創ㄧ個textobj然後呼叫AddTextbox(textobj)
代碼:
Function AddTextBox(ByVal txtobj As Object)
Dim ldpt(2) As Double
Dim rupt(2) As Double
Set entobj = txtobj
Call entobj.GetBoundingBox(Min, Max)
r = Sqr((Max(0) - Max(0)) ^ 2 + (Max(1) - Min(1)) ^ 2)
ldpt(0) = Min(0) ...
↧