|
|
发表于 2007-12-20 13:14:12
|
显示全部楼层
来自: 中国江苏无锡
我是这样做的,在启动组内加入以下lsp程序,1 C9 X# L: K. }2 C
+ k0 R" c M# ~% `
在绘图过程中,只要输入命令DS,输入标注比例即可,省时对省力!
, c- ~# |1 z* Y1 M3 G. C3 O" s6 i8 C
(defun C:ds (/ dimst ds0 oldecho)
$ X' w% U. T- }/ z' w (setq oldecho (getvar "cmdecho" dimst (getvar "dimscale") ds0 dimst)
1 g7 a& y5 X: r1 r7 B2 ^$ W, u7 o (setvar "cmdecho" 0)
7 G. g4 F; Y1 B( f (princ "\nEnter new value for DIMSCALE & CELTSCALE <")(princ dimst)
! V8 ?& b0 r( ` Y (setq ds0 (getreal ">: "))
9 @/ K5 ~& J! t# k: { (if ds0 (progn (setvar "dimscale" ds0)(setvar "CELTSCALE" ds0)(setvar "HPSCALE" ds0)(setvar "TEXTSIZE" (* ds0 3.5))))
) B& U# J" y. A6 K8 E' t (setvar "cmdecho" oldecho)
7 _/ V7 j* g! a3 m0 l; i; E (princ)3 M# Y" w3 n, e- b. Z) j
)3 c4 q2 `9 h- i9 u( c* J6 U8 q
4 F1 H0 Y* C3 m( Y5 I9 C( z1 E- z
[ 本帖最后由 fundoll 于 2007-12-20 13:15 编辑 ] |
|