👈
光碟/線上課程
選購產品
加入贊助會員
聯絡我們![[知識]AutoCAD自動將圓放大/縮小! Io15011](https://i.servimg.com/u/f67/12/31/59/66/io15011.png)
![[知識]AutoCAD自動將圓放大/縮小! 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[知識]AutoCAD自動將圓放大/縮小! Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[知識]AutoCAD自動將圓放大/縮小! 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[知識]AutoCAD自動將圓放大/縮小! Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[知識]AutoCAD自動將圓放大/縮小! BPl3tjj](https://i.imgur.com/BPl3tjj.png)
[知識]AutoCAD自動將圓放大/縮小!
![[知識]AutoCAD自動將圓放大/縮小! Empty](https://2img.net/i/empty.gif)
[知識]AutoCAD自動將圓放大/縮小!
由 Tiger&蘋果爸 2010-01-14, 10:42
AutoCAD是標準作業平台，所以並沒有你想要的功能，此時只能依靠AutoLISP才能滿足你的需求。請問一下再一版面上有許多不同大小的圓形.(大約1-200個圓)
此同時要把每個圓縮小約2mm.然而在座標上則不能變動.
不知道該如何修改?最好有步驟!!
以下提出2個方法，分為一般及進階操作，有問題請再提~
![[知識]AutoCAD自動將圓放大/縮小! 1-6](https://2img.net/h/i143.photobucket.com/albums/r134/op90o/1-6.jpg)
一般方法：
當沒有LISP程式，你只能選擇過濾圓半徑逐一修改此方法。
a.使用快速選取:「工具」功能表：「快速選取」...根據過濾(圓半徑=10)準則來建立選集
![[知識]AutoCAD自動將圓放大/縮小! 2-7](https://2img.net/h/i143.photobucket.com/albums/r134/op90o/2-7.jpg)
*過濾選取到半徑10的圓*
![[知識]AutoCAD自動將圓放大/縮小! 3-7](https://2img.net/h/i143.photobucket.com/albums/r134/op90o/3-7.jpg)
b.使用性質:「工具」功能表：「性質」....變更圓半徑即可。
![[知識]AutoCAD自動將圓放大/縮小! 4-6](https://2img.net/h/i143.photobucket.com/albums/r134/op90o/4-6.jpg)
PS:搭配圖層會更有效率。
進階方法：
使用LISP程式，快速又有效率。
a.輸入 CIRRAD 指令，選取物件後輸入縮小的距離即可。
- 代碼:
指令: CIRRAD
請指定型式 [放大半徑(A)/縮小半徑(B)]: B
輸入縮小距離: 2
選取物件: 指定對角點: 7 找到
![[知識]AutoCAD自動將圓放大/縮小! G0201](https://2img.net/h/i289.photobucket.com/albums/ll207/autocad88/G0201.gif)
下載 放大/縮小圓半徑程式(回覆主題可見)：
※已上本帖隱藏的LISP程式，需要回復主題後才可以瀏覽檢視※
____________________________________________________________________________________
![[知識]AutoCAD自動將圓放大/縮小! Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[知識]AutoCAD自動將圓放大/縮小! Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
Tiger&蘋果爸- 系統管理員
- 文章總數 : 19583
年齡 : 45
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2021
經驗值 : 78098
威望值 : 14971
注冊日期 : 2008-04-23
-
adslwang- 高級會員
- 文章總數 : 376
年齡 : 42
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 5857
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
DARDAR- 高級會員
- 文章總數 : 294
年齡 : 62
來自 : 台北
職業 : 營造金屬
愛好 : AutoCAD
個性 : 隨和
使用年資 : 5年↑
使用版本 : 2012
積分 : 15
經驗值 : 5192
威望值 : 96
注冊日期 : 2008-05-13
yugoer- 一般會員
- 文章總數 : 30
年齡 : 41
來自 : KAOHSIUNG
職業 : 繪圖員
經驗值 : 4691
威望值 : 0
注冊日期 : 2008-05-13
mi mi- 一般會員
- 文章總數 : 104
年齡 : 46
來自 : 台北縣
職業 : 工務
愛好 : 繪圖
個性 : 動靜皆宜
使用年資 : 5
使用版本 : 2008
經驗值 : 4486
威望值 : 33
注冊日期 : 2009-12-09
-
kiko- 中級會員
- 文章總數 : 195
年齡 : 44
來自 : 台灣省新北市
職業 : 通訊工程製圖
愛好 : 唱歌,K韓劇及恐怖片
個性 : 開朗.隨和
使用年資 : 6年
使用版本 : 2004版
積分 : 7
經驗值 : 4825
威望值 : 112
注冊日期 : 2008-10-22
-
小米- 一般會員
- 文章總數 : 12
年齡 : 43
來自 : 台北
職業 : 工
愛好 : 唱歌
個性 : 開朗
使用年資 : 1
使用版本 : 2008
經驗值 : 4094
威望值 : 0
注冊日期 : 2010-01-12
onlygirl- 初級會員
- 文章總數 : 341
年齡 : 36
來自 : 台南縣
職業 : 製圖
愛好 : 學習不同的新東西
個性 : 悲天憫人..
使用年資 : 2年
使用版本 : 公司2006家裡2008
積分 : 1
經驗值 : 5254
威望值 : 11
注冊日期 : 2009-12-18
d2012255- 一般會員
- 文章總數 : 22
年齡 : 67
來自 : 台北巿
職業 : 服務業
愛好 : 看電視及有關autocad的教學文章
個性 : 中性
使用年資 : 不是很長
使用版本 : 2007
經驗值 : 4159
威望值 : 1
注冊日期 : 2009-11-26
flyox- 一般會員
- 文章總數 : 19
年齡 : 50
來自 : 台北
職業 : 自由接案
愛好 : 上網,看書,手工藝
個性 : 很難說耶~大部分人都說我很開朗樂觀
使用年資 : 20
使用版本 : 2008
經驗值 : 4253
威望值 : 0
注冊日期 : 2009-07-31
aaaaaa1111- 一般會員
- 文章總數 : 142
年齡 : 44
來自 : 台中
職業 : 行政
愛好 : 繪圖
個性 : 中性
使用年資 : 15年
使用版本 : 2008
經驗值 : 4515
威望值 : 0
注冊日期 : 2009-11-30
sunddyluo- 一般會員
- 文章總數 : 11
年齡 : 37
來自 : 上海
職業 : 繪圖
愛好 : 醫易道
個性 : 平和
使用年資 : 5年以上
使用版本 : 2007
經驗值 : 4240
威望值 : 9
注冊日期 : 2009-08-22
andy- 初級會員
- 文章總數 : 26
年齡 : 42
來自 : 新竹
職業 : 光電
愛好 : 看電影、打電動、聽音樂
個性 : 開朗、正直
使用年資 : 7
使用版本 : 2010
積分 : 3
經驗值 : 4309
威望值 : 0
注冊日期 : 2009-06-30
zeno- 一般會員
- 文章總數 : 18
年齡 : 39
來自 : 嘉義
職業 : 學習中
愛好 : 攝影
個性 : 活潑
使用年資 : 2年
使用版本 : 2006
經驗值 : 4119
威望值 : 0
注冊日期 : 2009-12-25
howard73- 初級會員
- 文章總數 : 65
年齡 : 38
來自 : 苗栗
職業 : 測量
愛好 : 繪圖
個性 : 隨和
使用年資 : 初學者
使用版本 : 2004
積分 : 2
最佳解答 : 1
經驗值 : 4623
威望值 : 15
注冊日期 : 2008-12-12
wsd331088- 一般會員
- 文章總數 : 14
年齡 : 43
來自 : HK
職業 : OA
愛好 : movie
個性 : ok
使用年資 : 6
使用版本 : 2010
經驗值 : 4125
威望值 : 0
注冊日期 : 2009-12-10
老水牛- 初級會員
- 文章總數 : 106
年齡 : 59
來自 : 台北縣
職業 : 電機
愛好 : 閱讀
個性 : 溫和
使用年資 : 6
使用版本 : 2006
積分 : 1
經驗值 : 4769
威望值 : 0
注冊日期 : 2008-10-17
回復： [知識]AutoCAD自動將圓放大/縮小!
由 sargy 2010-03-17, 02:11
好神奇的lisp~一直想學的說，感覺會lisp的才算真正學會cad精隨...先下載來試試看好了～感恩！
sargy- 初級會員
- 文章總數 : 17
年齡 : 43
來自 : 台灣
職業 : 設計
愛好 : 釣魚
個性 : 隨和
積分 : 1
經驗值 : 4304
威望值 : 12
注冊日期 : 2009-07-18
鴻鴻- 一般會員
- 文章總數 : 25
年齡 : 40
來自 : 台中
職業 : 正在培訓
愛好 : 露營.
個性 : 隨和.
使用年資 : 新手
使用版本 : 2008
經驗值 : 4092
威望值 : 0
注冊日期 : 2010-03-17
anais99- 初級會員
- 文章總數 : 89
年齡 : 42
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 4243
威望值 : 12
注冊日期 : 2010-06-14
opk153- 初級會員
- 文章總數 : 29
年齡 : 41
來自 : 鶯歌區
職業 : 品管
愛好 : 籃球、壘球
個性 : 溫和..大多時不愛說話
使用年資 : 2
使用版本 : 2010
積分 : 1
經驗值 : 3911
威望值 : 18
注冊日期 : 2010-10-15
jaterfor- 中級會員
- 文章總數 : 94
年齡 : 39
來自 : 大台中市霧峰區
職業 : 機械設計工程師, 售服工程師
愛好 : 看書,打羽球,游泳
個性 : 隨和但不隨便, 隨緣但不隨性~
使用年資 : 自從學R14版之後, 哇嗚~ 終於10年了
使用版本 : AutoCAD 2004, 2008, 2010
積分 : 5
經驗值 : 4698
威望值 : 108
發帖精華 : 1
注冊日期 : 2009-05-07
h1rmitage- 初級會員
- 文章總數 : 42
積分 : 2
經驗值 : 3752
威望值 : 6
注冊日期 : 2011-05-25
回復： [知識]AutoCAD自動將圓放大/縮小!
由 djh1006 2013-04-24, 22:44
看到蘋果爸精彩的演出，除了喝采外，我也一時技癢，我以不同的思維給大家一個不同做法的LISP
先說操作方法：
指令:DJH_047
DJH_047
*************圓_改直徑*************
選取物件: 指定對角點: 找到 2 個
選取物件:
共有 2 個圓被選取
更改後的直徑:50
以下是程式：
先說操作方法：
指令:DJH_047
DJH_047
*************圓_改直徑*************
選取物件: 指定對角點: 找到 2 個
選取物件:
共有 2 個圓被選取
更改後的直徑:50
以下是程式：
- 代碼:
;DJH_047.lsp
;圓_改直徑
(defun C:DJH_047(/ S1 N1 PR1 J1 DIA1 S2 S3 S4 S5)
(graphscr)
(setvar "CMDECHO" 0)
(princ "\nDJH_047")
(princ "\n*************圓_改直徑*************")
(setq S1 (ssget '((0 . "CIRCLE"))))
(if (/= S1 nil)(progn
(setq
N1 (sslength S1)
PR1 (strcat "\n共有 " ( rtos N1) " 個圓被選取")
J1 0
)
(princ PR1)
))
(if (/= N1 nil)(progn
(setq DIA1 (getreal "\n更改後的直徑:"))
(if (/= DIA1 nil)(setq DIA1 (/ DIA1 2.0)))
(repeat N1
(setq
S2 (ssname S1 J1)
S3 (entget S2)
S4 (assoc 40 S3)
S5 (cons 40 DIA1)
S3 (subst S5 S4 S3)
)
(entmod S3)
(setq J1 (1+ J1))
)
))
(princ)
)
djh1006 在 2013-05-02, 17:25 作了第 1 次修改
djh1006- 中級會員
- 文章總數 : 173
年齡 : 49
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D，autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4753
威望值 : 345
注冊日期 : 2011-06-16
djh1006- 中級會員
- 文章總數 : 173
年齡 : 49
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D，autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4753
威望值 : 345
注冊日期 : 2011-06-16
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共3頁)
這個論壇的權限：
您 無法 在這個版面回復文章![[知識]AutoCAD自動將圓放大/縮小! Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[知識]AutoCAD自動將圓放大/縮小! Oooo-110](https://i.servimg.com/u/f67/12/31/59/66/oooo-110.png)