创建标注样式

gduthy

(defun c:ys ()                                ;创建样式1
  (setvar "cmdecho" 0)
                                        ;(c::HanZi)
  (setq chklt (tblsearch "DIMSTYLE" "样式1"))
  (if (= chklt nil)
    (progn
      (C:ZG)
      (c:zt)
      (setvar "dimtxsty" (getvar "textstyle"))
      (setvar "dimtxt" ZIGAO)                ;指定标注文字的高度
      (setvar "DIMASZ" ZIGAO)                ;箭头大小
      (setvar "DIMDSEP" ".")                ;小数分隔符
      (setvar "DIMDEC" 2)
      (setvar "dimzin" 1)                ;补零
                                        ;两位小数
      (command "DIMSD1" "on")                ;隐藏尺寸线
      (command "DIMSD2" "on")
      (command "DIMSE1" "on")                ;隐藏尺寸界线
      (command "DIMSE2" "on")
      (setvar "DIMJUST" 0)                ; 尺寸线上的文字对正
      (setvar "DIMTAD" 0)                ;文字位于尺寸线上方
      (setvar "DIMTMOVE" 1)

      (command "DIMTIH" "off")                ;控制所有样式将文字与尺寸线对齐
      (command "DIMTOH" "off")                ;将文字与尺寸线对齐
      (command "-dimstyle" "S" "样式1")        ;建立标注样式

      (princ "\n创建样式1完成！")
    )
    (progn
      (C:ZG)
      (c:zt)
      (setvar "dimtxsty" (getvar "textstyle"))
      (setvar "dimtxt" ZIGAO)                ;指定标注文字的高度
      (setvar "DIMASZ" ZIGAO)                ;箭头大小
      (setvar "DIMDSEP" ".")                ;小数分隔符
      (setvar "DIMDEC" 2)
      (setvar "dimzin" 1)                ;补零
      (princ "\n样式1已存在！")
    )
  )
  (princ)
)

LIULISHENG

这么好的源码我来支持一下

xvjiex

感谢楼主分享源码，支持！错误: no function definition: C:ZG；c:zt。请提供以上2个function。谢谢！

gduthy

xvjiex 发表于 2020-4-30 14:21
感谢楼主分享源码，支持！错误: no function definition: C:ZG；c:zt。请提供以上2个function。谢谢！

那只是设置字高和字体的函数，你把这两个函数注释掉，替换为 (setq zigao (getreal "\n输入字高："))就可以了