请帮忙写一个批量把对齐标注转化为转角标注的工具

Lisphk · 发表于 2013-5-16 15:55:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

工作中有时候为了省事，很多用了对齐标注，可以后来在夹点拉伸的时候就来麻烦了，不会平行原来的标注尺寸线平行，能否提供个工具能批量把图中的对齐标注转化为转角线性标注？

eachy · 发表于 2013-5-16 18:11:28

lisp论坛随手写的一些工具中有这个datol

XDSoft · 发表于 2013-5-16 18:21:51

登录/注册后可看大图

请测试。

[pcode=lisp,true]
(defun c:XDTB_DimA2L (/ ss i e p10 p11 p13 p14 i)
  (if (setq ss (ssget '((0 . "dim*") (100 . "AcDbAlignedDimension"))))
(progn
   (xdrx_begin)
   (xdrx_ucson)
   (setq i 0)
   (xdrx_setsstodb ss 0)
   (while (setq e (xdrx_getentData 0))
      (setq p10 (xdrx_getentdxf 10)
            p11 (xdrx_getentdxf 11)
            p13 (xdrx_getentdxf 13)
            p14 (xdrx_getentdxf 14)
            dimstyl (xdrx_getentdxf 3)
      )
      (command "dim1" "rotate" (angtos (angle p13 p14) 1 5) p13 p14 0 p10
               ""
      )
      (xdrx_entity_SetPropertiesFrom (entlast) e)
      (xdrx_setenttodb (entlast))
      (xdrx_modent 3 dimstyl)
      (setq i (1+ i))
   )
   (xdrx_entity_delete ss)
   (xdrx_ucsoff)
   (xdrx_end)
   (prompt (strcat "\n成功转换了" (rtos i 5) "个对齐标注到线性标注。"))
)
  )
  (princ)
)

[/pcode]

Lisphk · 发表于 2013-5-16 18:52:10

XDSoft 发表于 2013-5-16 18:21
请测试。

{:soso__17399279712352231896_1:}太感谢，测试中，目前还没发现问题，有问题会及时反馈。

liuyun242 · 发表于 2013-5-16 20:21:41

楼上的要用到 xdrx 的库，高版本cad用不了

liuyun242 · 发表于 2013-5-16 20:28:42

本帖最后由 liuyun242 于 2013-5-16 20:50 编辑

这是我自己弄得

(defun c:dacds ( / ee ek ent i p1 p2 pps ss th)
(princ "选择对齐标注\n") (setq ss (ssget '((0 . "dim*") (100 . "AcDbAlignedDimension"))))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i)
ee (entget ent)
i (1+ i)
)
(progn
(setq p1 (cdr (assoc 13 ee))
p2 (cdr (assoc 14 ee))
)
(setq pps (list p1 p2)
pps (wcstoucs pps)
)
(setq th (angle (car pps) (cadr pps)))
(setq ek ee)
(setq ek (subst
(cons 70 32)
(assoc 70 ek)
ek
)
)
(setq ek (subst
(cons 50 th)
(assoc 50 ek)
ek
)
)
(setq ek (append
ek
(list (cons 100 "AcDbRotatedDimension"))
)
)
(entmake ek)
(entdel ent)
)
)
(prompt (strcat "\n成功转换了" (rtos i 5) "个对齐标注到线性标注。"))
(princ)
)

(defun c:dacds ( / ee ek ent i p1 p2 pps ss th) 
  (princ "选择对齐标注\n")    (setq ss (ssget '((0 . "dim*") (100 . "AcDbAlignedDimension")))) 
  (setq i 0) 
  (repeat (sslength ss) 
        (setq ent (ssname ss i) 
                  ee (entget ent) 
                  i (1+ i)                  
        ) 
        (progn 
          (setq p1 (cdr (assoc 13 ee)) 
                        p2 (cdr (assoc 14 ee)) 
          ) 
          (setq pps (list p1 p2) 
                        pps (wcstoucs pps) 
          ) 
          (setq th (angle (car pps) (cadr pps))) 
          (setq ek ee) 
          (setq ek (subst 
                                 (cons 70 32) 
                                 (assoc 70 ek) 
                                 ek 
                           ) 
          ) 
          (setq ek (subst 
                                 (cons 50 th) 
                                 (assoc 50 ek) 
                                 ek 
                           ) 
          ) 
          (setq ek (append 
                                 ek 
                                 (list (cons 100 "AcDbRotatedDimension")) 
                           ) 
          )                                       
         (entmake ek) 
          (entdel ent) 
        ) 
 
  ) 
  (prompt (strcat "\n成功转换了" (rtos i 5) "个对齐标注到线性标注。")) 
  (princ) 
)

Lisphk · 发表于 2013-5-16 21:28:09

liuyun242 发表于 2013-5-16 20:28
这是我自己弄得

谢谢，我还不能评分，等能评分后，追加。

Free-Lancer · 发表于 2013-5-17 15:59:13

http://www.xdcad.net/forum/forum ... 628&pid=3446455

wx_DtpBTuO2 · 发表于 2020-2-3 22:56:56

非常好的程序

意思哥 · 发表于 2020-5-8 15:15:39

这个程序用了下转不了哦怎么回事

账号		自动登录	找回密码
密码			立即注册

[已解决] 请帮忙写一个批量把对齐标注转化为转角标注的工具

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分