[分享]：新年礼物：把毫米制改成米制标注的工具

841594

我常用这个程序进行总图尺寸的标注，希望大家喜欢。
祝大家新年快乐！！！*-*5
(附件不知怎样用，把代码贴在下边了...)


(defun c:dai1( / ss n dtxt)
    (defun dtxt(en / ent etype p0 p13 p14 p131 p141 ang an1 p01)
      (setq ent (entget en)
            oldtext (cdr (assoc 1 ent)))
      (setq etype (cdr (assoc 70 ent)))
      (cond
        ((= (logand etype 0) 0)
         (setq p0 (cdr (assoc 10 ent))
               p13 (cdr (assoc 13 ent))
               p14 (cdr (assoc 14 ent))
               ang (cdr (assoc 50 ent))
               p131 (polar p13 ang 100.0)
               an1 (+ ang (* 0.5 pi))
               p141 (polar p14 an1 100.0)
               p01 (inters p13 p131 p14 p141 nil)
               dtt (rtos (/ (distance p13 p01) 1000.0) 2))
        )
        ((= (logand etype 1) 1)
         (setq p0 (cdr (assoc 10 ent))
               p13 (cdr (assoc 13 ent))
               p14 (cdr (assoc 14 ent))
               dtt (rtos (/ (distance p13 p14) 1000.0) 2))
        )
        ((= (logand etype 2) 2) (setq dtt oldtext))
        (t (setq dtt oldtext))
      )
    ) ;dtxt

    (setq ss (ssget '((0 . "DIMENSION"))) n 0)
    (while (setq en (ssname ss n))
      (dtxt en)
      (setq ent (entget en)
            nent (subst (cons 1 dtt) (assoc 1 ent) ent))
      (entmod nent)
      (setq n (1+ n))
    ) ;while
    (princ)
  )

luow

能否说说如何用？

lucyxia

以前曾经画过总图，只是在标注格式中将线形比例改为0.01然后加后缀米,感觉也不麻烦.也许是图比较简单的缘故(自己是搞结构的别人给简单的小图画画)
不知这个程序有多方便,用用看.

841594

程序的用法：
这个程序适用于总图是以毫米为单位绘制的情况下，可以先用普通方法标注尺寸，然后加载并运行这个程序，选择所有要改的尺寸，就能全部改成米制。优点是不用增加新的标注格式，缺点是改完后尺寸就不能关联了,如果作了拉伸之类的修改，还需要再执行一遍进行刷新。

zhiyongfan

有没有一种方法,把英寸标准的图纸和毫米标准的图纸互相转换?

luow

能否以米制直接标注，似乎更符合使用习惯一些？

coolzhb

最初由 zhiyongfan 发布
[B]有没有一种方法,把英寸标准的图纸和毫米标准的图纸互相转换? [/B]

只要知道他们之间的关系，用比例尺寸值就可以了！其程序的核心就是尺寸值乘1000。

841594

最初由 zhiyongfan 发布
[B]有没有一种方法,把英寸标准的图纸和毫米标准的图纸互相转换? [/B]

如果要转换整张图纸，改变一下全局unit和尺寸格式里的unit设置应该可以。（单位改成“小数”）。最多把全图按比例缩放一下。

伊枫

但是总图的标注量应该不是很大的阿，还是用笨方法好，感觉，除非这个程序能进行关联。

aaalz

代码? 不懂用

ydf7332462

运行似不正常

sxlxf

好像不怎么好用