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

bigbridge812

各位高手：
帮忙写一个小程序，lisp就可以，
如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
( E0 V0 y, q- t9 N谢谢各位了！
. u" ?6 B6 M( U8 B长期在线等！

SunVei

后续消零
9 F- y% m1 F) m/ y8 B. mDimZin ==> 8
% B; E2 p( ^; y) n' T# m=================
DIMZIN System Variable
...
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....

DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei
9 |  U  d- L* n- L$ Q
4 p/ z) E1 ~  F9 C% T% l( f& h& B能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
最好可以有个小程序。
还有前导不消零怎么实现？

SunVei

但是不能用!?
- O; `8 P0 `6 V3 Q9 k, J5 X挺纳闷底....
0 D( d5 N5 g# `
7 ^$ A  M' {8 R) q* C3 W' u得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

Command: DimZin
$ @7 k% I5 z- W0 j7 h7 gEnter new value for DIMZIN <0>:
, P7 d2 z( m3 P& M$ c" P: X8 ~4 f
$ L1 ]8 X2 R2 o" w6 \3 E( U0 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
0 Q/ @8 j8 I1 f4 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)
% G' A( X- x( f3 T
==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

  f! |+ l- R9 k以下是VBA
: I/ o; W0 c( a4 |5 W- F6 Y! X

1. 
   5 W* l9 j; k* `: H$ E
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   " c# C4 C( d- @
3.     With ThisDrawing
   - n: j6 u8 c% q+ g7 O  s
4.         Set DS1 = .ActiveDimStyle
   " b0 Q, f8 |7 D+ q* G
5.         For Each DS2 In .DimStyles
   ' j1 B$ E0 \7 v+ z7 k
6.             .ActiveDimStyle = DS2
   
7.             .SetVariable "dimzin", 8
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   
9.         Next
   
10.         .ActiveDimStyle = DS1
    ' F( V1 U" C* b- J- i. U: D& u2 c
11.     End With
    5 W' g2 [" ?* X

复制代码

以下是LSP

1. 
   % a- y6 E2 x4 d
2. (defun c:aaa(/ dimstylelist dimstylename)
   4 t. w# i$ m/ R/ g& }# V& z
3.   (setq dimstylelist(tblnext "dimstyle" t))
   $ T2 F! H, x0 L0 E# ~/ q
4.   (while dimstylelist
   $ q+ d7 J0 ]# Y- N0 ?/ D
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   ! {6 }- h( s' B* m# e) g- Z6 @
6.     (command "-dimstyle" "r" dimstylename)
   3 V! `5 `$ D# l7 E' F4 B
7.     (command "setvar" "dimzin" 8)
   
8.     (command "-dimstyle" "s" dimstylename "y")      
   : Q3 U7 {: ^0 S
9.     (setq dimstylelist(tblnext "dimstyle"))
   
10.     )
    " V3 W% ^3 ~0 j- }
11.   (princ)
    8 M- l; Y6 G) N. t1 R- R0 j
12.   )
    2 B! X& g  |, y2 z: U

复制代码

bigbridge812

3 l+ y$ ?! h$ p  V4 D5 G怎么评分啊？
感谢9楼！谢谢了

bigbridge812

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