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

bigbridge812

各位高手：
; C0 |% _5 F: ?5 l4 j3 d, F/ V& f帮忙写一个小程序，lisp就可以，
6 o2 n( Q! L. ^! c如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
, {/ l0 Z+ u$ F3 z$ C% J8 X9 H谢谢各位了！
7 X2 Y$ v+ y+ b& A/ B+ a+ \长期在线等！

SunVei

后续消零
DimZin ==> 8
=================
8 A1 l7 n+ }+ pDIMZIN System Variable
...
' C- b7 j# @1 _+ e' S8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
- u. o+ D0 b9 e" \1 `* X2 k* Q....
- [( n: a& v8 ^# w% n
2 ~2 f% _$ ^  j& `( c: mDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

" a0 `8 C+ I% w$ ^: N& R能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
最好可以有个小程序。
, p$ H8 q, v) X还有前导不消零怎么实现？

SunVei

但是不能用!?
; h$ A1 b7 u: o+ U8 e; p! v1 j# N2 p挺纳闷底....

得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
; M: I9 C% ?8 v. k6 M2 z+ b还是谢谢了！

SunVei

Command: DimZin
5 C: k4 ^$ x. P2 oEnter new value for DIMZIN <0>:
0 X7 r9 T& q# {# `1 f
2 X5 ~: p2 l% d, ~5 b0 Suppresses zero feet and precisely zero inches
1 Includes zero feet and precisely zero inches
1 C6 L: C6 i. ?; b& \2 Includes zero feet and suppresses zero inches
0 K9 @! M/ v( {, {% H6 M8 K7 ?3 Includes zero inches and suppresses zero feet
4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
+ p$ _" A5 p; l5 A" c8 d$ k3 S8 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)
! c9 I3 L8 z3 R' D/ v" z6 @' |
! }  A0 ?4 y6 R) H==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

: @$ b! b' i9 H
" `) ~) n' I# e以下是VBA
6 F6 @% a) S5 O1 N7 v. H  M% t

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   - K- I; {  f# V
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
   5 Z" y7 e2 j7 Q3 x- V1 x
10.         .ActiveDimStyle = DS1
    3 Q$ g% n" ~% h2 P: M& \$ }
11.     End With
    

复制代码

; X; c  P; f; `& g! ~* t% B* A以下是LSP
! z$ n) I' X* i. N+ B

1. 
   ' h4 m, O6 G6 X, v. n
2. (defun c:aaa(/ dimstylelist dimstylename)
   
3.   (setq dimstylelist(tblnext "dimstyle" t))
   - E+ v, F0 T! M. |. D
4.   (while dimstylelist
   
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   
6.     (command "-dimstyle" "r" dimstylename)
   
7.     (command "setvar" "dimzin" 8)
   
8.     (command "-dimstyle" "s" dimstylename "y")      
   
9.     (setq dimstylelist(tblnext "dimstyle"))
   0 ?6 v9 @4 F2 T% [( n; d8 J
10.     )
    + C2 ~' |3 a7 p+ O2 B
11.   (princ)
      s) U' U9 D. D0 m' r; n* {  w
12.   )
    ' z  l4 V4 d6 A. m9 T; n$ n  Y

复制代码

bigbridge812

怎么评分啊？
4 I5 D$ e9 o  T% E0 J感谢9楼！谢谢了

bigbridge812

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