一个关于标注的LISP

韩非

因为我的工作经常要出一些回转体的剖面图(图左边是中心线，右边是剖面图)，所以经常要用线性标注去标示直径。以前我一直是标注时用心算把值x2写进去，标完后再把标注文字左对齐，然后标注炸开，把中心线一侧的箭头、引线等删去，非常麻烦。 今天想看看能不能用LISP来做一个功能可以省点事，但是我从来没学过LISP！所以想请各位大侠帮帮忙，看应该怎么写。

9 b9 y. Y1 J8 z0 d: C, T. y( t下面的是我的思路，因为没学过，我只是把我想要实现的功能列出来：
8 W  c  c8 H" T( V, O5 w- W0 ?(command "dimoverride" "DIMJUST" 1 "DIMLFAC" 2 "DIMSD1" 1 "DIMSE1" 1) 先把标注样式设为文字左对齐、不显示左侧引线、箭头
(command "dimlinear")  进行标注
3 a& z. ^* m; S4 b# e(command "dimoverride" "DIMJUST" 0 "DIMLFAC" 1 "DIMSD1" 0 "DIMSE1" 0) 再把标注样式还原
4 C% U; A& T5 l
& V, w3 c5 Z. a' i看哪位朋友能帮忙把它实现出来。

manbuzhe

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

韩非

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

truezx

你设置好样式后，例如这个直径标注专门的样式为“样式一”，其它标注都是标注样式，你只要不管三七二十一都标注完后，选择你想修改的直径，然后在特性里将样式改为“样式一”就可以了啊，这样也不是很麻烦的吧？

- f% Q# D5 X& _( S不过楼主想练习lisp，当然也无可厚非，呵呵。

韩非

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