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

bigbridge812

各位高手：
帮忙写一个小程序，lisp就可以，
如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
: d2 n7 K  ^3 T, c. q" h谢谢各位了！
长期在线等！

SunVei

后续消零
DimZin ==> 8
$ w; ?' J! B" R=================
: ~# u7 g( r, _DIMZIN System Variable
* m. S  p6 j% v0 I. S# A9 O; U4 Y7 l...
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....
% ?2 V6 [! m' U: U) Q
DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei
* r* u( w6 T% z
能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
最好可以有个小程序。
还有前导不消零怎么实现？

SunVei

但是不能用!?
! o" e. G5 D5 N2 c( H6 A( X( v挺纳闷底....
6 Z/ G  s  K0 R- c/ k# i/ e
得就您的文件来比对系统变量值了 (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
5 X/ Q7 p, n9 t$ y* H0 ?* N3 ]/ Q2 Includes zero feet and suppresses zero inches
& Q8 D) ?" W+ s8 K) N+ `8 j6 P3 Includes zero inches and suppresses zero feet
# E9 p: I: B) P4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
0 r  z" s4 A: k4 m: @1 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)
7 N6 e4 x$ `. [
% U! F0 F5 N9 x. ?==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

; T5 i8 w% R+ }- z/ B* R2 }
以下是VBA
" z2 z0 ?  h" j. l1 k  _) U# e; `

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   6 y7 U( g- B" D4 @) J0 K/ k
3.     With ThisDrawing
   
4.         Set DS1 = .ActiveDimStyle
   # c0 s! [) n" Q# c" k! Q
5.         For Each DS2 In .DimStyles
   
6.             .ActiveDimStyle = DS2
   # J3 X4 P: T/ {: H5 k. R1 L2 ~
7.             .SetVariable "dimzin", 8
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   - i! b1 X. J' ~$ V. u0 o
9.         Next
   - a' `5 m1 f7 P7 {3 \
10.         .ActiveDimStyle = DS1
    
11.     End With
    3 u2 n! K' U  ^. G2 K

复制代码

# o1 {) y1 u4 c# }/ I9 t以下是LSP

1. 
   3 |5 X: Z/ [8 X6 |5 {
2. (defun c:aaa(/ dimstylelist dimstylename)
   / e; s! g& Z' w+ O) B/ h& F2 ^
3.   (setq dimstylelist(tblnext "dimstyle" t))
   * c" {8 q# z6 z0 z% e; ?' F
4.   (while dimstylelist
   
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   $ W+ z/ Z3 ~3 {# S* b8 o4 V& k
6.     (command "-dimstyle" "r" dimstylename)
   " Y& s0 Z2 r' B3 N
7.     (command "setvar" "dimzin" 8)
   / v3 N) Z& y7 J: S" t) ?2 I1 D
8.     (command "-dimstyle" "s" dimstylename "y")      
   
9.     (setq dimstylelist(tblnext "dimstyle"))
   ! W, R, e& S% q* C
10.     )
    $ |: s* f$ I0 s/ M
11.   (princ)
    1 r% G  F3 i8 Y
12.   )
    5 @* h; w" o8 H# s6 f& u

复制代码

bigbridge812

2 p8 E/ x6 u" z8 _+ i# M
怎么评分啊？
" U- U9 O9 o5 a1 G; t, b感谢9楼！谢谢了

bigbridge812

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