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

請問一下再一版面上有許多不同大小的圓形.(大約1-200個圓)
此同時要把每個圓縮小約2mm.然而在座標上則不能變動.
不知道該如何修改?最好有步驟!!

AutoCAD是標準作業平台，所以並沒有你想要的功能，此時只能依靠AutoLISP才能滿足你的需求。
以下提出2個方法，分為一般及進階操作，有問題請再提~


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


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


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

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

進階方法：
使用LISP程式，快速又有效率。
a.輸入 CIRRAD 指令，選取物件後輸入縮小的距離即可。

代碼:

指令: CIRRAD
請指定型式 [放大半徑(A)/縮小半徑(B)]: B
輸入縮小距離: 2
選取物件: 指定對角點: 7 找到

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

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

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

謝謝蘋果爸分享

謝謝蘋果爸分享,下載來試試看......

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

真棒!感謝蘋果爸.....

謝謝蘋果爸分享,我也來試試看

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

真是太神奇了
我也想試試

你真是博愛!!

真是太奇妙了, 我也來試看看.

棒耶～～

謝謝提供...

感謝蘋果爸的分享！下來試試...

好東西啊！下載來試看看囉。

好神，下載來研究學習。
謝謝分享

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

感謝蘋果爸

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

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

感謝蘋果爸分享~

來看看是如何做的，感謝蘋果爸的分享！

看起來真是好用...謝謝蘋果爸的教學

好東西!
趕快來下載~~

學習中~謝謝~

看到蘋果爸精彩的演出，除了喝采外，我也一時技癢，我以不同的思維給大家一個不同做法的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]

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