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

bigbridge812

各位高手：
2 K# U, ]9 {# x( w% q$ j: h0 H+ ^帮忙写一个小程序，lisp就可以，
如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
谢谢各位了！
长期在线等！

SunVei

后续消零
DimZin ==> 8
=================
' H* E& t- j8 T" L1 @DIMZIN System Variable
...
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....
$ ~- b. Q3 ?1 I0 a+ k
DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
! i! ], K6 d; r0 r/ p+ l6 p最好可以有个小程序。
( M" W3 a. y1 g& Z还有前导不消零怎么实现？

SunVei

但是不能用!?
挺纳闷底....
& ^; M- @5 O0 J
8 q: f0 ~$ k! f' m" i得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

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

# a9 I. p% k, C: z6 R" y0 Suppresses zero feet and precisely zero inches
1 Includes zero feet and precisely zero inches
2 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)
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)
# p: v6 ]6 p+ E. t5 S3 y; Q1 e
==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

以下是VBA
4 d8 a" Y( a8 j- h5 y+ T2 X: z

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   
3.     With ThisDrawing
   $ Q2 C- A) ~- A9 }5 n* k5 v$ w
4.         Set DS1 = .ActiveDimStyle
   
5.         For Each DS2 In .DimStyles
   1 c4 B2 j8 G1 ?0 h0 W" [
6.             .ActiveDimStyle = DS2
   
7.             .SetVariable "dimzin", 8
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   
9.         Next
   : Y" O# P6 u3 J8 X  ]: k$ S
10.         .ActiveDimStyle = DS1
    
11.     End With
    

复制代码

- `+ y4 \3 q9 J/ X5 N! k2 G+ F, W$ R' I4 A以下是LSP

1. 
   . W6 o0 n. [8 M+ [7 a. T
2. (defun c:aaa(/ dimstylelist dimstylename)
   
3.   (setq dimstylelist(tblnext "dimstyle" t))
   
4.   (while dimstylelist
   9 u- B2 C/ M7 o8 C7 j
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   0 y1 I. v( Z) \' B, B
6.     (command "-dimstyle" "r" dimstylename)
   
7.     (command "setvar" "dimzin" 8)
   
8.     (command "-dimstyle" "s" dimstylename "y")      
   
9.     (setq dimstylelist(tblnext "dimstyle"))
   
10.     )
    * L% U6 ~' |" _: `
11.   (princ)
      `# G6 i( g" F3 Q
12.   )
    

复制代码

bigbridge812

- C' d9 @5 H' w9 [( G' v7 g* I) F怎么评分啊？
( g1 x# s, K' [感谢9楼！谢谢了

bigbridge812

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