(defun C:tes ( / #os1 #r1 &k1 &kw1 &ob1 pt1)
(vl-load-com)
(setq #os1 (getvar "osmode"))
(if (and (setq &kw1 (ssget));如果只是選擇圓的話(ssget '((0 . "CIRCLE")))替換(ssget)
(setq #r1 (getdist "\n請輸入縮小或放大倍數(shù)"))
(> #r1 0)
)
(progn
(setvar "osmode" 0)
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1))
(setq &ob1 (vlax-ename->vla-object &k1))
(setq pt1 (lsp201510026 &ob1))
(vla-ScaleEntity &ob1 pt1 #r1)
)
(setvar "osmode" #os1)
)
)
(princ)
);復(fù)制到記事本,以【.lsp】為后綴命名,打開CAD豹悬，autolisp加載，命令【TES】
;包圍盒中心點(diǎn)放大縮小對象;圓的中心點(diǎn)也就是圓心
;;;;;;;;;;;;;
;包圍盒中心點(diǎn)
;;;;;;;;;;;;;
(defun lsp201510026 (&ob1 / &ob1 pt1 pt2 x)
(vla-GetBoundingBox &ob1 'pt1 'pt2)
(setq pt1 (Vlax-SafeArray->List pt1) pt2 (Vlax-SafeArray->List pt2))
(setq pt1 (mapcar '(lambda (x) (* x 0.5)) (mapcar '+ pt1 pt2)))
(vlax-3d-Point pt1)
)
