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

bigbridge812

各位高手：
帮忙写一个小程序，lisp就可以，
1 ?5 ?+ S, d# \: m如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
9 W" A9 T' H' y& d谢谢各位了！
/ n" e" D; u0 E& e. g. E8 m长期在线等！

SunVei

后续消零
7 T, E5 T! |$ vDimZin ==> 8
=================
2 ~* a7 c0 {: H; W" K" j& u. h, sDIMZIN System Variable
...
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
  `- p" t/ f( e6 e....
) ]' I6 w$ S! \0 W6 F1 d4 C( @
DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei
5 P+ p* V5 x" S, _6 O) j4 B; W
/ E4 u9 P( h. M4 X能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
$ ], ?& }2 U$ P+ y# y最好可以有个小程序。
! n: Y( _* D* k& q" z还有前导不消零怎么实现？

SunVei

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

: B0 C4 @) r7 x: O得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

Command: DimZin
Enter new value for DIMZIN <0>:
4 |: y/ n& ]/ M, f* b
0 Suppresses zero feet and precisely zero inches
1 Includes zero feet and precisely zero inches
; O/ e6 V: y& t" V2 Includes zero feet and suppresses zero inches
# |$ {/ f. M) E3 Includes zero inches and suppresses zero feet
4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
" G' n! F5 u: a6 b: ?8 M/ r8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
, {+ w' W2 R+ W5 X+ C12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5)

==> 若为 4 前导消零

bigbridge812

6# SunVei
2 M- ]0 o$ r: |4 z8 W这个我以前就试过，对于现有的标注好像也没有效果！

czboy

用vba怎样做呢

woaishuijia

3 s8 n3 t8 g& h
5 B1 m0 g/ T) n/ {! A/ ~- m8 r以下是VBA

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   
3.     With ThisDrawing
   
4.         Set DS1 = .ActiveDimStyle
   
5.         For Each DS2 In .DimStyles
   . r1 O1 E( N- d) z, V
6.             .ActiveDimStyle = DS2
   
7.             .SetVariable "dimzin", 8
   # g# n: _- P- J: g) E3 W$ f
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   
9.         Next
   ( J- q* E$ B4 c
10.         .ActiveDimStyle = DS1
    
11.     End With
    

复制代码

! z! l1 u1 z0 ^. N4 Z以下是LSP

1. 
   
2. (defun c:aaa(/ dimstylelist dimstylename)
   * r& c/ E' O2 B* u
3.   (setq dimstylelist(tblnext "dimstyle" t))
   
4.   (while dimstylelist
   
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   
6.     (command "-dimstyle" "r" dimstylename)
   ' P% i8 l) o2 B
7.     (command "setvar" "dimzin" 8)
   
8.     (command "-dimstyle" "s" dimstylename "y")      
   8 _2 P* w( I, U) Z$ w- l% a; n$ ?
9.     (setq dimstylelist(tblnext "dimstyle"))
   3 }& s3 p+ @' z1 g# l/ v* Q6 Y( R
10.     )
    8 ]8 O! h' B3 `( t
11.   (princ)
    
12.   )
    9 V! v& x4 r/ J0 R/ r# f7 D0 y! z

复制代码

bigbridge812

' n, ?: J5 l; u4 t6 d8 x1 n* A  ?3 M
# t: R0 k* _! `3 t% i7 J4 N# s怎么评分啊？
! h8 o/ Z) |# W( I" y- _感谢9楼！谢谢了

bigbridge812

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