求，批量把轴号转正lsp

alexmai

画立面时会copy 平面的轴号画图，有时会遇到一些“轴号块”是镜像过这些情况，如：

x轴，y轴，z轴 / 角度
（-1，1，1） / 180
（20，-20，20） / 90
......

求能批量把轴号的（x,y,z）轴转为
（1，1，1） /  0度
（20，20，20） /  0度

并且把块，旋转为 0度

------------------------------------
在明经已经找到把块转为0度的lsp

;;批量旋转块-归0
(defun c:b0(/ x k s n m en r)
  (vl-load-com)
;  (setq x(getangle"\n输入需要旋转的角度<归0>:"))
;  (if(null x)(setq x 0 k nil) (setq k t))
  (setq x 0);跳过前面两步-不输入直接为0度
  (setq s(ssget'((0 . "INSERT"))))
  (if s
    (progn
      (setq n(sslength s)m 0)
      (while(< m n)
        (setq en(ssname s m)
              m(1+ m))
        (if k(setq r (+ (cdr(assoc 50 (entget en))) x))(setq r x))
        (vla-put-Rotation (vlax-ename->vla-object en) r)
        )))
  (princ)
  )

start4444

直接提取插入点和块名，全部重新按1：1插入块，改麻烦

alexmai

start4444 发表于 2019-5-28 14:06
直接提取插入点和块名，全部重新按1：1插入块，改麻烦

轴号是属性块来的，1，2，3，A, B，C...等文字，重新插块那文字怎样解决？

happy336

谢谢分享，学习了