一个关于标注的LISP

韩非

因为我的工作经常要出一些回转体的剖面图(图左边是中心线，右边是剖面图)，所以经常要用线性标注去标示直径。以前我一直是标注时用心算把值x2写进去，标完后再把标注文字左对齐，然后标注炸开，把中心线一侧的箭头、引线等删去，非常麻烦。 今天想看看能不能用LISP来做一个功能可以省点事，但是我从来没学过LISP！所以想请各位大侠帮帮忙，看应该怎么写。
* L' C0 g& r2 d
下面的是我的思路，因为没学过，我只是把我想要实现的功能列出来：
( D% ?% O3 c: s( c* b; N) I(command "dimoverride" "DIMJUST" 1 "DIMLFAC" 2 "DIMSD1" 1 "DIMSE1" 1) 先把标注样式设为文字左对齐、不显示左侧引线、箭头
; c# a7 r% y3 [$ c7 y2 g$ `( K; \(command "dimlinear")  进行标注
(command "dimoverride" "DIMJUST" 0 "DIMLFAC" 1 "DIMSD1" 0 "DIMSE1" 0) 再把标注样式还原
* V4 W' ?8 x8 P4 ], w
; ]( C1 u8 v; ~2 G, u看哪位朋友能帮忙把它实现出来。

manbuzhe

你所述的是DIM标注变量修改，其实不用这么麻烦，在标注样式中就可以完成你所需要的设置。

韩非

我主要是想用类似宏一样的功能把它实现出来。因为一个图的标注不可能光是标这种直径，所以我想做一个专门标直径的按钮。这个宏就是先修改样式，然后做标注，然后还原样式。

truezx

你设置好样式后，例如这个直径标注专门的样式为“样式一”，其它标注都是标注样式，你只要不管三七二十一都标注完后，选择你想修改的直径，然后在特性里将样式改为“样式一”就可以了啊，这样也不是很麻烦的吧？
9 Z& g/ I: z6 s4 ]4 C) R: Q
不过楼主想练习lisp，当然也无可厚非，呵呵。

韩非

呵呵，我的确是想顺便学学LISP。 目前我是设了一个专用样式，先把需要标直径的标完，再切换样式标别的。