求助：帮忙开发一个AutoCAD小程序

bigbridge812

各位高手：
帮忙写一个小程序，lisp就可以，
5 w* ^$ N$ e- c2 K如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
- g8 O; s5 V$ F# i. ], ]- G% o8 X谢谢各位了！
! K, f7 p( b  G& S: v长期在线等！

SunVei

后续消零
! n& `0 i' e7 u& g" }DimZin ==> 8
+ U3 Q" F+ a3 U1 ^=================
DIMZIN System Variable
. o, |( f' I+ P4 p" i( x3 s9 |* N...
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....

2 G( p; C4 V$ a- G% \DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei
) |/ `- R% k: m" y. E4 w
能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
最好可以有个小程序。
2 \/ M* ?  z8 W1 o' p0 V还有前导不消零怎么实现？

SunVei

但是不能用!?
挺纳闷底....

5 h9 L: q6 [6 w0 v3 n+ L得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

Command: DimZin
1 X$ k" _4 A9 t% a* eEnter new value for DIMZIN <0>:
4 H1 r2 O3 O! G( n5 O7 p7 F
0 Suppresses zero feet and precisely zero inches
1 Includes zero feet and precisely zero inches
0 K$ D" M3 O8 {' |  o. M4 n2 Includes zero feet and suppresses zero inches
3 Includes zero inches and suppresses zero feet
4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
* B4 R6 Z6 B  {/ }% q) J/ T8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5)
+ ?! ]: ?3 R  B6 t) u8 R3 r
==> 若为 4 前导消零

bigbridge812

6# SunVei
这个我以前就试过，对于现有的标注好像也没有效果！

czboy

用vba怎样做呢

woaishuijia

: E6 L8 R' N6 a
以下是VBA

1. 
   5 J, ^! A* @& I' _
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   ' W, y& M' P  s! r5 r: \
3.     With ThisDrawing
   
4.         Set DS1 = .ActiveDimStyle
   8 O: @% j: M% o! D  t+ @8 x
5.         For Each DS2 In .DimStyles
   , d- Z6 M: _' Z1 \  I7 L/ ]6 G
6.             .ActiveDimStyle = DS2
   : }9 @# w6 k6 e' ], g8 Q5 J" N8 C5 B
7.             .SetVariable "dimzin", 8
   7 F: S* ~1 D$ c- b( [4 d: a. s
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   
9.         Next
   
10.         .ActiveDimStyle = DS1
    . g% H3 e$ u1 T" u) l
11.     End With
    

复制代码

以下是LSP

1. 
   
2. (defun c:aaa(/ dimstylelist dimstylename)
   
3.   (setq dimstylelist(tblnext "dimstyle" t))
   . [  r: K* c0 {  s2 A0 [* ~( u# \, U
4.   (while dimstylelist
   
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   , O# \; Z7 _7 c; G
6.     (command "-dimstyle" "r" dimstylename)
   3 @: B# u5 `# {! z% e( r" S; H
7.     (command "setvar" "dimzin" 8)
   " c: K: v- M' S2 _7 N( W; C( d& |
8.     (command "-dimstyle" "s" dimstylename "y")      
   # K. v6 O5 S! W
9.     (setq dimstylelist(tblnext "dimstyle"))
   % X/ r  N/ b6 _) h, S* u
10.     )
    . b: r' w5 W, C8 }) v7 K  G6 W6 p
11.   (princ)
    * A% n7 ]7 k0 S& k5 v  ?, q
12.   )
    

复制代码

bigbridge812

- _5 T% |, [& A& \2 p) Z* F' K
怎么评分啊？
: S3 X, K, ~( P5 E* |" f- d' s感谢9楼！谢谢了

bigbridge812

利用9楼的程序框架还可以进行各种设置，非常感谢！