【回帖精華】怎樣可以將圓形線的線變粗?

主題回顧 :

發現圓形線是不可以用PEDIT指令內的WIDTH將線變粗,請問有沒有其他方法?感謝

如果使用donut的話 巨集我該如何寫呢 ， 我是想創造 內徑 0 外徑 1 的實心圓

感謝分享,又得到一個繪圖時解決問題的好Lisp

最近主管才要求弧改有寬度的聚合線，先來試試看了

常會需要，謝謝分享，很有幫助

很好奇 來試試看 謝謝分享

我是用線寬來弄得，不知道還有何方法?

感謝大大分享好用方式

Option Explicit

Public tm As AcadModelSpace ' 設 tm 簡化名稱圖紙空間
Public tu As AcadUtility
Public pi As Double

Public Sub circle_donut()

On Error Resume Next

ThisDrawing.SendCommand "ucs" & vbCr & "w" & vbCr
ThisDrawing.SendCommand "undo" & vbCr & "be" & vbCr
pi = 3.141592 / 180

Set tm = ThisDrawing.ModelSpace: Set tu = ThisDrawing.Utility

Dim cir As AcadCircle
Dim center_p As Variant
Dim radius As Double
Dim width As Double

ThisDrawing.SendCommand "-osnap" & vbCr & "int" & vbCr ' 打開鎖點模式, 交點

center_p = tu.GetPoint(, "請選取中心點 !!")

If Err Then Exit Sub

radius = tu.GetReal("請輸入半徑 !!")

If radius = 0 Then Exit Sub

width = tu.GetReal("請輸入寬度 !!")

If width = 0 Then Exit Sub

' sendcommand 只接受字串, 所以圓中心的座標要先從數字轉換成字串
ThisDrawing.SendCommand "donut" & vbCr & radius * 2 & vbCr & radius * 2 + width & vbCr & _
                                   Trim(Str(center_p(0))) & "," & Trim(Str(center_p(1))) & vbCr

ThisDrawing.SendCommand "undo" & vbCr & "e" & vbCr

End Sub

好開心，找到可用的程式，這樣就省事多了。

感謝前輩大大無私地分享......感恩

感謝有這主題，最近也有用到

圓轉弧雖然操作起來不困難，但如果碰到一堆需要改的，真的需要巨集 or LSP 不然真的很花時間，感謝前輩的付出分享。

謝謝提供好東西

感謝分享，感謝大神們討論，需要圓轉聚合線的法子。謝謝

真是太好了，有我想要的答案