为外部参照旋转一下。。。没有时间处理图像。您可能需要使用CLASSICXREF命令来查看即时结果。直到重新打开图形,它们才显示在新的Pallete外部参照管理器中??
- (defun rjp-changexrefpath (path1 path2 / newpath xrpath)
- (vl-load-com)
- (vlax-map-collection
- (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
- (function
- (lambda (x)
- (if (= (vla-get-isxref x) :vlax-true)
- (progn (setq xrpath (strcase (vlax-get x 'path) t))
- (if (and (vl-string-search (strcase path1 t) xrpath)
- (setq newpath (vl-string-subst path2 path1 xrpath))
- (findfile newpath)
- )
- (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-path (list x newpath)))
- (princ (strcat "\n**OLD path found but was not changed!\n" xrpath))
- (princ (strcat "\n" newpath))
- )
- )
- )
- )
- )
- )
- )
- (princ)
- )
- ;;(rjp-changexrefpath "B:\\_Projects" "\\\\SERVER101\ACAD\\_Projects")
|