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

天青色

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

woaishuijia

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

1. 
   
2. (defun c:AAA()
   ( ]5 K/ U  G8 u( e  t% D
3.   (setvar "DIMBLK1" "CLOSEDBLANK")
   ; r" _% B- Z) s
4.   (setvar "DIMSAH" 1)
   8 z1 n1 b* Q+ c  s. k( o/ g0 f
5.   (setvar "DIMDEC" 4)
   / _$ S3 p, t1 ~; }! P7 H
6.   (command "-dimstyle" "s" "ABCD")
   
7.   (princ)
   - q- T/ a+ u  p$ h6 c5 [
8. )
   : Y6 U0 W* U0 c- o% d

复制代码

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

天青色

谢谢楼主的关注。

. K' z5 C' l7 C6 B; Z" O在CAD中一种标注下可以有很多子样式，在同一种标注样式下像线性标注、半径标注、直径标注等都可以有不一样的设置。如果我选择ABCD样式标直径文字对齐是ISO标准，经过设置子样式后，我同样选择ABCD样式标距离时文字对齐可以是与尺寸线对齐，就是不知道那样的程序要怎么写。
; W! l3 }2 v; o( _/ A
我想用下面的程序在cad2004中设置标注子样式

(setvar "DIMTOH" 0)
( D( @8 A* Z2 |7 n* R
! U% }% m7 ?( S" B  X(command "dimstyle" "s" "样式一")
/ p$ C  g, Z8 ]3 x
(setvar "DIMTOH" 1)
% m2 V# {! |2 N
- T: o6 V) T& e3 E& `, l(command "dimstyle" "s" "样式一:直径")
" g% _; ]2 S! |" g! A
& _5 G6 E' x+ P' r9 fcad提示的是 样式名无效

; O' e- y9 I" f2 R0 U4 f" i* q% e            输入新标注样式名或 [?]:
/ ]! D& V* u+ x

因为如用对话框设置标注子样式时看它新样式名中显示的是 样式一:直径 ，于是就用:冒号试了一下，但出现了上面的情况，不清楚什么原因

哪个高手解决一下这个问题啊，拜谢了

woaishuijia

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

天青色

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