👈
光碟/線上課程
選購產品
加入贊助會員
聯絡我們![[知識]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自動將圓放大/縮小!
+47
dd0916
ttv_01
zhangcan0516
hua
saralee
櫻子
jessehdj
MK WU
雷克斯
jackiehover
john351486
p68909243
hueigo
lolo0314
yakuei88
et1029et
小薇
li60830
lc0309
qaz6605
shue8517
天蠍
dragon9458
djh1006
h1rmitage
jaterfor
opk153
anais99
鴻鴻
sargy
老水牛
wsd331088
howard73
zeno
andy
sunddyluo
aaaaaa1111
flyox
d2012255
onlygirl
小米
kiko
mi mi
yugoer
DARDAR
adslwang
Tiger&蘋果爸
51 posters
![[知識]AutoCAD自動將圓放大/縮小! Empty](https://2img.net/i/empty.gif)
[知識]AutoCAD自動將圓放大/縮小!
由 Tiger&蘋果爸 周四 14 1月 2010 - 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自動將圓放大/縮小! Attachment](https://2img.net/i/fa/attachment.png)
- 將圓放大或縮小.zip 您無權下載這里的附件。(1 Kb) 下載 8 次
Tiger&蘋果爸 在 周三 28 4月 2021 - 18:03 作了第 1 次修改
____________________________________________________________________________________
![[知識]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&蘋果爸- 系統管理員
- 文章總數 : 19819
年齡 : 45
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2021
經驗值 : 79724
威望值 : 15371
注冊日期 : 2008-04-23
-
adslwang- 高級會員
- 文章總數 : 376
年齡 : 43
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 6055
威望值 : 359
回帖精華 : 1
注冊日期 : 2008-10-02
DARDAR- 高級會員
- 文章總數 : 306
年齡 : 63
來自 : 台北
職業 : 營造金屬
愛好 : AutoCAD
個性 : 隨和
使用年資 : 5年↑
使用版本 : 2012
積分 : 15
經驗值 : 5431
威望值 : 96
注冊日期 : 2008-05-13
yugoer- 一般會員
- 文章總數 : 30
年齡 : 42
來自 : KAOHSIUNG
職業 : 繪圖員
經驗值 : 4886
威望值 : 0
注冊日期 : 2008-05-13
mi mi- 一般會員
- 文章總數 : 104
年齡 : 46
來自 : 台北縣
職業 : 工務
愛好 : 繪圖
個性 : 動靜皆宜
使用年資 : 5
使用版本 : 2008
經驗值 : 4681
威望值 : 33
注冊日期 : 2009-12-09
-
kiko- 中級會員
- 文章總數 : 195
年齡 : 45
來自 : 台灣省新北市
職業 : 通訊工程製圖
愛好 : 唱歌,K韓劇及恐怖片
個性 : 開朗.隨和
使用年資 : 6年
使用版本 : 2004版
積分 : 7
經驗值 : 5020
威望值 : 112
注冊日期 : 2008-10-22
-
小米- 一般會員
- 文章總數 : 12
年齡 : 43
來自 : 台北
職業 : 工
愛好 : 唱歌
個性 : 開朗
使用年資 : 1
使用版本 : 2008
經驗值 : 4289
威望值 : 0
注冊日期 : 2010-01-12
onlygirl- 初級會員
- 文章總數 : 341
年齡 : 36
來自 : 台南縣
職業 : 製圖
愛好 : 學習不同的新東西
個性 : 悲天憫人..
使用年資 : 2年
使用版本 : 公司2006家裡2008
積分 : 1
經驗值 : 5449
威望值 : 11
注冊日期 : 2009-12-18
d2012255- 一般會員
- 文章總數 : 22
年齡 : 68
來自 : 台北巿
職業 : 服務業
愛好 : 看電視及有關autocad的教學文章
個性 : 中性
使用年資 : 不是很長
使用版本 : 2007
經驗值 : 4354
威望值 : 1
注冊日期 : 2009-11-26
flyox- 一般會員
- 文章總數 : 19
年齡 : 51
來自 : 台北
職業 : 自由接案
愛好 : 上網,看書,手工藝
個性 : 很難說耶~大部分人都說我很開朗樂觀
使用年資 : 20
使用版本 : 2008
經驗值 : 4448
威望值 : 0
注冊日期 : 2009-07-31
aaaaaa1111- 一般會員
- 文章總數 : 142
年齡 : 45
來自 : 台中
職業 : 行政
愛好 : 繪圖
個性 : 中性
使用年資 : 15年
使用版本 : 2008
經驗值 : 4710
威望值 : 0
注冊日期 : 2009-11-30
sunddyluo- 一般會員
- 文章總數 : 11
年齡 : 37
來自 : 上海
職業 : 繪圖
愛好 : 醫易道
個性 : 平和
使用年資 : 5年以上
使用版本 : 2007
經驗值 : 4435
威望值 : 9
注冊日期 : 2009-08-22
andy- 初級會員
- 文章總數 : 26
年齡 : 43
來自 : 新竹
職業 : 光電
愛好 : 看電影、打電動、聽音樂
個性 : 開朗、正直
使用年資 : 7
使用版本 : 2010
積分 : 3
經驗值 : 4504
威望值 : 0
注冊日期 : 2009-06-30
zeno- 一般會員
- 文章總數 : 18
年齡 : 40
來自 : 嘉義
職業 : 學習中
愛好 : 攝影
個性 : 活潑
使用年資 : 2年
使用版本 : 2006
經驗值 : 4314
威望值 : 0
注冊日期 : 2009-12-25
howard73- 初級會員
- 文章總數 : 65
年齡 : 38
來自 : 苗栗
職業 : 測量
愛好 : 繪圖
個性 : 隨和
使用年資 : 初學者
使用版本 : 2004
積分 : 2
最佳解答 : 1
經驗值 : 4818
威望值 : 15
注冊日期 : 2008-12-12
wsd331088- 一般會員
- 文章總數 : 14
年齡 : 43
來自 : HK
職業 : OA
愛好 : movie
個性 : ok
使用年資 : 6
使用版本 : 2010
經驗值 : 4320
威望值 : 0
注冊日期 : 2009-12-10
老水牛- 初級會員
- 文章總數 : 107
年齡 : 59
來自 : 台北縣
職業 : 電機
愛好 : 閱讀
個性 : 溫和
使用年資 : 6
使用版本 : 2006
積分 : 1
經驗值 : 4969
威望值 : 0
注冊日期 : 2008-10-17
回復： [知識]AutoCAD自動將圓放大/縮小!
由 sargy 周三 17 3月 2010 - 2:11
好神奇的lisp~一直想學的說，感覺會lisp的才算真正學會cad精隨...先下載來試試看好了～感恩！
sargy- 初級會員
- 文章總數 : 17
年齡 : 44
來自 : 台灣
職業 : 設計
愛好 : 釣魚
個性 : 隨和
積分 : 1
經驗值 : 4499
威望值 : 12
注冊日期 : 2009-07-18
鴻鴻- 一般會員
- 文章總數 : 25
年齡 : 41
來自 : 台中
職業 : 正在培訓
愛好 : 露營.
個性 : 隨和.
使用年資 : 新手
使用版本 : 2008
經驗值 : 4287
威望值 : 0
注冊日期 : 2010-03-17
anais99- 初級會員
- 文章總數 : 104
年齡 : 43
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 4513
威望值 : 12
注冊日期 : 2010-06-14
opk153- 初級會員
- 文章總數 : 29
年齡 : 41
來自 : 鶯歌區
職業 : 品管
愛好 : 籃球、壘球
個性 : 溫和..大多時不愛說話
使用年資 : 2
使用版本 : 2010
積分 : 1
經驗值 : 4106
威望值 : 18
注冊日期 : 2010-10-15
jaterfor- 中級會員
- 文章總數 : 94
年齡 : 40
來自 : 大台中市霧峰區
職業 : 機械設計工程師, 售服工程師
愛好 : 看書,打羽球,游泳
個性 : 隨和但不隨便, 隨緣但不隨性~
使用年資 : 自從學R14版之後, 哇嗚~ 終於10年了
使用版本 : AutoCAD 2004, 2008, 2010
積分 : 5
經驗值 : 4893
威望值 : 108
發帖精華 : 1
注冊日期 : 2009-05-07
h1rmitage- 初級會員
- 文章總數 : 42
積分 : 2
經驗值 : 3947
威望值 : 6
注冊日期 : 2011-05-25
回復： [知識]AutoCAD自動將圓放大/縮小!
由 djh1006 周三 24 4月 2013 - 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 在 周四 2 五月 2013 - 17:25 作了第 1 次修改
djh1006- 中級會員
- 文章總數 : 174
年齡 : 50
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D，autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4957
威望值 : 351
注冊日期 : 2011-06-16
HAHAHA likes this post
djh1006- 中級會員
- 文章總數 : 174
年齡 : 50
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D，autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4957
威望值 : 351
注冊日期 : 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)