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

bigbridge812

各位高手：
2 i( J/ G5 n$ Y9 @帮忙写一个小程序，lisp就可以，
' o! O* L! g2 O2 t* k如图，实现现有所有标注样式的前导不消零，后续消零，因为我们有图纸是从SolidWorks转为AutoCAD的，有这个需求。AutoCAD版本是2008的。
谢谢各位了！
9 p' S& N# z( M6 g5 C- o长期在线等！

SunVei

后续消零
DimZin ==> 8
=================
DIMZIN System Variable
" U1 S; _, [( a; k1 P...
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....

  f3 w# p. w1 C/ r5 K# b9 SDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812

2# SunVei

能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
7 L* a/ V9 U; s# t6 w最好可以有个小程序。
还有前导不消零怎么实现？

SunVei

但是不能用!?
挺纳闷底....

1 G  q1 X6 Y. k' Q9 l得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812

4# SunVei
, A! a5 x$ @3 c0 n还是谢谢了！

SunVei

Command: DimZin
, ?* \) n7 e3 [/ H: g; W; _. l# wEnter new value for DIMZIN <0>:
. K- E& S5 {4 \5 _7 q; f# Q- U4 ^
5 U( d  A$ Z) e7 L! @% E; _4 o0 Suppresses zero feet and precisely zero inches
1 Includes zero feet and precisely zero inches
2 Includes zero feet and suppresses zero inches
$ H8 O, e1 x5 ]# f. G5 h3 Includes zero inches and suppresses zero feet
, S7 s$ ~. U$ V1 b. }1 S* u: r4 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)

==> 若为 4 前导消零

bigbridge812

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

czboy

用vba怎样做呢

woaishuijia

0 c0 G; p4 z1 V% q
" d8 v- [1 ^$ ]: I  X# {以下是VBA

1. 
   
2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
   * ?* |% F2 C$ Q" P7 v
3.     With ThisDrawing
   
4.         Set DS1 = .ActiveDimStyle
   
5.         For Each DS2 In .DimStyles
   " p! P# r# F0 p
6.             .ActiveDimStyle = DS2
   
7.             .SetVariable "dimzin", 8
   
8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
   
9.         Next
   
10.         .ActiveDimStyle = DS1
    
11.     End With
    ( z8 }5 s0 c0 }, v

复制代码

以下是LSP

1. 
   
2. (defun c:aaa(/ dimstylelist dimstylename)
   0 B+ r* N% }$ U8 M
3.   (setq dimstylelist(tblnext "dimstyle" t))
   1 u4 |$ X* ?6 Q; L* b! P
4.   (while dimstylelist
   % @- G3 {3 h  v! e+ [
5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
   
6.     (command "-dimstyle" "r" dimstylename)
   
7.     (command "setvar" "dimzin" 8)
   
8.     (command "-dimstyle" "s" dimstylename "y")      
   
9.     (setq dimstylelist(tblnext "dimstyle"))
   7 l7 F8 K# k' E: U5 S4 l
10.     )
    
11.   (princ)
    ( d7 j7 q4 ^5 u% J; ~
12.   )
      [9 _- H" f) \, W, L

复制代码

bigbridge812

怎么评分啊？
( h& k- @8 w0 A: y感谢9楼！谢谢了

bigbridge812

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