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.
[知識]AutoCAD自動將圓放大/縮小! Io15011 [知識]AutoCAD自動將圓放大/縮小! 2020-310 [知識]AutoCAD自動將圓放大/縮小! Oiu15010 [知識]AutoCAD自動將圓放大/縮小! 2020-211 [知識]AutoCAD自動將圓放大/縮小! Oo-2-110 [知識]AutoCAD自動將圓放大/縮小! BPl3tjj

[知識]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

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

向下

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

發表 由 Tiger&蘋果爸 周四 14 1月 2010 - 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自動將圓放大/縮小! Attachment
將圓放大或縮小.zip 您無權下載這里的附件。(1 Kb) 下載 8 次


Tiger&蘋果爸 在 周三 28 4月 2021 - 18:03 作了第 1 次修改

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

文章總數 : 19819
年齡 : 45
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2021
經驗值 : 79724
威望值 : 15371
注冊日期 : 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 周四 14 1月 2010 - 16:10

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

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

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

回頂端 向下

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

發表 由 DARDAR 周四 14 1月 2010 - 19:59

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

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

回頂端 向下

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

發表 由 yugoer 周四 14 1月 2010 - 23:33

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

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

回頂端 向下

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

發表 由 mi mi 周五 15 1月 2010 - 9:04

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

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

http://mi0931158656@yahoo.com.tw

回頂端 向下

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

發表 由 kiko 周五 15 1月 2010 - 10:39

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

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

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

回頂端 向下

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

發表 由 小米 周五 15 1月 2010 - 11:57

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

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

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

回頂端 向下

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

發表 由 onlygirl 周六 16 1月 2010 - 18:09

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

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

回頂端 向下

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

發表 由 d2012255 周六 16 1月 2010 - 18:34

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

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

回頂端 向下

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

發表 由 flyox 周日 17 1月 2010 - 11:50

棒耶~~
flyox
flyox
一般會員
一般會員

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

回頂端 向下

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

發表 由 aaaaaa1111 周日 17 1月 2010 - 12:49

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

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

回頂端 向下

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

發表 由 sunddyluo 周一 18 1月 2010 - 15:25

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

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

回頂端 向下

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

發表 由 andy 周一 18 1月 2010 - 21:07

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

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

回頂端 向下

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

發表 由 zeno 周三 20 1月 2010 - 13:26

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

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

回頂端 向下

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

發表 由 howard73 周五 5 2月 2010 - 1:06

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

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

回頂端 向下

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

發表 由 wsd331088 周日 7 2月 2010 - 22:48

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

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

回頂端 向下

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

發表 由 老水牛 周四 25 2月 2010 - 11:51

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

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

回頂端 向下

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

發表 由 sargy 周三 17 3月 2010 - 2:11

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

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

回頂端 向下

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

發表 由 鴻鴻 周三 31 3月 2010 - 12:23

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

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

回頂端 向下

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

發表 由 anais99 周二 19 10月 2010 - 8:17

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

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

回頂端 向下

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

發表 由 opk153 周三 5 1月 2011 - 0:56

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

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

回頂端 向下

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

發表 由 jaterfor 周五 4 2月 2011 - 7:13

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

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

回頂端 向下

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

發表 由 h1rmitage 周三 24 4月 2013 - 12:55

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

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

回頂端 向下

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

發表 由 djh1006 周三 24 4月 2013 - 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 在 周四 2 五月 2013 - 17:25 作了第 1 次修改
djh1006
djh1006
中級會員
中級會員

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

HAHAHA likes this post

回頂端 向下

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

發表 由 djh1006 周六 27 4月 2013 - 7:46

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

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

回頂端 向下

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

回頂端


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