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

bigbridge812

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

SunVei

后续消零
! q, e& |; F- [% FDimZin ==> 8
=================
  E! R5 u. s. o( o; n& Q- qDIMZIN System Variable
2 S+ y( _  W4 d9 C8 {...
) T( ]/ H% y# c7 i$ K, L8 |8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....

6 R# [8 g6 m, f9 B9 q3 B( zDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

3 w2 v8 Y' ^8 h  ~8 J9 u- w# p( L能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
) Y( J5 W! I) u, w) F0 C最好可以有个小程序。
还有前导不消零怎么实现？

SunVei

但是不能用!?
, {& v0 o8 [8 b( o; U7 n挺纳闷底....
8 @  B. m6 E6 U- C1 k
# y1 w& k8 V/ Q( L! W) U- p* V得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

Command: DimZin
+ B  I7 L+ r. zEnter 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
" L8 N- t: @  Y* Y- X% ~/ N% Z3 Includes zero inches and suppresses zero feet
. d6 l( V1 ^$ \4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
/ B; X2 W' J8 U: ^" ^8 d/ ^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)

==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

以下是VBA

1. 
   ) @( j* V9 X* O+ v
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   
3.     With ThisDrawing
   . s$ K: |7 O5 F6 }
4.         Set DS1 = .ActiveDimStyle
   
5.         For Each DS2 In .DimStyles
   ' p6 e5 i5 Z! J
6.             .ActiveDimStyle = DS2
   
7.             .SetVariable "dimzin", 8
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   
9.         Next
   ! J' E0 B9 p2 b7 h! A
10.         .ActiveDimStyle = DS1
    6 s. m# j* {9 k$ O- v# K: V
11.     End With
    

复制代码

# h7 h, ~7 M3 z7 `以下是LSP

1. 
   
2. (defun c:aaa(/ dimstylelist dimstylename)
   
3.   (setq dimstylelist(tblnext "dimstyle" t))
   
4.   (while dimstylelist
   
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   ! G7 D* P8 w! ~
6.     (command "-dimstyle" "r" dimstylename)
   # s5 R2 m" k  P3 k9 x+ i" M  A1 y
7.     (command "setvar" "dimzin" 8)
   ( P( q. k" {. t2 C3 P
8.     (command "-dimstyle" "s" dimstylename "y")      
   
9.     (setq dimstylelist(tblnext "dimstyle"))
   
10.     )
    $ ~3 i3 a. a: ^/ `! `! c" E
11.   (princ)
    * T% _7 n$ b9 x
12.   )
    

复制代码

bigbridge812

1 n) }8 h0 ^$ Q" s' z3 k$ p
. H% \6 O: U5 N7 R! J4 J6 B* E% l怎么评分啊？
) {* B7 K: N* ?( |2 @. g感谢9楼！谢谢了

bigbridge812

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