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

bigbridge812

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

SunVei

后续消零
DimZin ==> 8
1 u  D5 B) h8 P; p6 f- Y=================
DIMZIN System Variable
4 B* F6 D: r8 ?9 y...
  ~% k6 q- z0 O0 O8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
9 K3 F0 k* @: v8 m& |) m....
* Y, g7 t% t% m
8 y8 E8 E: a/ pDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

/ k! W7 i) F: w) k能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
, e' s8 @" e/ W0 e6 g, A最好可以有个小程序。
还有前导不消零怎么实现？

SunVei

但是不能用!?
' V" U/ e3 ?- r$ Z4 `: @挺纳闷底....
7 O+ Q* P0 s6 \3 `2 c
  s; [8 G* b+ i; C5 }1 I得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
6 V' B0 y/ B/ [# W( A. a5 l3 b还是谢谢了！

SunVei

Command: DimZin
Enter new value for DIMZIN <0>:

0 Suppresses zero feet and precisely zero inches
3 f1 A+ ?7 i1 i- C1 Includes zero feet and precisely zero inches
2 Includes zero feet and suppresses zero inches
3 Includes zero inches and suppresses zero feet
4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
- T, E' n7 W7 i$ T8 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)

) P% j( w  w) _5 k3 a==> 若为 4 前导消零

bigbridge812

6# SunVei
  }( l, D' G8 z8 i这个我以前就试过，对于现有的标注好像也没有效果！

czboy

用vba怎样做呢

woaishuijia

以下是VBA

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   
3.     With ThisDrawing
   
4.         Set DS1 = .ActiveDimStyle
   , W: R) ^0 M  m- m% D. t
5.         For Each DS2 In .DimStyles
   
6.             .ActiveDimStyle = DS2
   
7.             .SetVariable "dimzin", 8
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   5 L% I9 m/ A/ f1 k/ |! K
9.         Next
   * _) A8 q- [% [) o* B- A6 a
10.         .ActiveDimStyle = DS1
    # i5 |9 r0 C2 }4 x; T! |
11.     End With
    

复制代码

) p6 d& Q  U0 s0 u% s以下是LSP
( F2 ~- G) c6 R% z. M

1. 
   
2. (defun c:aaa(/ dimstylelist dimstylename)
   7 l' {! h0 Y% W) h# k, c0 l! x9 o6 t5 m
3.   (setq dimstylelist(tblnext "dimstyle" t))
   . x4 L: x& O6 g8 s# p4 ]/ \
4.   (while dimstylelist
   % e$ F! f* w) V3 b5 C
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   % A1 U3 d* c; H- A' ~( G3 x3 ?
6.     (command "-dimstyle" "r" dimstylename)
   % F' Z- a$ k% Q" z, l$ X: A
7.     (command "setvar" "dimzin" 8)
   ; y3 y3 H. i& n1 F! j( U" [
8.     (command "-dimstyle" "s" dimstylename "y")      
   , N# }6 i4 v- J2 J- K/ |6 Q3 {
9.     (setq dimstylelist(tblnext "dimstyle"))
   2 o! }, d% y% z# i0 Q1 p
10.     )
    6 `" U* s$ V8 P/ X6 I2 }' s
11.   (princ)
    
12.   )
    2 Z3 j+ n  V9 E5 E* i$ _

复制代码

bigbridge812

* l% ]) m/ _2 t+ C, ?
# P' P2 n+ b$ n  o" q' K3 f怎么评分啊？
: m: q* `6 s) v/ M( h4 i感谢9楼！谢谢了

bigbridge812

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