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

bigbridge812

各位高手：
( @% o! i& ^% g$ w* \% X帮忙写一个小程序，lisp就可以，
7 ?1 `/ {+ e, F/ m: L& }* d如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
谢谢各位了！
长期在线等！

SunVei

后续消零
& w& V# w4 [: Y8 R1 cDimZin ==> 8
7 b0 o. q2 z7 m2 F! s( Q=================
DIMZIN System Variable
# c1 A4 G8 }% E2 U1 t...
' x" o0 ]$ O$ ?8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....

. }1 x9 }1 b3 f) G9 BDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

  P) j3 W: I  R能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
8 P' X' b  Q( O6 ]- y1 [- E) S, D最好可以有个小程序。
还有前导不消零怎么实现？

SunVei

但是不能用!?
) g7 O" c! o7 D6 b0 ?$ Q% d& m挺纳闷底....
& R/ z  @9 l5 Z. p
得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
还是谢谢了！

SunVei

Command: DimZin
0 Y+ V* b1 G3 s  _& z' Q. ~8 C, ^Enter new value for DIMZIN <0>:
! C3 y/ I; F# `9 y# y& n, i
0 Suppresses zero feet and precisely zero inches
5 ?% o8 p) U3 V5 H3 {# L" N1 Includes zero feet and precisely zero inches
2 Includes zero feet and suppresses zero inches
3 Includes zero inches and suppresses zero feet
( \% w. ~/ Y' ?4 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)
$ }! W+ v$ u) q. q! V, O
* Q5 c" C( }/ ~# S==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

' H8 t8 l$ Y, W! f) U, s
5 r( _( C3 z, b2 T5 E以下是VBA
1 _0 y4 n! j8 M6 U# I2 D8 P7 B5 \/ x

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   
3.     With ThisDrawing
   0 u" P3 m/ m+ X- N& w, r
4.         Set DS1 = .ActiveDimStyle
   
5.         For Each DS2 In .DimStyles
   7 ?* \; R/ ~# [9 I- t
6.             .ActiveDimStyle = DS2
     q$ i, z. H& t- T2 p' ^
7.             .SetVariable "dimzin", 8
   5 Y! \3 H5 M" y
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   3 A5 e" x5 j/ L1 I% y
9.         Next
   ' l1 k  R( l; H
10.         .ActiveDimStyle = DS1
    : o9 O% ^- q+ ]7 |( @% f& B/ d
11.     End With
    

复制代码

以下是LSP

1. 
   
2. (defun c:aaa(/ dimstylelist dimstylename)
   " [9 t- ?+ j1 Y0 y4 l- p' e' D
3.   (setq dimstylelist(tblnext "dimstyle" t))
   
4.   (while dimstylelist
   
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   1 ?) g* R" Q! f% C4 q4 O; D
6.     (command "-dimstyle" "r" dimstylename)
   
7.     (command "setvar" "dimzin" 8)
   ! [4 z7 X" |3 R% O/ N
8.     (command "-dimstyle" "s" dimstylename "y")      
   # B5 k7 s3 Z4 y% C
9.     (setq dimstylelist(tblnext "dimstyle"))
   ( |2 h2 W( t/ R, K
10.     )
    ( t1 F9 D5 N$ p
11.   (princ)
    
12.   )
    

复制代码

bigbridge812

$ W' V9 `" g$ D0 j: |+ F怎么评分啊？
! H. k: s9 K2 K4 E4 O( b/ c感谢9楼！谢谢了

bigbridge812

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