[编程交流] 帮助：缩放因子x，y，z=1

(defun C:BS ( / SS ent vla-obj )
(vl-load-com)
(if (setq SS (ssget "X" (list (cons 0 "INSERT"))))
        (repeat (setq i (sslength SS))
                (setq ent (ssname SS (setq i (1- i))))
                (setq vla-obj (vlax-ename->vla-object ent))
                (if 
                        (and
                                (or
                                        (not (= (vla-get-XScaleFactor vla-obj) 1.0))
                                        (not (= (vla-get-YScaleFactor vla-obj) 1.0))
                                        (not (= (vla-get-ZScaleFactor vla-obj) 1.0))
                                )
                                ; (vlax-get-IsDynamicBlock vla-obj :vlax-true)
                                (vlax-property-available-p vla-obj 'EffectiveName)
                                (member (vlax-get vla-obj 'EffectiveName) 
                                        '("AnnotPoint" "AnnotRepers" "AnnotKORYFES" "Annotstation" "AnnotTrigonom" "AnnotKOKAEK" "AnnotKOROT" "AnnotARID1" "AnnotAROT1" "AnnotDEH1" "Annotdvelos" "AnnotEikonastasi" "AnnotFANARI" "Annotkrounos" "AnnotMPASKETA" "AnnotOTE1" "AnnotSHMA1" "AnnotSHMA2" "AnnotSHMA3" "Annotstathmi" "Annotstayros" "annotTREE1" "annotTREE2" "annotTREE3" "annotTREE4" "annotTREE5" "annotTREE6" "annotTREE7" "annotTREE8" "annotTREE9" "annotTREE10" "annotTREE11" "annotTREE12" "annotTREE13" "AnnotNORTH" "Annotodsta" "Annotodtrig" "Annotvana" "Annotvelos")
                                )
                        )
                        (progn
                                (vla-put-XScaleFactor vla-obj 1.0)
                                (vlax-put-property vla-obj 'YScaleFactor 1.0)
                                (vlax-put vla-obj 'ZScaleFactor 1.0)
                        )
                )
        );repeat
)
(vla-Regen (vla-get-ActiveDocument (vlax-get-acad-object)) acActiveViewport)
(princ)
);defun        

(setq SS (ssget "X" (list (cons 0 "INSERT"))))

(setq SS (ssget (list (cons 0 "INSERT"))))