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 Ioaoe110【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-310【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oiu15010【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-211【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ia15010【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao10【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Uos15010【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 BPl3tjj【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ziao1510
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oo-2-110【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Zuoiy_10【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao11【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Iyb_1510【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aoe1-111【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Uos15011【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aoe2da10【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aoe2da11【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aoe10

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

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

回頂端 向下


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

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

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

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

回頂端 向下

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

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

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

____________________________________________________________________________________
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 078
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Acad1810 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Acad2010 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Acad1810
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Acad1211 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Acad1311 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Acad1511
kit92064
kit92064
一般會員
一般會員

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

____________________________________________________________________________________
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ioaoe110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Zuoiy_10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-211 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao11 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Iyb_1510
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 BPl3tjj.png 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ziao1510 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oo-2-110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oooa_110
EVONNE
EVONNE
初級會員
初級會員

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

感謝大大分享好用方式

____________________________________________________________________________________
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ioaoe110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Zuoiy_10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-211 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao11 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Iyb_1510
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 BPl3tjj.png 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ziao1510 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oo-2-110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oooa_110
狗狗
狗狗
一般會員
一般會員

文章總數 : 57
年齡 : 40
來自 : 台中市
職業 : 水電圖
愛好 : 畫畫
個性 : 好學
使用年資 : 幾個月
使用版本 : 2010
經驗值 : 5122
威望值 : 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) 下載 8 次

____________________________________________________________________________________
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ioaoe110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Zuoiy_10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-211 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao11 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Iyb_1510
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 BPl3tjj.png 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ziao1510 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oo-2-110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oooa_110
shackle_2005
shackle_2005
初級會員
初級會員

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

回頂端 向下

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

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

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

____________________________________________________________________________________
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ioaoe110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Zuoiy_10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-211 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao11 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Iyb_1510
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 BPl3tjj.png 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ziao1510 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oo-2-110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oooa_110
Pauline
Pauline
初級會員
初級會員

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

回頂端 向下

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

發表 由 rickyyang 2022-02-04, 00:49

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

____________________________________________________________________________________
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ioaoe110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Zuoiy_10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-211 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao11 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Iyb_1510
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao10 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 BPl3tjj.png 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ziao1510 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oo-2-110 【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oooa_110
rickyyang
rickyyang
專屬會員
專屬會員

文章總數 : 196
年齡 : 45
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 15
使用版本 : AutoCAD 2023
經驗值 : 4370
威望值 : 36
注冊日期 : 2014-11-11
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Acadad10 男 射手座 馬

回頂端 向下

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

發表 由 skylark 2022-03-23, 21:50

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))
   )
)
程式下載(網址回覆可見):



答對了恭喜您的回覆獲選為回帖精華文章! < 積分+1、威望+3 >

[公告]關於論壇的文章價值
skylark
skylark
一般會員
一般會員

文章總數 : 6
年齡 : 55
來自 : 台中
職業 : 消防
愛好 : 聽音樂
個性 : 互相研究
使用年資 : 1年
使用版本 : 新手
經驗值 : 788
威望值 : 0
注冊日期 : 2022-03-13
男 處女座 猴

回頂端 向下

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

發表 由 EVONNE 2022-06-08, 13:40

感謝有這主題,最近也有用到
EVONNE
EVONNE
初級會員
初級會員

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

回頂端 向下

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

發表 由 jkop 2023-05-22, 11:14

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

____________________________________________________________________________________

jkop
jkop
一般會員
一般會員

文章總數 : 72
年齡 : 42
來自 : 基隆
職業 : 儀電設計
愛好 : 網遊、下載
個性 : 簡單、輕鬆、安靜
使用年資 : 5年
使用版本 : 2018
經驗值 : 2738
威望值 : 12
注冊日期 : 2017-09-13
男 處女座 雞

回頂端 向下

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

發表 由 廖阿吉 2023-05-28, 15:26

謝謝提供好東西
廖阿吉
廖阿吉
一般會員
一般會員

文章總數 : 6
年齡 : 40
來自 : 台中
職業 : 待業
愛好 : 看電視
個性 : 溫和
使用年資 : 20
使用版本 : 2018
經驗值 : 971
威望值 : 0
注冊日期 : 2021-09-11
女 巨蟹座 豬

回頂端 向下

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

發表 由 powerfly 2023-06-12, 14:28

感謝分享,感謝大神們討論,需要圓轉聚合線的法子。謝謝
powerfly
powerfly
專屬會員
專屬會員

文章總數 : 40
年齡 : 41
來自 : 新北市
職業 : 室內專業美化施工人員
愛好 : 看東看西.無定性
個性 : 舉棋不定
使用年資 : 8YEAR
使用版本 : 2011
經驗值 : 5044
威望值 : 21
注冊日期 : 2011-01-06
經典問與答讀者 男 處女座 狗

回頂端 向下

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

發表 由 黃智偉 2024-04-01, 16:36

真是太好了,有我想要的答案
黃智偉
黃智偉
一般會員
一般會員

文章總數 : 3
年齡 : 39
來自 : 高雄市楠梓區
職業 : 待業中
愛好 : 建模
個性 : 內向
使用年資 : 3個月
使用版本 : 2021
經驗值 : 28
威望值 : 0
注冊日期 : 2024-03-30
男 獅子座 鼠

回頂端 向下

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

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ioaoe110【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-310【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oiu15010【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 2020-211【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ia15010【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao10【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Uos15010【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 BPl3tjj【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Ziao1510
【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Oo-2-110【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Zuoiy_10【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aizyao11【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Iyb_1510【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aoe1-111【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Uos15011【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aoe2da10【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aoe2da11【回帖精華】怎樣可以將圓形線的線變粗? - 頁 3 Aoe10