gduthy 发表于 2020-4-10 13:05:44

创建标注样式



(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 发表于 2020-4-30 11:30:01

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

xvjiex 发表于 2020-4-30 14:21:59

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

gduthy 发表于 2020-5-5 11:41:55

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

那只是设置字高和字体的函数，你把这两个函数注释掉，替换为 (setq zigao (getreal "\n输入字高："))就可以了
页: [1]
查看完整版本: 创建标注样式