czx7654321 发表于 2013-9-11 14:38:47

新建用于半径的标注样式

    我想在一个现有标注样式"A"中定义一个用于半径标注的子标注样式，求源码！

自贡黄明儒 发表于 2013-9-11 15:20:00

(if (not (tblsearch "dimstyle" (strcat (getvar "dimstyle") "$4")))
    (vl-cmdf ".dimstyle" "s" (strcat (getvar "dimstyle") "$4"))
)

czx7654321 发表于 2013-9-11 16:08:54

自贡黄明儒 发表于 2013-9-11 15:20 static/image/common/back.gif
(if (not (tblsearch "dimstyle" (strcat (getvar "dimstyle") "$4")))
    (vl-cmdf ".dimstyle" "s" (st ...

谢谢你的帮助！好了。
但我想改半径标注的样式，象这样的功能:(setvar "dimatfit" 0)该怎么办呢？

自贡黄明儒 发表于 2013-9-11 16:14:17

先执行:(setvar "dimatfit" 0)如何？

czx7654321 发表于 2013-9-11 16:35:18

(defun c:setup ( )

(setvar "expert" 5)
(setvar "dimasz" 2.8)
(setvar "dimcen" 0)
(setvar "dimclrd" 4)
(setvar "dimclre" 4)
(setvar "dimclrt" 4)
(setvar "dimdli" 10)
(setvar "dimexe" 1)
(setvar "dimexo" 1)
(setvar "dimgap" 0)
(setvar "dimltype" "continuous")
(setvar "dimatfit" 1)
(setvar "dimscale" sc)
(setvar "dimtxsty" "HZTXT")
(setvar "dimtxt" 5)
(setvar "dimtad" 1)
(setvar "dimjust" 0)
(setvar "dimtofl" 1)
(setvar "dimtih" 0)
(setvar "dimtoh" 0)
(command "dimstyle" "s" "CZX")
(setvar "expert" 0)


(if (not (tblsearch "dimstyle" (strcat (getvar "dimstyle") "$4")))
    (
      (vl-cmdf ".dimstyle" "s" (strcat (getvar "dimstyle") "$4"))
      (setvar "dimatfit" 0)
      (setvar "dimtoh" 1)
    )
)

(command "redraw")
(PRINC)
)

我这样倒是可以，但提示错误“错误: 函数错误: T”，还建了一个“替代样式”。
是哪里语法错误了吗，我是菜鸟，不要笑我，谢谢！

自贡黄明儒 发表于 2013-9-11 16:41:01

if 后要有progn

czx7654321 发表于 2013-9-11 16:51:11

太谢谢你了，还一个问题麻烦你，多建了一个“替代样式”怎么取消？

czx7654321 发表于 2013-9-11 17:10:58

(command "dimstyle" "r" "CZX")
插了这句，“替代样式”取消了，不晓得对不对。

清风明月名字 发表于 2013-9-14 10:59:01

谢谢楼主！又学一招。
页: [1]
查看完整版本: 新建用于半径的标注样式