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

bigbridge812

各位高手：
" @9 h! r  L$ [3 i# `% p6 T帮忙写一个小程序，lisp就可以，
如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
: G6 K$ }9 z9 a: F谢谢各位了！
# M- i) f& M: J+ @3 H长期在线等！

SunVei

后续消零
DimZin ==> 8
- f- s3 _1 u+ Z3 D# r=================
DIMZIN System Variable
0 \& R: r+ R! k- C  z...
* j! W. n2 L# k/ U8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
0 a* m; X% P; S' I/ z6 j/ a/ d+ c....

$ \* d$ D1 Y) A3 q( P1 v* O2 |DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei
$ K8 _2 p6 h1 A7 W  p5 l' G
能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
) t! z  z7 {* p) J4 m. _4 p* J1 i最好可以有个小程序。
还有前导不消零怎么实现？

SunVei

但是不能用!?
2 @# Z3 L% K4 C4 u6 b( p: {挺纳闷底....

: f' @5 i  K9 ]# n% C- h得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
( {* D1 E. }; T# l还是谢谢了！

SunVei

Command: DimZin
) b& I" \$ D- J/ xEnter new value for DIMZIN <0>:
! f( D& N0 S6 c% n/ X! L
: k9 q- ~! y( ~# ^; f0 Suppresses zero feet and precisely zero inches
; w! H: }! }/ B# L9 o6 l1 Includes zero feet and precisely zero inches
' a0 c" t+ U1 Q( J' D5 {2 Includes zero feet and suppresses zero inches
* X  O1 z' l9 O9 L, S7 r# O3 Includes zero inches and suppresses zero feet
4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
) _% F$ r3 G2 U# c( B8 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)
% Q' r3 i7 Q; d) j. x
. x" Q9 D  l- e  \4 u==> 若为 4 前导消零

bigbridge812

6# SunVei
' x" b/ ?! p" b这个我以前就试过，对于现有的标注好像也没有效果！

czboy

用vba怎样做呢

woaishuijia

, M9 X3 ^( b/ s3 @: ?5 G+ f9 L" O9 i) l
以下是VBA
  J- ~% J9 P4 s" ?/ O

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   * h) J& L4 p) N2 f! V3 N6 g
3.     With ThisDrawing
   
4.         Set DS1 = .ActiveDimStyle
   7 ^) h7 ?, b) g; P9 S
5.         For Each DS2 In .DimStyles
   
6.             .ActiveDimStyle = DS2
   % F2 d5 C9 h. ]7 N7 Z( h; S9 i
7.             .SetVariable "dimzin", 8
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   $ `; [" L7 {6 h
9.         Next
   1 b% V6 d7 b  j8 g- F
10.         .ActiveDimStyle = DS1
    
11.     End With
    

复制代码

# n* L5 k4 l' u9 H以下是LSP

1. 
   
2. (defun c:aaa(/ dimstylelist dimstylename)
   
3.   (setq dimstylelist(tblnext "dimstyle" t))
   
4.   (while dimstylelist
   
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   * J  d( z7 z  q) [
6.     (command "-dimstyle" "r" dimstylename)
   
7.     (command "setvar" "dimzin" 8)
   * k: M; Q) w7 O/ Z: J, i+ E
8.     (command "-dimstyle" "s" dimstylename "y")      
   : E8 t0 ?0 E! L" s
9.     (setq dimstylelist(tblnext "dimstyle"))
   1 r  D! M0 m$ O& s6 l1 N
10.     )
    
11.   (princ)
    
12.   )
    

复制代码

bigbridge812

* R$ i3 {( h7 i1 T& y0 E怎么评分啊？
感谢9楼！谢谢了

bigbridge812

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