AutoCAD顧問
還沒有註冊嗎...即日起免費註冊，所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
AutoCAD顧問

專屬AutoCAD線上個人顧問，是您學習路上最佳的良師益友，也是職場中最即時的支援後盾！

[知識]AutoCAD自動將圓放大/縮小! 2020-211 [知識]AutoCAD自動將圓放大/縮小! Oooo-110 [知識]AutoCAD自動將圓放大/縮小! Oo-2-110 [知識]AutoCAD自動將圓放大/縮小! Ziao1510 [知識]AutoCAD自動將圓放大/縮小! BPl3tjj [知識]AutoCAD自動將圓放大/縮小! Uos15010

[知識]AutoCAD自動將圓放大/縮小!

AutoCAD顧問 :: 技術(發言等級:一般會員) ::   :: 進階討論

第1頁(共3頁) • 1, 2, 3  下一步

向下

[知識]AutoCAD自動將圓放大/縮小! Empty [知識]AutoCAD自動將圓放大/縮小!

發表 由 Tiger&蘋果爸 于 2010-01-14, 10:42

請問一下再一版面上有許多不同大小的圓形.(大約1-200個圓)
此同時要把每個圓縮小約2mm.然而在座標上則不能變動.
不知道該如何修改?最好有步驟!!
AutoCAD是標準作業平台，所以並沒有你想要的功能，此時只能依靠AutoLISP才能滿足你的需求。
以下提出2個方法，分為一般及進階操作，有問題請再提~
[知識]AutoCAD自動將圓放大/縮小! 1-6

一般方法：
當沒有LISP程式，你只能選擇過濾圓半徑逐一修改此方法。
a.使用快速選取:「工具」功能表：「快速選取」...根據過濾(圓半徑=10)準則來建立選集
[知識]AutoCAD自動將圓放大/縮小! 2-7

*過濾選取到半徑10的圓*
[知識]AutoCAD自動將圓放大/縮小! 3-7

b.使用性質:「工具」功能表：「性質」....變更圓半徑即可。
[知識]AutoCAD自動將圓放大/縮小! 4-6
PS:搭配圖層會更有效率。

進階方法：
使用LISP程式，快速又有效率。
a.輸入 CIRRAD 指令，選取物件後輸入縮小的距離即可。
代碼:
指令: CIRRAD
請指定型式 [放大半徑(A)/縮小半徑(B)]: B
輸入縮小距離: 2
選取物件: 指定對角點: 7 找到
[知識]AutoCAD自動將圓放大/縮小! G0201

下載 放大/縮小圓半徑程式(回覆主題可見)：

※已上本帖隱藏的LISP程式，需要回復主題後才可以瀏覽檢視※

____________________________________________________________________________________
[知識]AutoCAD自動將圓放大/縮小! Oo-2-110 [知識]AutoCAD自動將圓放大/縮小! Ia15010 [知識]AutoCAD自動將圓放大/縮小! Ziao1510 [知識]AutoCAD自動將圓放大/縮小! BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19211
年齡 : 44
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 75743
威望值 : 14445
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 adslwang 于 2010-01-14, 16:10

好東西 下載來研究看看.....

謝謝蘋果爸分享
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 41
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 5614
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 DARDAR 于 2010-01-14, 19:59

謝謝蘋果爸分享,下載來試試看...... 感動
DARDAR
DARDAR
高級會員
高級會員

文章總數 : 293
年齡 : 62
來自 : 台北
職業 : 營造金屬
愛好 : AutoCAD
個性 : 隨和
使用年資 : 5年↑
使用版本 : 2012
積分 : 15
經驗值 : 4944
威望值 : 96
注冊日期 : 2008-05-13
經典問與答讀者 藍鵲49號
男 白羊座 狗

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 感謝蘋果爸....

發表 由 yugoer 于 2010-01-14, 23:33

感謝蘋果爸....................... 感動
avatar
yugoer
一般會員
一般會員

文章總數 : 30
年齡 : 41
來自 : KAOHSIUNG
職業 : 繪圖員
經驗值 : 4448
威望值 : 0
注冊日期 : 2008-05-13
女 雙魚座 羊

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 mi mi 于 2010-01-15, 09:04

真棒!感謝蘋果爸.....
mi mi
mi mi
一般會員
一般會員

文章總數 : 102
年齡 : 45
來自 : 台北縣
職業 : 工務
愛好 : 繪圖
個性 : 動靜皆宜
使用年資 : 5
使用版本 : 2008
經驗值 : 4237
威望值 : 33
注冊日期 : 2009-12-09
藍鵲707號
女 摩羯座 虎

http://mi0931158656@yahoo.com.tw

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 kiko 于 2010-01-15, 10:39

謝謝蘋果爸分享,我也來試試看 認同
kiko
kiko
中級會員
中級會員

文章總數 : 195
年齡 : 44
來自 : 台灣省新北市
職業 : 通訊工程製圖
愛好 : 唱歌,K韓劇及恐怖片
個性 : 開朗.隨和
使用年資 : 6年
使用版本 : 2004版
積分 : 7
經驗值 : 4582
威望值 : 112
注冊日期 : 2008-10-22
經典問與答讀者 藍鵲72號
串連貼紙成功 女 白羊座 龍

http://tw.myblog.yahoo.com/kiko-qq

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 小米 于 2010-01-15, 11:57

回復： [知識]AutoCAD自動將圓放大/縮小!

真是太神奇了
我也想試試
小米
小米
一般會員
一般會員

文章總數 : 12
年齡 : 42
來自 : 台北
職業 : 工
愛好 : 唱歌
個性 : 開朗
使用年資 : 1
使用版本 : 2008
經驗值 : 3851
威望值 : 0
注冊日期 : 2010-01-12
女 水瓶座 蛇

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 onlygirl 于 2010-01-16, 18:09

你真是博愛!!
onlygirl
onlygirl
初級會員
初級會員

文章總數 : 341
年齡 : 35
來自 : 台南縣
職業 : 製圖
愛好 : 學習不同的新東西
個性 : 悲天憫人..
使用年資 : 2年
使用版本 : 公司2006家裡2008
積分 : 1
經驗值 : 5011
威望值 : 11
注冊日期 : 2009-12-18
串連貼紙成功 女 摩羯座 鼠

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty [知識]AutoCAD自動將圓放大/縮小!

發表 由 d2012255 于 2010-01-16, 18:34

真是太奇妙了, 我也來試看看.
d2012255
d2012255
一般會員
一般會員

文章總數 : 22
年齡 : 66
來自 : 台北巿
職業 : 服務業
愛好 : 看電視及有關autocad的教學文章
個性 : 中性
使用年資 : 不是很長
使用版本 : 2007
經驗值 : 3916
威望值 : 1
注冊日期 : 2009-11-26
女 處女座 蛇

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 flyox 于 2010-01-17, 11:50

棒耶～～
flyox
flyox
一般會員
一般會員

文章總數 : 19
年齡 : 50
來自 : 台北
職業 : 自由接案
愛好 : 上網,看書,手工藝
個性 : 很難說耶~大部分人都說我很開朗樂觀
使用年資 : 20
使用版本 : 2008
經驗值 : 4010
威望值 : 0
注冊日期 : 2009-07-31
女 金牛座 狗

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 aaaaaa1111 于 2010-01-17, 12:49

謝謝提供...
aaaaaa1111
aaaaaa1111
一般會員
一般會員

文章總數 : 142
年齡 : 44
來自 : 台中
職業 : 行政
愛好 : 繪圖
個性 : 中性
使用年資 : 15年
使用版本 : 2008
經驗值 : 4272
威望值 : 0
注冊日期 : 2009-11-30
女 金牛座 龍

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 sunddyluo 于 2010-01-18, 15:25

感謝蘋果爸的分享！下來試試... 認同
sunddyluo
sunddyluo
一般會員
一般會員

文章總數 : 11
年齡 : 36
來自 : 上海
職業 : 繪圖
愛好 : 醫易道
個性 : 平和
使用年資 : 5年以上
使用版本 : 2007
經驗值 : 3997
威望值 : 9
注冊日期 : 2009-08-22
男 天秤座 豬

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 andy 于 2010-01-18, 21:07

好東西啊！下載來試看看囉。
andy
andy
初級會員
初級會員

文章總數 : 26
年齡 : 42
來自 : 新竹
職業 : 光電
愛好 : 看電影、打電動、聽音樂
個性 : 開朗、正直
使用年資 : 7
使用版本 : 2010
積分 : 3
經驗值 : 4066
威望值 : 0
注冊日期 : 2009-06-30
男 金牛座 馬

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 zeno 于 2010-01-20, 13:26

好神，下載來研究學習。
謝謝分享 害羞 害羞
zeno
zeno
一般會員
一般會員

文章總數 : 18
年齡 : 39
來自 : 嘉義
職業 : 學習中
愛好 : 攝影
個性 : 活潑
使用年資 : 2年
使用版本 : 2006
經驗值 : 3876
威望值 : 0
注冊日期 : 2009-12-25
女 巨蟹座 雞

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 howard73 于 2010-02-05, 01:06

這裡讓我真的學到很多，高手前備都願意分享，真的很棒
avatar
howard73
初級會員
初級會員

文章總數 : 65
年齡 : 37
來自 : 苗栗
職業 : 測量
愛好 : 繪圖
個性 : 隨和
使用年資 : 初學者
使用版本 : 2004
積分 : 2
最佳解答 : 1
經驗值 : 4380
威望值 : 15
注冊日期 : 2008-12-12
藍鵲270號
男 射手座 狗

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 wsd331088 于 2010-02-07, 22:48

感謝蘋果爸
wsd331088
wsd331088
一般會員
一般會員

文章總數 : 14
年齡 : 42
來自 : HK
職業 : OA
愛好 : movie
個性 : ok
使用年資 : 6
使用版本 : 2010
經驗值 : 3882
威望值 : 0
注冊日期 : 2009-12-10
男 天秤座 蛇

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 老水牛 于 2010-02-25, 11:51

研究看看。是否可再做其他的延伸使用。
avatar
老水牛
初級會員
初級會員

文章總數 : 106
年齡 : 58
來自 : 台北縣
職業 : 電機
愛好 : 閱讀
個性 : 溫和
使用年資 : 6
使用版本 : 2006
積分 : 1
經驗值 : 4526
威望值 : 0
注冊日期 : 2008-10-17
男 天蝎座 牛

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 sargy 于 2010-03-17, 02:11

好神奇的lisp~一直想學的說，感覺會lisp的才算真正學會cad精隨...先下載來試試看好了～感恩！
sargy
sargy
初級會員
初級會員

文章總數 : 17
年齡 : 42
來自 : 台灣
職業 : 設計
愛好 : 釣魚
個性 : 隨和
積分 : 1
經驗值 : 4061
威望值 : 12
注冊日期 : 2009-07-18
藍鵲218號
男 處女座 蛇

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 鴻鴻 于 2010-03-31, 12:23

感謝蘋果爸分享~ 竊喜
鴻鴻
鴻鴻
一般會員
一般會員

文章總數 : 25
年齡 : 40
來自 : 台中
職業 : 正在培訓
愛好 : 露營.
個性 : 隨和.
使用年資 : 新手
使用版本 : 2008
經驗值 : 3849
威望值 : 0
注冊日期 : 2010-03-17
女 巨蟹座 猴

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 anais99 于 2010-10-19, 08:17

來看看是如何做的，感謝蘋果爸的分享！
anais99
anais99
初級會員
初級會員

文章總數 : 87
年齡 : 42
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 3990
威望值 : 12
注冊日期 : 2010-06-14
串連貼紙成功 女 雙子座 馬

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 opk153 于 2011-01-05, 00:56

看起來真是好用...謝謝蘋果爸的教學
opk153
opk153
初級會員
初級會員

文章總數 : 29
年齡 : 40
來自 : 鶯歌區
職業 : 品管
愛好 : 籃球、壘球
個性 : 溫和..大多時不愛說話
使用年資 : 2
使用版本 : 2010
積分 : 1
經驗值 : 3668
威望值 : 18
注冊日期 : 2010-10-15
男 雙魚座 猴

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 jaterfor 于 2011-02-04, 07:13

好東西!
趕快來下載~~ 熱情
jaterfor
jaterfor
中級會員
中級會員

文章總數 : 94
年齡 : 39
來自 : 大台中市霧峰區
職業 : 機械設計工程師, 售服工程師
愛好 : 看書,打羽球,游泳
個性 : 隨和但不隨便, 隨緣但不隨性~
使用年資 : 自從學R14版之後, 哇嗚~ 終於10年了
使用版本 : AutoCAD 2004, 2008, 2010
積分 : 5
經驗值 : 4455
威望值 : 108
發帖精華 : 1
注冊日期 : 2009-05-07
藍鵲51號
2011-0424讀書會 男 金牛座 雞

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 h1rmitage 于 2013-04-24, 12:55

學習中~謝謝~ 竊喜
h1rmitage
h1rmitage
初級會員
初級會員

文章總數 : 42
積分 : 2
經驗值 : 3509
威望值 : 6
注冊日期 : 2011-05-25
2D基礎函授 藍鵲228號

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 djh1006 于 2013-04-24, 22:44

看到蘋果爸精彩的演出，除了喝采外，我也一時技癢，我以不同的思維給大家一個不同做法的LISP

先說操作方法：
指令: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)
)
若有不周，歡迎指教[/code][code]


djh1006 在 2013-05-02, 17:25 作了第 1 次修改
djh1006
djh1006
中級會員
中級會員

文章總數 : 171
年齡 : 48
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D，autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4500
威望值 : 345
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

[知識]AutoCAD自動將圓放大/縮小! Empty 回復： [知識]AutoCAD自動將圓放大/縮小!

發表 由 djh1006 于 2013-04-27, 07:46

請問蘋果爸,異形孔可以放大縮小嗎?(非圓形孔,封閉或不封閉),
djh1006
djh1006
中級會員
中級會員

文章總數 : 171
年齡 : 48
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D，autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4500
威望值 : 345
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

第1頁(共3頁) • 1, 2, 3  下一步

回頂端

AutoCAD顧問 :: 技術(發言等級:一般會員) ::   :: 進階討論

 
這個論壇的權限：
您 無法 在這個版面回復文章
[知識]AutoCAD自動將圓放大/縮小! Uos15010 [知識]AutoCAD自動將圓放大/縮小! BPl3tjj [知識]AutoCAD自動將圓放大/縮小! Ziao1510 [知識]AutoCAD自動將圓放大/縮小! Oo-2-110 [知識]AutoCAD自動將圓放大/縮小! Oooo-110 [知識]AutoCAD自動將圓放大/縮小! 2020-211