块中块转正不执行

ly8zx2109

(vl-load-com)
(defun c:zf ()                                ;/ ed edr edx edy edz i s13 s2
  (SETVAR "CMDECHO" 0)
  (command "undo" "group")
  (setq
    ss (ssget
         '((0 . "INSERT") (-4 . "<NOT") (66 . 1) (-4 . "NOT>"))
       )
  )
  (if ss
    (progn
      (setq i -1)
      (repeat (sslength ss)
        (setq ed (ssname ss (setq i (1+ i))))
        (vlax-for obj
                  (vla-item
                    (vla-get-blocks
                      (vla-get-ActiveDocument (vlax-get-acad-object))
                    )
                    (Vlax-Get (Vlax-Ename->Vla-Object ed) 'Name)
                  )
          (if   (wcmatch (vla-get-objectname obj) "INSERT")
             (progn
               (setq
                 edx (vla-get-Xscalefactor obj)
                 edy (vla-get-Yscalefactor obj)
                 edz (vla-get-Zscalefactor obj)
                 edr (vla-get-Rotation obj)
               )
               (if (> edr 0)
                 (vla-put-Rotation obj 0.0)
               )
               (if (< edx 0)
                 (vla-put-Xscalefactor obj (* -1 edx))
               )
               (if (< edy 0)
                 (vla-put-Yscalefactor obj (* -1 edy))
               )
               (if (< edz 0)
                 (vla-put-Zscalefactor obj (* -1 edz))
               )
             )
          )
        )
        (entupd ed)
      )
    )
  )
  (command "undo" "end")
  (SETVAR "CMDECHO" 1)
  (princ)
)

gaics

(wcmatch (vla-get-objectname obj) "INSERT")
这句改为：
(wcmatch (vla-get-objectname obj) "AcDbBlockReference")

ly8zx2109

gaics 发表于 2021-8-27 15:24
(wcmatch (vla-get-objectname obj) "INSERT")
这句改为：
(wcmatch (vla-get-objectname obj) "AcDbBloc ...