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

bigbridge812

各位高手：
! X3 k4 J3 b$ R帮忙写一个小程序，lisp就可以，
) X0 `5 n, K/ R4 x- o如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
谢谢各位了！
5 k% y) @& s7 D4 b( f长期在线等！

SunVei

后续消零
DimZin ==> 8
+ G5 ^. c% t2 t/ J0 F# ^$ F=================
DIMZIN System Variable
7 z9 Q! [" F! r3 A6 N2 w6 a...
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
, f" h3 |! K0 {, b) g+ g....
! I+ v7 T* H0 F6 O
9 N% F0 {$ |. W/ f; qDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

2 ?% e3 |" F/ Q. s能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
最好可以有个小程序。
  t+ S  o1 n# G1 o还有前导不消零怎么实现？

SunVei

但是不能用!?
% U+ K- f' W: z挺纳闷底....
1 r. B# O' u$ J- u
' J1 k8 h, Q$ S得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

Command: DimZin
4 g+ C- Z* l( |Enter new value for DIMZIN <0>:
6 V- f  @- ~5 _$ z
0 Suppresses zero feet and precisely zero inches
8 |2 R  D6 e' @5 l" S+ o5 w1 [: q( A1 Includes zero feet and precisely zero inches
2 Includes zero feet and suppresses zero inches
3 Includes zero inches and suppresses zero feet
% S: n; @8 ^* _6 O& u/ l7 e4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
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)

==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

) Z& E" x: X8 U+ X5 l
以下是VBA

1. 
   # p+ \8 W5 I9 |0 l
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   - x* v; N* @# ~- }
3.     With ThisDrawing
   
4.         Set DS1 = .ActiveDimStyle
   
5.         For Each DS2 In .DimStyles
   
6.             .ActiveDimStyle = DS2
   $ r& Z$ M" O" M0 J
7.             .SetVariable "dimzin", 8
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   0 Q5 F' Y' a+ i1 K+ D2 y4 I
9.         Next
   
10.         .ActiveDimStyle = DS1
    
11.     End With
    

复制代码

  p" e$ }& i) ?7 y; K以下是LSP

1. 
   9 u8 A& w6 [* Q; a
2. (defun c:aaa(/ dimstylelist dimstylename)
   
3.   (setq dimstylelist(tblnext "dimstyle" t))
   
4.   (while dimstylelist
   1 F3 C, l' i/ ]9 o
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   % t" k' ^# S, F- ?! p+ @% x
6.     (command "-dimstyle" "r" dimstylename)
   
7.     (command "setvar" "dimzin" 8)
   
8.     (command "-dimstyle" "s" dimstylename "y")      
   / {3 j! C8 e- v
9.     (setq dimstylelist(tblnext "dimstyle"))
   * @* K4 H# y4 k# J/ j
10.     )
    
11.   (princ)
    $ U0 G$ K: E+ i
12.   )
    % k9 s, C' I8 `4 n

复制代码

bigbridge812

% C: j. N- `) v  j  q3 T
  k4 v$ i, R  z7 G% H怎么评分啊？
! J$ L# ^7 O! H2 G6 G8 v/ e; e) V感谢9楼！谢谢了

bigbridge812

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