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

bigbridge812

各位高手：
8 t) B8 U4 R2 K' {  {, ^; Q帮忙写一个小程序，lisp就可以，
* K# F! U1 v+ V7 Y) }如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
0 d, ]6 M, V7 p  i谢谢各位了！
长期在线等！

SunVei

后续消零
) [# t! b2 |- \DimZin ==> 8
; P1 m8 i; D3 H. d' V=================
5 j; b2 I4 v  W5 }  w( H; FDIMZIN System Variable
...
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....

DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

2 p9 l# V7 }. `! P6 y7 s* ]- r能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
最好可以有个小程序。
, Z7 r. c2 f, u; y$ U3 n还有前导不消零怎么实现？

SunVei

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

( S! T7 S" V3 {. U+ b+ g得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

Command: DimZin
Enter new value for DIMZIN <0>:

0 Suppresses zero feet and precisely zero inches
+ I3 s( M' j! d! b/ K1 Includes zero feet and precisely zero inches
2 Includes zero feet and suppresses zero inches
3 Includes zero inches and suppresses zero feet
$ \9 D4 p- A3 I; S% `* K) B8 W4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
( D2 c) }% [$ \4 Q, |8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
5 b: Z$ `- o# f$ U$ r0 E% m) r12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5)
. W$ S1 s6 x  }& v! q. K# `
==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

: g% Z; M/ n) W) \
以下是VBA

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   
3.     With ThisDrawing
   
4.         Set DS1 = .ActiveDimStyle
   
5.         For Each DS2 In .DimStyles
   
6.             .ActiveDimStyle = DS2
   
7.             .SetVariable "dimzin", 8
   % t1 n1 o- G# _+ R6 \/ S
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   
9.         Next
   
10.         .ActiveDimStyle = DS1
    
11.     End With
    / D" ?9 u( Q% ]4 [/ S" m: H- ]2 }

复制代码

以下是LSP
' p' Y# J" e; h. G8 \, _  n0 T4 u* y

1. 
   % b! A; Q* z' H9 e! n
2. (defun c:aaa(/ dimstylelist dimstylename)
   9 ^2 B/ E- ]5 u8 L
3.   (setq dimstylelist(tblnext "dimstyle" t))
   # j: t1 }. O9 k& [9 M
4.   (while dimstylelist
   / s2 E; @1 `6 K$ a, d
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   
6.     (command "-dimstyle" "r" dimstylename)
   * l7 [( f" D. q3 V8 @+ B9 N
7.     (command "setvar" "dimzin" 8)
   
8.     (command "-dimstyle" "s" dimstylename "y")      
   + h" Q" I$ c* n8 ^
9.     (setq dimstylelist(tblnext "dimstyle"))
   * i3 N  D; y  S, y" `* T* C
10.     )
    
11.   (princ)
    
12.   )
    

复制代码

bigbridge812

怎么评分啊？
感谢9楼！谢谢了

bigbridge812

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