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

天青色

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

woaishuijia

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

1. 
   ' p4 X( l# x0 n( |* f$ p$ P# D
2. (defun c:AAA()
   
3.   (setvar "DIMBLK1" "CLOSEDBLANK")
   
4.   (setvar "DIMSAH" 1)
   
5.   (setvar "DIMDEC" 4)
   9 c+ b- F! H; u- v5 }. |
6.   (command "-dimstyle" "s" "ABCD")
   
7.   (princ)
   " V- i% J% u- i* A- O
8. )
   - K+ J* B# {* s& i0 x; a& @

复制代码

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

天青色

谢谢楼主的关注。

在CAD中一种标注下可以有很多子样式，在同一种标注样式下像线性标注、半径标注、直径标注等都可以有不一样的设置。如果我选择ABCD样式标直径文字对齐是ISO标准，经过设置子样式后，我同样选择ABCD样式标距离时文字对齐可以是与尺寸线对齐，就是不知道那样的程序要怎么写。

  ]; E5 I) o5 f$ ^我想用下面的程序在cad2004中设置标注子样式

* n4 r- ?6 p! I4 H/ \(setvar "DIMTOH" 0)
. S2 [0 e; x9 a' R5 J, Z8 b
& N' m4 k# k1 b- g9 ](command "dimstyle" "s" "样式一")
- u$ [# J! a. i2 b( M) d
3 I& f  K, F/ P(setvar "DIMTOH" 1)

& B( C; n4 Q% d: ^& X& C* V(command "dimstyle" "s" "样式一:直径")
, I2 W, w1 B& K% D& y
( u$ F% f/ g5 _% q) Z3 Dcad提示的是 样式名无效

            输入新标注样式名或 [?]:
" j; m! s% p! ^. q0 S$ I! H

$ K# ^5 E, E0 l# t- @( R8 P因为如用对话框设置标注子样式时看它新样式名中显示的是 样式一:直径 ，于是就用:冒号试了一下，但出现了上面的情况，不清楚什么原因
$ G1 _. U6 U! j6 \
7 ?$ ^3 g1 |5 g: U# `3 }. T/ l6 m哪个高手解决一下这个问题啊，拜谢了

woaishuijia

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

天青色

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