AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

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

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

上一篇主題 下一篇主題 向下

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

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

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


一般方法:
當沒有LISP程式,你只能選擇過濾圓半徑逐一修改此方法。
a.使用快速選取:「工具」功能表:「快速選取」...根據過濾(圓半徑=10)準則來建立選集


*過濾選取到半徑10的圓*


b.使用性質:「工具」功能表:「性質」....變更圓半徑即可。

PS:搭配圖層會更有效率。

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


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

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

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17311
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65250
威望值 : 12865
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.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自動將圓放大/縮小!

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

感謝蘋果爸....

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

感謝蘋果爸....................... 感動

yugoer
一般會員
一般會員

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

回頂端 向下

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

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

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

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

http://mi0931158656@yahoo.com.tw

回頂端 向下

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

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

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

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

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

回頂端 向下

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

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

發表 由 howard73 于 2010-02-04, 17:06

這裡讓我真的學到很多,高手前備都願意分享,真的很棒

howard73
初級會員
初級會員

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

研究看看。是否可再做其他的延伸使用。

老水牛
初級會員
初級會員

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

回頂端 向下

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

發表 由 sargy 于 2010-03-16, 18:11

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

發表 由 opk153 于 2011-01-04, 16:56

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

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

回頂端 向下

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

發表 由 jaterfor 于 2011-02-03, 23:13

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

發表 由 djh1006 于 2013-04-24, 15: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, 10:25 作了第 1 次修改
avatar
djh1006
中級會員
中級會員

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

回頂端 向下

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

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

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

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

回頂端 向下

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

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章