详图如何批量还原

xdcad1988

设计院给的一堆详图  图框大小都一样  里面比例 1:2 1:10 1:25 .........十几种
因为工作需要把详图缩放为1:1（可以炸开）   详图有上百个

用sc太费时间了  有没有办法读取图框中比例的数值 然后自动按照数值还原城1:1的图

newer

请上传测试图纸，截图说明前后变化。

liunian0524

;;块改缩放比例,比例设置为1就OK
(defun c:BS ( / s sc )
  (setq sc
    (cond
      ((getreal "\n输入块比例:"))
      ((vla-get-xscalefactor (vlax-ename->vla-object (car (entsel)))))
    )
  )
  (if (ssget)
    (vlax-for s (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
      (vla-put-xscalefactor s sc)
      (vla-put-yscalefactor s sc)
    )
  )
(princ)
)

xinxirong

他说他的图不是按比例画的，尺寸标注是手改