[编程交流] 条带外部参照路径？

; remove xref paths
; select the first block
(progn
(setq blk (tblnext "BLOCK" 1))
; repeat for each block definition in the drawing
(while (/= blk nil)
 ; determine if the block is an xref
 (setq groupcode70 (cdr (assoc 70 blk)))
 ; determine if groupcode70 contains a bitwise 4
 ; this would indicate it is an xref
 (if (= 4 (logand 4 groupcode70))
   (progn
     ; if groupcode70 contains a bitwise 32 it is resolved
     (if (= 32 (logand 32 groupcode70))
       (progn
         ; it is resolved
         ; strip out path if present
         (if(setq xrefname (cdr (assoc 1 blk)))
         (if (wcmatch xrefname "*\\*")
           ; change the old name to the new
           (command ".-xref" "p"
                    (cdr (assoc 2 blk))
                    (strcat (vl-filename-base xrefname)(vl-filename-extension xrefname))
           ) ;end command
         )) ;end if
       ) ;end progn
       (progn) ; xref is unresolved - do not try to change it
     )
   )
   (progn) ; the block is not an xref
 )
 ; select the next block
 (setq blk (tblnext "BLOCK"))
)
);_end progn

(defun c:FOO  (/ path)
 (vl-load-com)
 (vla-startundomark
   (cond (*activeDoc*)
         ((setq *activeDoc*
                 (vla-get-activedocument (vlax-get-acad-object))))))
 (vlax-for x  (vla-get-blocks *activeDoc*)
   (if (and (vlax-property-available-p x 'isxref)
            (= :vlax-true (vla-get-isxref x)))
     (vla-put-path
       x
       (strcat (vl-filename-base (setq path (vla-get-path x)))
               (vl-filename-extension path)))))
 (vla-endundomark *activeDoc*)
 (princ))