【回帖精華】怎樣可以將圓形線的線變粗?
+45
powerfly
廖阿吉
jkop
skylark
rickyyang
Pauline
shackle_2005
狗狗
STEC
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
49 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第3頁(共3頁)
【回帖精華】怎樣可以將圓形線的線變粗?
主題回顧 :
發現圓形線是不可以用PEDIT指令內的WIDTH將線變粗,請問有沒有其他方法?感謝
發現圓形線是不可以用PEDIT指令內的WIDTH將線變粗,請問有沒有其他方法?感謝
Tiger&蘋果爸 在 2010-02-12, 09:46 作了第 5 次修改
flok- 初級會員
- 文章總數 : 111
年齡 : 47
來自 : Hong Kong
職業 : 繪圖員
愛好 : 運動,打機,看漫畫及模型玩具,聽歌電影
個性 : 比較小說話,常常要做到最完美的人
使用年資 : 十年
使用版本 : 2011
積分 : 1
經驗值 : 6266
威望值 : 30
注冊日期 : 2008-11-03
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
如果使用donut的話 巨集我該如何寫呢 , 我是想創造 內徑 0 外徑 1 的實心圓
edmondsforum- 一般會員
- 文章總數 : 19
年齡 : 34
來自 : 台中
職業 : 水保顧問
愛好 : 電玩
個性 : 隨和、
使用年資 : 2年
使用版本 : autocad 2008 ,autocad 2017
經驗值 : 2812
威望值 : 0
注冊日期 : 2017-07-11
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
感謝分享,又得到一個繪圖時解決問題的好Lisp
kit92064- 一般會員
- 文章總數 : 44
年齡 : 49
來自 : 高雄
職業 : 工
愛好 : 閱讀
個性 : 普通
使用年資 : 20
使用版本 : 2016
經驗值 : 5418
威望值 : 0
注冊日期 : 2010-08-09
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
最近主管才要求弧改有寬度的聚合線,先來試試看了
zzzcccax- 一般會員
- 文章總數 : 12
年齡 : 34
來自 : 台中市
職業 : 水電繪圖員
愛好 : 電影
個性 : 開朗
使用年資 : 2year
使用版本 : 2020
經驗值 : 2614
威望值 : 0
注冊日期 : 2017-12-09
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
常會需要,謝謝分享,很有幫助
EVONNE- 初級會員
- 文章總數 : 108
年齡 : 56
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 5383
威望值 : 36
注冊日期 : 2011-07-18
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
很好奇 來試試看 謝謝分享
cat234- 一般會員
- 文章總數 : 51
年齡 : 36
來自 : 台中
職業 : 建築
愛好 : 上網
個性 : 內向
使用年資 : 3
使用版本 : 2008
經驗值 : 5449
威望值 : 12
注冊日期 : 2010-07-22
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
我是用線寬來弄得,不知道還有何方法?
STEC- 一般會員
- 文章總數 : 4
年齡 : 46
來自 : 台北
職業 : 待業
愛好 : 發呆
個性 : 好相處
使用年資 : 2
使用版本 : 2018
經驗值 : 2539
威望值 : 0
注冊日期 : 2018-01-08
回復:【回帖精華】怎樣可以將圓形線的線變粗?
感謝大大分享好用方式
狗狗- 一般會員
- 文章總數 : 61
年齡 : 40
來自 : 台中市
職業 : 水電圖
愛好 : 畫畫
個性 : 好學
使用年資 : 幾個月
使用版本 : 2010
經驗值 : 5383
威望值 : 24
注冊日期 : 2011-02-26
用類似畫圓的方式來執行 donut 指令畫有寬度的圓
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
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
- 附件
shackle_2005- 初級會員
- 文章總數 : 232
年齡 : 53
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6773
威望值 : 361
注冊日期 : 2010-09-20
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
好開心,找到可用的程式,這樣就省事多了。
Pauline- 初級會員
- 文章總數 : 65
年齡 : 56
來自 : 臺北市
職業 : 工程製圖相關技術支援
愛好 : 上網找知識
個性 : 普普
使用年資 : 10↑
使用版本 : 2007~2018
積分 : 1
經驗值 : 5634
威望值 : 57
注冊日期 : 2010-04-28
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
感謝前輩大大無私地分享......感恩
rickyyang- 專屬會員
- 文章總數 : 196
年齡 : 46
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 17
使用版本 : AutoCAD 2023
經驗值 : 4606
威望值 : 36
注冊日期 : 2014-11-11
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
JerryJr 寫到:這裡提供一個LISP,可將多個圓物件轉成有寬度的聚合線
(defun c:cirw()
(setvar "cmdecho" 0)
(setq ww (getdist "\n寬度 <1>: "))
(if (= ww nil) (setq ww 1.0))
(setq ss (ssget))
(setq s 0)
(repeat (sslength ss)
(setq ssn (ssname ss s))
(setq entyp (cdr (assoc 0 (entget ssn))))
(cond ((= entyp "CIRCLE") (progn
(setq rr (cdr (assoc 40 (entget ssn))))
(setq cen (cdr (assoc 10 (entget ssn))))
(command "donut" (* 2 (- rr (/ ww 2))) (* 2 (+ rr (/ ww 2))) cen "")
(command "erase" ssn "")
))
((= entyp "LINE") (command "pedit" ssn "y" "w" ww ""))
((= entyp "ARC") (command "pedit" ssn "y" "w" ww ""))
((= entyp "LWPOLYLINE") (command "pedit" ssn "w" ww ""))
((= entyp "POLYLINE") (command "pedit" ssn "w" ww ""))
)
(setq s (1+ s))
)
)
程式下載(網址回覆可見):
skylark- 一般會員
- 文章總數 : 7
年齡 : 56
來自 : 台中
職業 : 消防
愛好 : 聽音樂
個性 : 互相研究
使用年資 : 1年
使用版本 : 新手
經驗值 : 1033
威望值 : 6
注冊日期 : 2022-03-13
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
感謝有這主題,最近也有用到
EVONNE- 初級會員
- 文章總數 : 108
年齡 : 56
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 5383
威望值 : 36
注冊日期 : 2011-07-18
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
圓轉弧雖然操作起來不困難,但如果碰到一堆需要改的,真的需要巨集 or LSP 不然真的很花時間,感謝前輩的付出分享。
jkop- 一般會員
- 文章總數 : 78
年齡 : 43
來自 : 基隆
職業 : 儀電設計
愛好 : 網遊、下載
個性 : 簡單、輕鬆、安靜
使用年資 : 5年
使用版本 : 2018
經驗值 : 3015
威望值 : 18
注冊日期 : 2017-09-13
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
謝謝提供好東西
廖阿吉- 一般會員
- 文章總數 : 6
年齡 : 41
來自 : 台中
職業 : 待業
愛好 : 看電視
個性 : 溫和
使用年資 : 20
使用版本 : 2018
經驗值 : 1207
威望值 : 0
注冊日期 : 2021-09-11
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
感謝分享,感謝大神們討論,需要圓轉聚合線的法子。謝謝
powerfly- 一般會員
- 文章總數 : 42
年齡 : 42
來自 : 新北市
職業 : 室內專業美化施工人員
愛好 : 看東看西.無定性
個性 : 舉棋不定
使用年資 : 8YEAR
使用版本 : 2011
經驗值 : 5288
威望值 : 21
注冊日期 : 2011-01-06
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
真是太好了,有我想要的答案
黃智偉- 一般會員
- 文章總數 : 10
年齡 : 40
來自 : 高雄市楠梓區
職業 : 待業中
愛好 : 建模
個性 : 內向
使用年資 : 3個月
使用版本 : 2021
經驗值 : 299
威望值 : 0
注冊日期 : 2024-03-30
fastlover1220- 一般會員
- 文章總數 : 3
年齡 : 39
來自 : taipei
職業 : 無
愛好 : 看動漫釣魚
個性 : 普通
使用年資 : 3
使用版本 : 2019
經驗值 : 996
威望值 : 0
注冊日期 : 2022-03-28
回復: 【回帖精華】怎樣可以將圓形線的線變粗?
謝謝分享~
感恩!!
感恩!!
peter0800- 專屬會員
- 文章總數 : 3
年齡 : 58
來自 : 台北
職業 : 服務
愛好 : sport
個性 : ok
使用年資 : 1
使用版本 : 2006
經驗值 : 4927
威望值 : 0
注冊日期 : 2011-06-19
peter0800- 專屬會員
- 文章總數 : 3
年齡 : 58
來自 : 台北
職業 : 服務
愛好 : sport
個性 : ok
使用年資 : 1
使用版本 : 2006
經驗值 : 4927
威望值 : 0
注冊日期 : 2011-06-19
Bigseanyeh- 一般會員
- 文章總數 : 11
年齡 : 62
來自 : 新北
職業 : 退休
愛好 : 閱讀
個性 : 溫和
使用年資 : 1
使用版本 : 2024
經驗值 : 120
威望值 : 0
注冊日期 : 2024-09-23
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論 :: 已解決主題精華區
第3頁(共3頁)
這個論壇的權限:
您 無法 在這個版面回復文章