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

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

代碼:

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

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

代碼:

;DJH_069.lsp
;加間隙變圖層及顏色
(defun C:DJH_069(/ OCE OSP CCLR CLAY CLTP D1 D1 S1 S1_name S1_date CLR1 LAY1 LTP1)
  (graphscr)
  (princ "\nDJH_069")
  (setq
    OCE (getvar "CMDECHO")
    OSP (getvar "OSMODE")
    CCLR (getvar "CECOLOR")
    CLAY (getvar "CLAYER")
    CLTP (getvar "CELTYPE")
    D1 1
  )
  (setvar "CMDECHO" 0)
  (cond
    ((/= 偏移距離OFF1 nil)
      (initget 4)
      (setq
        FF (strcat "\n指定偏移距離 <" (rtos 偏移距離OFF1) ">：")
        OFF1 (getreal FF)
      )  ;end setq
      (if (= OFF1 nil) (setq OFF1 偏移距離OFF1))
    )  ;end )
    ((= 偏移距離OFF1 nil)
      (initget 4)
      (setq  OFF1 (getreal "\n指定偏移距離： "))
      (while (= OFF1 nil)
        (princ "請輸入大於或等於0的數值，或按 [Esc] 結束")
        (setq OFF1 (getreal "\n指定偏移距離："))
      )  ;end while
    )  ;end )
  )  ;end cond
  (setq 偏移距離OFF1 OFF1)
  (while (>= OFF1 0)
    (while (= D1 1)
      ;(setvar "OSMODE" 512)
      (setq S1 (entsel "\n選取偏移物件："))
      ;(setvar "OSMODE" OSP)
      (if (null S1)(exit))
      (setq PT1 (getpoint "\n指定偏移方向："))
      (if (null PT1)(exit))
      (setq
        S1_name (car S1)
        S1_date (entget S1_name)
        CLR1 (cdr (assoc 62 S1_date))  ;顏色
        LAY1 (cdr (assoc 8 S1_date))  ;圖層
        LTP1 (cdr (assoc 6 S1_date))  ;線型
      )
      (command "UNDO" "BE")
      (if (null CLR1) (setq CLR1 "BYLAYER"))
      (if (null LAY1) (setq LAY1 "BYLAYER"))
      (if (null LTP1) (setq LTP1 "BYLAYER"))
      (setvar "OSMODE" 0)
      ;變更原圖線色,圖層,線型
      (command "CHANGE" S1 "" "P" "C" CCLR "LA" CLAY "LT" CLTP "")
      ;加間隙並回復原圖性質
      (command "OFFSET" OFF1 S1 PT1 "")
      (command "ERASE" S1 "")
      (princ "完成")
      (setvar "CMDECHO" OCE)
      (setvar "OSMODE" OSP)
      (command "UNDO" "E")
    )
  )
  (princ)
)   

djh1006 寫到:是的,這是一個好方法,而且可以xy不同比例縮放
不過我要的效果是加間隙不是整體縮放,而且通常會往外擴張不是向內縮小。我的作法如下:
;DJH_069.lsp
;加間隙變圖層及顏色

Spoiler（用來隱藏帖子內容）:

代碼:

(DEFUN C:DIA-OFFSET ()
;;;;變更圓半徑程式
  (prompt "\n請選取欲更改直徑的圓 :")
  (if (and
   (setq ss (ssget '((0 . "circle"))))
   (setq dos (/ (getreal "\n請輸入半徑的偏移量: ") 2))
      )
    (progn
      (setq n 0)
      (repeat (sslength ss)
   (setq en (entget (ssname ss n))
         rc (cdr (assoc 40 en))
   )
   (if (not
         (and (< dos 0.0)
         (>= (abs (* dos 2.0)) rc)
         )
       )
     (progn
       (setq en (subst
             (cons 40 (+ (* dos 2.0) (cdr (assoc 40 en))))
             (assoc 40 en)
             en
           )
       )
       (entmod en)
     )
     (princ (strcat "您指定的偏移量 "
          (rtos (* dos 2.0) 2 2)
          ", 其絕對值大於圓的半徑 "
          (rtos rc 2 2)
          ", 更改後的圓, 其半徑會小於零... 故不更改此圓半徑值!!!\n"
       )
     )
   )
   (setq n (1+ n))
      )
    )
  )

  (PRIN1)
)