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

bigbridge812

各位高手：
& P9 P( d; x0 q3 x" ~$ l1 v帮忙写一个小程序，lisp就可以，
如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
. H. E# b! l* g0 x# |7 K, ?谢谢各位了！
长期在线等！

SunVei

后续消零
4 X+ \3 G  D- T( u; K- fDimZin ==> 8
& j( B1 Y5 y+ z, Y4 x=================
1 u1 g+ W% B! l0 |" D" T! fDIMZIN System Variable
) N7 @6 U* ?1 X7 Z  K; `! D0 y- W1 w...
& t) |# b5 E0 H8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....

- Z. f, T0 X2 ~! _1 B! ~1 q7 nDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
  V9 W% Q! {) Z最好可以有个小程序。
2 z. _2 r6 _& S# `还有前导不消零怎么实现？

SunVei

但是不能用!?
* d- y( b' e+ j5 d挺纳闷底....
: {/ f. C* p3 q; l5 G5 h
. X0 \) f9 G) ~6 g3 @得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
1 p) n, e9 R8 D- b. s+ j& s- p还是谢谢了！

SunVei

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

/ u. b3 i1 v& r! E) f0 Suppresses zero feet and precisely zero inches
1 Includes zero feet and precisely zero inches
% r( I6 p, w$ D: H0 `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)
! C- e* Y( }$ h4 Y' Z/ y8 q- z8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
8 G1 y9 z* t) F4 \2 {1 O! P/ h12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5)

==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

以下是VBA

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   
3.     With ThisDrawing
   
4.         Set DS1 = .ActiveDimStyle
   5 @1 B, L7 b0 W* A6 U4 c
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
    7 W/ |, q6 b- {: }$ _% Z6 N% ?- v" G
11.     End With
    - }, K1 J8 i/ w2 c

复制代码

, `5 E( }( A- z$ Z8 o以下是LSP
& J3 z, d6 Q* j0 n) k

1. 
   
2. (defun c:aaa(/ dimstylelist dimstylename)
   
3.   (setq dimstylelist(tblnext "dimstyle" t))
   * `7 Z6 u: D9 ]6 n, L
4.   (while dimstylelist
   / Y& C1 z9 L: P! q' H# c1 A# v
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   : R/ z; e# Y5 v9 m: W
6.     (command "-dimstyle" "r" dimstylename)
   3 f  l' f4 _* f& D, f) \
7.     (command "setvar" "dimzin" 8)
   
8.     (command "-dimstyle" "s" dimstylename "y")      
   
9.     (setq dimstylelist(tblnext "dimstyle"))
   # X1 {& g* Q0 X5 l! Y2 Y' q0 s8 S* W6 w+ s% L
10.     )
    0 m& m4 k$ m% S
11.   (princ)
    7 q3 I9 y% X9 _8 N" g! N  B4 P) m
12.   )
    3 r0 Q, b0 j9 J- ?$ {

复制代码

bigbridge812

& X2 @2 ~4 H: U
- A" t4 W! Z4 N3 j, }" E怎么评分啊？
感谢9楼！谢谢了

bigbridge812

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