[知識]AutoCAD自動將圓放大/縮小!
[知識]AutoCAD自動將圓放大/縮小!
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自動將圓放大/縮小!
好東西 下載來研究看看.....
謝謝蘋果爸分享
謝謝蘋果爸分享
adslwang- 高級會員
- 文章總數 : 376
年齡 : 42
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 5857
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
回復: [知識]AutoCAD自動將圓放大/縮小!
謝謝蘋果爸分享,下載來試試看...... 

DARDAR- 高級會員
- 文章總數 : 294
年齡 : 62
來自 : 台北
職業 : 營造金屬
愛好 : AutoCAD
個性 : 隨和
使用年資 : 5年↑
使用版本 : 2012
積分 : 15
經驗值 : 5192
威望值 : 96
注冊日期 : 2008-05-13
感謝蘋果爸....
感謝蘋果爸....................... 

yugoer- 一般會員
- 文章總數 : 30
年齡 : 41
來自 : KAOHSIUNG
職業 : 繪圖員
經驗值 : 4691
威望值 : 0
注冊日期 : 2008-05-13
回復: [知識]AutoCAD自動將圓放大/縮小!
回復: [知識]AutoCAD自動將圓放大/縮小!
真是太神奇了
我也想試試
真是太神奇了
我也想試試
小米- 一般會員
- 文章總數 : 12
年齡 : 43
來自 : 台北
職業 : 工
愛好 : 唱歌
個性 : 開朗
使用年資 : 1
使用版本 : 2008
經驗值 : 4094
威望值 : 0
注冊日期 : 2010-01-12
回復: [知識]AutoCAD自動將圓放大/縮小!
你真是博愛!!
onlygirl- 初級會員
- 文章總數 : 341
年齡 : 36
來自 : 台南縣
職業 : 製圖
愛好 : 學習不同的新東西
個性 : 悲天憫人..
使用年資 : 2年
使用版本 : 公司2006家裡2008
積分 : 1
經驗值 : 5254
威望值 : 11
注冊日期 : 2009-12-18
[知識]AutoCAD自動將圓放大/縮小!
真是太奇妙了, 我也來試看看.
d2012255- 一般會員
- 文章總數 : 22
年齡 : 67
來自 : 台北巿
職業 : 服務業
愛好 : 看電視及有關autocad的教學文章
個性 : 中性
使用年資 : 不是很長
使用版本 : 2007
經驗值 : 4159
威望值 : 1
注冊日期 : 2009-11-26
flyox- 一般會員
- 文章總數 : 19
年齡 : 50
來自 : 台北
職業 : 自由接案
愛好 : 上網,看書,手工藝
個性 : 很難說耶~大部分人都說我很開朗樂觀
使用年資 : 20
使用版本 : 2008
經驗值 : 4253
威望值 : 0
注冊日期 : 2009-07-31
回復: [知識]AutoCAD自動將圓放大/縮小!
謝謝提供...
aaaaaa1111- 一般會員
- 文章總數 : 142
年齡 : 44
來自 : 台中
職業 : 行政
愛好 : 繪圖
個性 : 中性
使用年資 : 15年
使用版本 : 2008
經驗值 : 4515
威望值 : 0
注冊日期 : 2009-11-30
回復: [知識]AutoCAD自動將圓放大/縮小!
感謝蘋果爸的分享!下來試試... 

sunddyluo- 一般會員
- 文章總數 : 11
年齡 : 37
來自 : 上海
職業 : 繪圖
愛好 : 醫易道
個性 : 平和
使用年資 : 5年以上
使用版本 : 2007
經驗值 : 4240
威望值 : 9
注冊日期 : 2009-08-22
回復: [知識]AutoCAD自動將圓放大/縮小!
好東西啊!下載來試看看囉。
andy- 初級會員
- 文章總數 : 26
年齡 : 42
來自 : 新竹
職業 : 光電
愛好 : 看電影、打電動、聽音樂
個性 : 開朗、正直
使用年資 : 7
使用版本 : 2010
積分 : 3
經驗值 : 4309
威望值 : 0
注冊日期 : 2009-06-30
回復: [知識]AutoCAD自動將圓放大/縮小!
好神,下載來研究學習。
謝謝分享

謝謝分享


zeno- 一般會員
- 文章總數 : 18
年齡 : 39
來自 : 嘉義
職業 : 學習中
愛好 : 攝影
個性 : 活潑
使用年資 : 2年
使用版本 : 2006
經驗值 : 4119
威望值 : 0
注冊日期 : 2009-12-25
回復: [知識]AutoCAD自動將圓放大/縮小!
這裡讓我真的學到很多,高手前備都願意分享,真的很棒
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
回復: [知識]AutoCAD自動將圓放大/縮小!
研究看看。是否可再做其他的延伸使用。
老水牛- 初級會員
- 文章總數 : 106
年齡 : 59
來自 : 台北縣
職業 : 電機
愛好 : 閱讀
個性 : 溫和
使用年資 : 6
使用版本 : 2006
積分 : 1
經驗值 : 4769
威望值 : 0
注冊日期 : 2008-10-17
回復: [知識]AutoCAD自動將圓放大/縮小!
好神奇的lisp~一直想學的說,感覺會lisp的才算真正學會cad精隨...先下載來試試看好了~感恩!
sargy- 初級會員
- 文章總數 : 17
年齡 : 43
來自 : 台灣
職業 : 設計
愛好 : 釣魚
個性 : 隨和
積分 : 1
經驗值 : 4304
威望值 : 12
注冊日期 : 2009-07-18
回復: [知識]AutoCAD自動將圓放大/縮小!
感謝蘋果爸分享~ 

鴻鴻- 一般會員
- 文章總數 : 25
年齡 : 40
來自 : 台中
職業 : 正在培訓
愛好 : 露營.
個性 : 隨和.
使用年資 : 新手
使用版本 : 2008
經驗值 : 4092
威望值 : 0
注冊日期 : 2010-03-17
回復: [知識]AutoCAD自動將圓放大/縮小!
來看看是如何做的,感謝蘋果爸的分享!
anais99- 初級會員
- 文章總數 : 89
年齡 : 42
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 4243
威望值 : 12
注冊日期 : 2010-06-14
回復: [知識]AutoCAD自動將圓放大/縮小!
看起來真是好用...謝謝蘋果爸的教學
opk153- 初級會員
- 文章總數 : 29
年齡 : 41
來自 : 鶯歌區
職業 : 品管
愛好 : 籃球、壘球
個性 : 溫和..大多時不愛說話
使用年資 : 2
使用版本 : 2010
積分 : 1
經驗值 : 3911
威望值 : 18
注冊日期 : 2010-10-15
回復: [知識]AutoCAD自動將圓放大/縮小!
好東西!
趕快來下載~~
趕快來下載~~

jaterfor- 中級會員
- 文章總數 : 94
年齡 : 39
來自 : 大台中市霧峰區
職業 : 機械設計工程師, 售服工程師
愛好 : 看書,打羽球,游泳
個性 : 隨和但不隨便, 隨緣但不隨性~
使用年資 : 自從學R14版之後, 哇嗚~ 終於10年了
使用版本 : AutoCAD 2004, 2008, 2010
積分 : 5
經驗值 : 4698
威望值 : 108
發帖精華 : 1
注冊日期 : 2009-05-07
回復: [知識]AutoCAD自動將圓放大/縮小!
看到蘋果爸精彩的演出,除了喝采外,我也一時技癢,我以不同的思維給大家一個不同做法的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
回復: [知識]AutoCAD自動將圓放大/縮小!
請問蘋果爸,異形孔可以放大縮小嗎?(非圓形孔,封閉或不封閉),
djh1006- 中級會員
- 文章總數 : 173
年齡 : 49
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4753
威望值 : 345
注冊日期 : 2011-06-16
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共3頁)
這個論壇的權限:
您 無法 在這個版面回復文章