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

bigbridge812

各位高手：
/ P* N+ n6 \6 V" s帮忙写一个小程序，lisp就可以，
$ |# ?( L5 P1 w3 K/ b% v0 S7 P如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
& r7 f$ ^3 p+ E1 _! t4 P谢谢各位了！
  |, s! L( ~7 }% E6 R长期在线等！

SunVei

后续消零
DimZin ==> 8
=================
  v) B: F. U9 d  w+ S# h& Y9 s, u; fDIMZIN System Variable
...
) z4 |& Q* `: j# J: u8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....
0 ?: `7 A& }8 n; _
DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei
  P& ~5 H# k. y, H' ]
能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
# d& J: _. x, V最好可以有个小程序。
还有前导不消零怎么实现？

SunVei

但是不能用!?
/ M0 G7 |" G- N' L& Y4 d0 W. x: G挺纳闷底....
. t* Q) ]( S0 ^% }
得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

Command: DimZin
Enter new value for DIMZIN <0>:
' n9 }4 C7 W3 _: I
0 Suppresses zero feet and precisely zero inches
5 B9 L( K: X* W3 `4 y+ P, [1 Includes zero feet and precisely zero inches
* B% k6 q" K/ t. {2 Includes zero feet and suppresses zero inches
# {. b1 P4 U7 n2 `  j0 \3 Includes zero inches and suppresses zero feet
7 R7 k# f$ t; N  K/ [" A( ]; p4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
, K3 T+ q; l' {8 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)

+ _8 w$ f9 [5 ]  Z$ z+ M==> 若为 4 前导消零

bigbridge812

6# SunVei
( f, s6 ]  @' a( m6 Q. v( |! Y7 L这个我以前就试过，对于现有的标注好像也没有效果！

czboy

用vba怎样做呢

woaishuijia

! `3 `- U8 T* I! A! A
以下是VBA

1. 
   ( W! q' Y' m' P: v4 M9 N
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   1 H, I7 {# p6 [1 M* M' b: X6 @0 @8 X5 r
3.     With ThisDrawing
   - W( D; Z, h/ M- x  x
4.         Set DS1 = .ActiveDimStyle
   3 W" r1 E% p  Z: Q" w
5.         For Each DS2 In .DimStyles
   
6.             .ActiveDimStyle = DS2
   5 O, w3 O7 ~/ A: ^! W3 @. Y3 p
7.             .SetVariable "dimzin", 8
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   3 Q4 H) L! K9 ~3 T# l) |
9.         Next
   
10.         .ActiveDimStyle = DS1
    8 S8 f5 T& p* h1 y9 a
11.     End With
    

复制代码

以下是LSP
3 u4 K2 y$ J* ~# w* n' Q# l

1. 
   $ a4 w" R% I# {" d, w7 J: X
2. (defun c:aaa(/ dimstylelist dimstylename)
   0 k, O6 C6 W2 Z$ K/ V1 J, j
3.   (setq dimstylelist(tblnext "dimstyle" t))
   
4.   (while dimstylelist
   
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   
6.     (command "-dimstyle" "r" dimstylename)
   
7.     (command "setvar" "dimzin" 8)
   
8.     (command "-dimstyle" "s" dimstylename "y")      
   
9.     (setq dimstylelist(tblnext "dimstyle"))
   5 ?& C+ _2 z4 S
10.     )
    
11.   (princ)
    + U2 ]- c) p4 m& x$ u
12.   )
    

复制代码

bigbridge812

9 ^% j$ t; |0 e( x# r
怎么评分啊？
; o/ J  e, ]1 t& }7 A感谢9楼！谢谢了

bigbridge812

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