新建用于半径的标注样式

czx7654321

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

自贡黄明儒

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

czx7654321

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

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

自贡黄明儒

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

czx7654321

(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”，还建了一个“替代样式”。
是哪里语法错误了吗，我是菜鸟，不要笑我，谢谢！

自贡黄明儒

if 后要有progn

czx7654321

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

czx7654321

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

清风明月名字

谢谢楼主！又学一招。