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

天青色

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

woaishuijia

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

1. 
   
2. (defun c:AAA()
   , W( t# W# T1 P8 E
3.   (setvar "DIMBLK1" "CLOSEDBLANK")
   
4.   (setvar "DIMSAH" 1)
   
5.   (setvar "DIMDEC" 4)
   " l/ K+ D* N  H% e6 J
6.   (command "-dimstyle" "s" "ABCD")
   3 Y$ \; X; R  C4 j3 L" L5 J$ O
7.   (princ)
   
8. )
   5 c! c. U, z8 y9 p0 D0 a0 _

复制代码

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

天青色

谢谢楼主的关注。
6 ]. d9 Z+ r4 [, _& C
6 F: C# \6 _' S0 S' f1 c, m在CAD中一种标注下可以有很多子样式，在同一种标注样式下像线性标注、半径标注、直径标注等都可以有不一样的设置。如果我选择ABCD样式标直径文字对齐是ISO标准，经过设置子样式后，我同样选择ABCD样式标距离时文字对齐可以是与尺寸线对齐，就是不知道那样的程序要怎么写。
2 H: Q, V5 B, e* |7 J. W
) L5 E9 s' f4 x: j! `( v4 A我想用下面的程序在cad2004中设置标注子样式
8 K; `& ?, D6 l/ f8 {9 w, K
7 V% f- K7 r& x: h5 \(setvar "DIMTOH" 0)

(command "dimstyle" "s" "样式一")
! v" z! e% F) w/ v- A6 l. v2 a
(setvar "DIMTOH" 1)
7 M6 \; ^9 ^9 f, E# ^% l6 L+ ?, t
(command "dimstyle" "s" "样式一:直径")
; ~. q3 X- |5 p
cad提示的是 样式名无效
  ?5 Q7 Q1 y) [4 Z
            输入新标注样式名或 [?]:

- d' K/ i5 I; J9 W
因为如用对话框设置标注子样式时看它新样式名中显示的是 样式一:直径 ，于是就用:冒号试了一下，但出现了上面的情况，不清楚什么原因
2 N# O. u* F% s
哪个高手解决一下这个问题啊，拜谢了

woaishuijia

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

天青色

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