用lisp语言设置AutoCAD2004的标注子样式？

天青色

谁能用lisp语言设置AutoCAD2004的标注子样式吗？期待。。。。。。

woaishuijia

先设置相关的系统变量，再用“-dimstyle”命令保存，例如

1. 
   5 f8 i* W  e9 u' E1 E' ^5 ?7 M( S
2. (defun c:AAA()
   ; V* Y* t, [8 i
3.   (setvar "DIMBLK1" "CLOSEDBLANK")
   
4.   (setvar "DIMSAH" 1)
   
5.   (setvar "DIMDEC" 4)
   
6.   (command "-dimstyle" "s" "ABCD")
   
7.   (princ)
   
8. )
   4 _9 H4 f& `( a

复制代码

系统变量名称和值请查看CAD帮助文件，有关标注样式的系统变量都是用“DIM”开头的

天青色

谢谢楼主的关注。
2 S6 W, U/ K. o: @8 k; {$ r1 O% h
在CAD中一种标注下可以有很多子样式，在同一种标注样式下像线性标注、半径标注、直径标注等都可以有不一样的设置。如果我选择ABCD样式标直径文字对齐是ISO标准，经过设置子样式后，我同样选择ABCD样式标距离时文字对齐可以是与尺寸线对齐，就是不知道那样的程序要怎么写。
/ C0 p- j$ \; S, y4 V8 v. Z8 H" Z
6 y+ [# F* N2 S0 Y0 {我想用下面的程序在cad2004中设置标注子样式

# a- f7 u* R" F% x2 m8 }- ]- W7 ^(setvar "DIMTOH" 0)
% ~3 M0 _, d3 H, o2 L; X) m' l
! d! a' }" d$ \  o5 g; ^4 F4 U(command "dimstyle" "s" "样式一")

, r% S8 T8 P. k* \) @' K0 v- \" u(setvar "DIMTOH" 1)
8 }! p, z0 `: i/ M$ J- I/ g7 U- s
2 F5 [9 @* m9 a9 r1 D+ z(command "dimstyle" "s" "样式一:直径")
& ]  {3 B  U8 \/ f# ]: p
cad提示的是 样式名无效

            输入新标注样式名或 [?]:
3 b! ?( k$ D% ~& r: l  k
! Y( v# I; R  L) [* d  M' q
因为如用对话框设置标注子样式时看它新样式名中显示的是 样式一:直径 ，于是就用:冒号试了一下，但出现了上面的情况，不清楚什么原因

0 E5 g- i" N7 n哪个高手解决一下这个问题啊，拜谢了

woaishuijia

半角冒号是非法字符，不能用来给对象命名

天青色

这个问题谁能关注一下啊，我查了好久，看来AutoCAD2004中只能用对话框设置二次标注样式了