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

bigbridge812

各位高手：
帮忙写一个小程序，lisp就可以，
* r5 y" W! o3 ^: M4 e如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
谢谢各位了！
长期在线等！

SunVei

后续消零
DimZin ==> 8
- p' `# d* \! Q( P5 x5 D, `=================
DIMZIN System Variable
...
% Z, F; ^4 G7 I) Q" d% D8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
) {1 j* ]. U7 e....
* B) ~" \1 X2 j$ F$ W! }# Q5 I* R! P
& b2 B" u$ u2 \* P+ i$ S2 `DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
0 i+ e' |0 k4 w3 T0 O$ r, g+ T最好可以有个小程序。
. D8 p6 Z: z! J* K0 w还有前导不消零怎么实现？

SunVei

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

: r: g& O  I8 Q: r$ X: ]得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

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

0 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)
9 a9 d9 o5 g. g8 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 B8 b$ }+ j8 y, a  `9 G# ]. t; x/ j
5 m5 j( ^! q9 Y9 Y==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

5 z* z& `3 X+ L- ~5 u$ D以下是VBA
1 j# g+ C, L* `# _

1. 
   ) b1 p2 P+ D1 T% C0 n% L
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
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   
9.         Next
   
10.         .ActiveDimStyle = DS1
    
11.     End With
    

复制代码

6 W+ o, p7 b% S以下是LSP
+ S9 ^" x4 \3 f% A% d# ]

1. 
   
2. (defun c:aaa(/ dimstylelist dimstylename)
   ! ]8 ~0 k" g" r! _$ y) n
3.   (setq dimstylelist(tblnext "dimstyle" t))
   
4.   (while dimstylelist
   : e1 t6 x5 }- s& `! K/ o0 S
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   
6.     (command "-dimstyle" "r" dimstylename)
   
7.     (command "setvar" "dimzin" 8)
   # O/ a9 Z8 y7 g/ r% A
8.     (command "-dimstyle" "s" dimstylename "y")      
   
9.     (setq dimstylelist(tblnext "dimstyle"))
   
10.     )
    
11.   (princ)
    , Z( z. s0 H. j% |0 u8 ~
12.   )
    3 X3 c8 L+ B3 ^  Y3 H& C1 z* S

复制代码

bigbridge812

; b: m1 u$ x- v怎么评分啊？
感谢9楼！谢谢了

bigbridge812

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