AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Io15011 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-310 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oiu15010 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-211 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oo-2-110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 BPl3tjj

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

+36
cat234
EVONNE
zzzcccax
kit92064
edmondsforum
arch1013
jimmulu
dd0916
zhujinshan
hkjyiuop
lingo_st
wawhch
米虫一號
老水牛
fuju
it930
fu4shu
westlake
tarpon
香香寶貝愉
lsj
Andy.Lin
jaterfor
aaaaaa1111
adslwang
DARDAR
regina
dio888chen
以西杰
bruce79
JerryJr
Tiger&蘋果爸
judyyai
小秦
阿希
flok
40 posters

3頁(共3頁) 上一頁  1, 2, 3

向下

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

發表 由 flok 2009-01-06, 10:59

主題回顧 :

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


Tiger&蘋果爸 在 2010-02-12, 09:46 作了第 5 次修改
flok
flok
初級會員
初級會員

文章總數 : 111
年齡 : 44
來自 : Hong Kong
職業 : 繪圖員
愛好 : 運動,打機,看漫畫及模型玩具,聽歌電影
個性 : 比較小說話,常常要做到最完美的人
使用年資 : 十年
使用版本 : 2011
積分 : 1
經驗值 : 5100
威望值 : 30
注冊日期 : 2008-11-03
男 天秤座 蛇

回頂端 向下


【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Empty 回復: 【回帖精華】怎樣可以將圓形線的線變粗?

發表 由 edmondsforum 2019-07-07, 02:02

如果使用donut的話 巨集我該如何寫呢 , 我是想創造 內徑 0 外徑 1 的實心圓
edmondsforum
edmondsforum
一般會員
一般會員

文章總數 : 17
年齡 : 31
來自 : 台中
職業 : 水保顧問
愛好 : 電玩
個性 : 隨和、
使用年資 : 2年
使用版本 : autocad 2008 ,autocad 2017
經驗值 : 1636
威望值 : 0
注冊日期 : 2017-07-11
男 白羊座 馬

回頂端 向下

【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Empty 回復: 【回帖精華】怎樣可以將圓形線的線變粗?

發表 由 kit92064 2019-10-28, 13:57

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

文章總數 : 44
年齡 : 46
來自 : 高雄
職業 :
愛好 : 閱讀
個性 : 普通
使用年資 : 20
使用版本 : 2016
經驗值 : 4252
威望值 : 0
注冊日期 : 2010-08-09
女 摩羯座 虎

回頂端 向下

【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Empty 回復: 【回帖精華】怎樣可以將圓形線的線變粗?

發表 由 zzzcccax 2019-12-24, 14:58

最近主管才要求弧改有寬度的聚合線,先來試試看了
zzzcccax
zzzcccax
一般會員
一般會員

文章總數 : 11
年齡 : 31
來自 : 台中市
職業 : 水電繪圖員
愛好 : 電影
個性 : 開朗
使用年資 : 2year
使用版本 : 2020
經驗值 : 1443
威望值 : 0
注冊日期 : 2017-12-09
男 水瓶座 馬

回頂端 向下

【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Empty 回復: 【回帖精華】怎樣可以將圓形線的線變粗?

發表 由 EVONNE 2020-01-08, 08:23

常會需要,謝謝分享,很有幫助
EVONNE
EVONNE
初級會員
初級會員

文章總數 : 95
年齡 : 53
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 4166
威望值 : 36
注冊日期 : 2011-07-18
藍鵲329號
女 天秤座 猴

回頂端 向下

【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Empty 回復: 【回帖精華】怎樣可以將圓形線的線變粗?

發表 由 cat234 2020-01-08, 13:24

很好奇 來試試看 謝謝分享
cat234
cat234
一般會員
一般會員

文章總數 : 45
年齡 : 33
來自 : 台中
職業 : 建築
愛好 : 上網
個性 : 內向
使用年資 : 3
使用版本 : 2008
經驗值 : 4257
威望值 : 12
注冊日期 : 2010-07-22
藍鵲47號
男 雙魚座 龍

回頂端 向下

【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Empty 回復: 【回帖精華】怎樣可以將圓形線的線變粗?

發表 由 STEC 2020-07-23, 17:55

我是用線寬來弄得,不知道還有何方法?
STEC
STEC
一般會員
一般會員

文章總數 : 4
年齡 : 43
來自 : 台北
職業 : 待業
愛好 : 發呆
個性 : 好相處
使用年資 : 2
使用版本 : 2018
經驗值 : 1373
威望值 : 0
注冊日期 : 2018-01-08
男 水瓶座 馬

回頂端 向下

【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Empty 回復:【回帖精華】怎樣可以將圓形線的線變粗?

發表 由 狗狗 2021-03-22, 17:02

感謝大大分享好用方式
狗狗
狗狗
一般會員
一般會員

文章總數 : 51
年齡 : 37
來自 : 台中市
職業 : 水電圖
愛好 : 畫畫
個性 : 好學
使用年資 : 幾個月
使用版本 : 2010
經驗值 : 4164
威望值 : 24
注冊日期 : 2011-02-26
藍鵲280號
女 雙魚座 鼠

回頂端 向下

【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Empty 用類似畫圓的方式來執行 donut 指令畫有寬度的圓

發表 由 shackle_2005 2021-03-22, 21:16

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
附件
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Attachment
circle_donut.zip 您無權下載這里的附件。(11 Kb) 下載 2 次
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 217
年齡 : 50
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 5499
威望值 : 322
注冊日期 : 2010-09-20
男 獅子座 豬

回頂端 向下

【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Empty 回復: 【回帖精華】怎樣可以將圓形線的線變粗?

發表 由 Pauline 2021-04-28, 10:42

好開心,找到可用的程式,這樣就省事多了。
Pauline
Pauline
初級會員
初級會員

文章總數 : 64
年齡 : 53
來自 : 臺北市
職業 : 工程製圖相關技術支援
愛好 : 上網找知識
個性 : 普普
使用年資 : 10↑
使用版本 : 2007~2018
積分 : 1
經驗值 : 4465
威望值 : 57
注冊日期 : 2010-04-28
藍鵲738號
女 水瓶座 猴

回頂端 向下

3頁(共3頁) 上一頁  1, 2, 3

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Uos15010 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 BPl3tjj 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ziao1510 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oo-2-110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oooo-110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-211