明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2704|回复: 7

标注

[复制链接]
发表于 2002-3-27 17:42 | 显示全部楼层 |阅读模式
在标注时,比如说轴的剖面图,要标注成直径,就是说尺寸数字前得加一个直径符号,每次都得输入T,再写%%C,太烦了,有没有更方便的方法,我是说比如二次开发的程序!
发表于 2002-3-27 20:43 | 显示全部楼层
本帖最后由 作者 于 2002-3-27 20:43:27 编辑

(DEFUN C:HOD ( / ls en str)
  (setq ls nil en nil)
  (SETQ LS (ENTSEL "\n请选择一个dim:.."))
  (if ls
   (progn
      (setq en (car ls))
      (setq str (cdr (assoc 0 (entget en))))
    )
  )
  (if (= "DIMENSION" STR)
  (COMMAND "DIM1" "new" "%%c<>" en "")
  (PRINC "\n 没有选中dim")
   )
)
发表于 2002-3-27 19:39 | 显示全部楼层

单独创建一个新的标注(专门用于直径标注),在prefix里填写%%c即可。方便吧。

发表于 2002-3-27 20:14 | 显示全部楼层

这样行不行

(Defun C:Hd ()
;;;____________________________________
  (defun hd1 ()
    (setvar "dimtoh" 0)
    (setvar "dimexe" 0.4)
    (setq p1 nil
          p2 nil
    )
    (setq p1 (getpoint "\n &Ouml;&cedil;&para;¨&micro;&Uacute;&Ograve;&raquo;&Igrave;&otilde;&sup3;&szlig;&acute;&ccedil;&frac12;&ccedil;&Iuml;&szlig;&AElig;&eth;&micro;&atilde;"))
    (if        p1
      (setq p2 (getpoint p1 "\n &Ouml;&cedil;&para;¨&micro;&Uacute;&Ograve;&raquo;&Igrave;&otilde;&sup3;&szlig;&acute;&ccedil;&frac12;&ccedil;&Iuml;&szlig;&AElig;&eth;&micro;&atilde;"))
    )
    (if        (and p2 p1)
      (progn
        (Command "Dim1" "Hor" p1 p2 pause "")
        (setq ls (entlast))
        (setq p1 nil
              p2 nil
        )
      )
      (progn
        (setq en (entsel "\n &Ccedil;&euml;&Ntilde;&iexcl;&Egrave;&iexcl;&Oacute;&ucirc;±ê×&cent;&micro;&Auml;&Ecirc;&micro;&Igrave;&aring;:.."))
        (if en
          (progn
            (Command "Dim1" "Hor" "" en pause "")
            (setq ls (entlast))
            (setq en nil)
          )
        )
      )
    )
  )
;;;____________________________________
;;;  (SETLAY "DIM" 1 "CONTINUOUS")
  (setq ls nil)
  (hd1)
;;;  (setq ls (entlast))
  (if ls
    (progn
      (setvar "dimpost" "%%C<>")
      (command "dim1" "update" ls "")
      (setvar "dimpost" "")
      (setq ls nil)
    )
  )
  (setq hd1 nil)
  (princ)
)
发表于 2002-3-27 20:18 | 显示全部楼层

还是做一个单独的程序来增加直径符号好,标注完后一次性选择需要直径符号的标注

发表于 2002-3-27 20:33 | 显示全部楼层

随手编的,未试

发表于 2002-3-28 08:05 | 显示全部楼层

还可以用修改文字的方法

修改尺寸标注上的文字,一次命令可以连着对多个标注去修改,第一次输入“%%c”后把它放到剪贴板上(ctrl+c),改好一个标注后再选后一个标注,将光标移至最前面后用(ctrl+v),就好了。
发表于 2002-3-28 08:51 | 显示全部楼层

用特性框也可以,选中所有需要加直径符号的对象,改再特性中的替代文字项。

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 10:24 , Processed in 0.439678 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表