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

天青色

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

woaishuijia

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

1. 
   
2. (defun c:AAA()
   8 B& a6 ~2 L0 C. ]1 f* ^
3.   (setvar "DIMBLK1" "CLOSEDBLANK")
   + u  _- c  M$ r$ L. k/ ~  d) N
4.   (setvar "DIMSAH" 1)
   6 d# D, U6 U$ o; V5 W
5.   (setvar "DIMDEC" 4)
   
6.   (command "-dimstyle" "s" "ABCD")
   
7.   (princ)
   
8. )
   7 s3 C( O5 o- a7 s# E

复制代码

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

天青色

谢谢楼主的关注。
# T! q0 @, Y5 M6 m" K6 p$ H6 T% z
' @! `7 E' Z7 v( m$ `$ D1 j" J* y, }在CAD中一种标注下可以有很多子样式，在同一种标注样式下像线性标注、半径标注、直径标注等都可以有不一样的设置。如果我选择ABCD样式标直径文字对齐是ISO标准，经过设置子样式后，我同样选择ABCD样式标距离时文字对齐可以是与尺寸线对齐，就是不知道那样的程序要怎么写。
. a9 Y7 q, Y* L% @' z1 S
# Y$ j3 v2 \4 Q我想用下面的程序在cad2004中设置标注子样式

& c! L+ Q1 Y8 K' F5 a  X0 m(setvar "DIMTOH" 0)

: b$ p. h8 G& A) J" p2 I2 E(command "dimstyle" "s" "样式一")

(setvar "DIMTOH" 1)

(command "dimstyle" "s" "样式一:直径")

cad提示的是 样式名无效

" x  Q; g+ E# K$ t2 `            输入新标注样式名或 [?]:
4 E+ d9 V. q0 M; |* Y7 D
! V# I4 M- p6 X# W
+ }7 g3 e, z( v: |, N0 X因为如用对话框设置标注子样式时看它新样式名中显示的是 样式一:直径 ，于是就用:冒号试了一下，但出现了上面的情况，不清楚什么原因
7 C, C! B; B- Y; a8 r' c6 R0 Y& y
哪个高手解决一下这个问题啊，拜谢了

woaishuijia

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

天青色

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