|
|
发表于 2007-12-20 13:14:12
|
显示全部楼层
来自： 中国江苏无锡
我是这样做的，在启动组内加入以下lsp程序，
! ~$ l' P) {/ n* q4 P+ @: ?/ e( Z& b; b+ h- {
在绘图过程中，只要输入命令DS，输入标注比例即可，省时对省力！
& H- i2 G* V: o& H7 `, p) {- R$ w9 B$ O( \ Z
(defun C:ds (/ dimst ds0 oldecho)
! u3 b/ s+ f; D8 E7 g (setq oldecho (getvar "cmdecho" dimst (getvar "dimscale") ds0 dimst)
' `3 I0 `! r" y (setvar "cmdecho" 0): O. ~, x/ J6 E8 K
(princ "\nEnter new value for DIMSCALE & CELTSCALE <")(princ dimst)8 b/ e, @% M! v4 N5 [/ C0 p0 r4 U
(setq ds0 (getreal ">: "))4 O+ A; x5 p" C
(if ds0 (progn (setvar "dimscale" ds0)(setvar "CELTSCALE" ds0)(setvar "HPSCALE" ds0)(setvar "TEXTSIZE" (* ds0 3.5))))
5 L a1 w. S- m: O/ A- J: u, B, R7 p (setvar "cmdecho" oldecho)
" @0 E* a8 w$ { (princ)
; |6 l* u. M1 k)% i m/ ~% I3 {1 V
& e" D# R; V4 V1 A; y* ~; |* K
[ 本帖最后由 fundoll 于 2007-12-20 13:15 编辑 ] |
|
