角度标注全部转弧长标注

Highflybird · 发表于 2013-5-7 22:30:10

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

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

×

在2006以下弧长标注有时候比较困难，但角度的连续标注比较容易，（天正用轴网标注可以很快生成角度标注）
所以我这里编写了一个小工具，用来把角度标注转化为弧长标注的。命令: CCC
[pcode=lisp,true]
(defun c:ccc (/ fil sel rad R i ent dxf val new)
  (setq fil '( (-4 . "<OR")
               (100 . "AcDb2LineAngularDimension")
               (100 . "AcDb3LineAngularDimension")
               (-4 . "OR>")
               (0 . "DIMENSION")
            )
  )
  (if (and (setq sel (ssget fil))
            (setq rad (car (entsel "\n请选择相应的圆弧: ")))
            (setq rad (entget rad))
            (or (= (cdr (assoc 0 rad)) "CIRCLE")
               (= (cdr (assoc 0 rad)) "ARC")
            )
   )
(progn
   (setq R (cdr (assoc 40 rad)))
   (setq i 0)
   (repeat (sslength sel)
      (setq ent (ssname sel i))
      (setq dxf (entget ent))
      (setq val (assoc 42 dxf))
      (setq new (* (cdr val) R))
      (setq new (rtos new 2 0))
      (setq new (strcat "{\\fSimSun|b0|i0|c134|p2;⌒}" new))
      (setq dxf (subst (cons 1 new) val dxf))
      (entmod dxf)
      (setq i (1+ i))
   )
)
  )
)
[/pcode]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:AngDim2RadDim.lsp
下载次数:63 文件大小:843 Bytes
下载权限: 不限以上 [免费赚D豆]

/db_自贡黄明儒_ · 发表于 2013-5-8 10:58:59

你写的程序有高深的,有也很实用的.
你转移阵地了?

sachindkini · 发表于 2013-5-8 13:48:25

dear sir,
nice thx
{:soso_e179:}{:soso_e179:}

scnjlwb · 发表于 2018-3-26 11:30:27

谢谢分享！

栋梁 · 发表于 2018-8-2 23:22:24

收藏了以备不时之需

MUYIY · 发表于 2022-6-11 20:38:11

谢谢

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

[飞鸟集] 角度标注全部转弧长标注

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

相关帖子