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

bigbridge812 · 发表于 2010-6-3 14:58:03

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

SunVei · 发表于 2010-6-3 16:05:53

后续消零
DimZin ==> 8
=================
DIMZIN System Variable
...
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
....

DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.

bigbridge812 · 发表于 2010-6-3 16:40:40

2# SunVei

能不能详细一点，帮助上也是像你说的，但是不能用，能解释一下么？
最好可以有个小程序。
还有前导不消零怎么实现？

SunVei · 发表于 2010-6-3 18:43:24

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

得就您的文件来比对系统变量值了 (Required *.Dwg)

bigbridge812 · 发表于 2010-6-4 08:38:47

4# SunVei
还是谢谢了！

SunVei · 发表于 2010-6-4 09:04:20

Command: DimZin
Enter 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
3 Includes zero inches and suppresses zero feet
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)

==> 若为 4 前导消零

bigbridge812 · 发表于 2010-6-5 11:22:04

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

czboy · 发表于 2010-6-7 19:58:46

用vba怎样做呢

woaishuijia · 发表于 2010-6-7 23:23:15

本帖最后由 woaishuijia 于 2010-6-8 07:31 编辑

以下是VBA

0 U: } f2 m- L/ _: A
Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle" L! p0 D- z) H$ }4 r( Z& F# n) T
With ThisDrawing8 J& x5 E5 M! C6 r( Z
Set DS1 = .ActiveDimStyle c: i# v! I4 G) C% h. J, G' M
For Each DS2 In .DimStyles, p' L" }2 t/ `7 l% C( X! F
.ActiveDimStyle = DS2
& [. q/ t6 h, ?& T& X
.SetVariable "dimzin", 8
0 j* d3 S( C" q) n$ ?) ]
.SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "0 o6 S+ S5 e9 [8 ~% [/ {" u
Next
8 q* l9 I% S2 `8 H6 |( O4 }5 x. }
.ActiveDimStyle = DS1
r4 n; ?- I n% i! ]& A4 N) k, b
End With$ K( p1 D3 P( E

复制代码

以下是LSP

" A1 U7 u' `6 x8 D9 @, l
(defun c:aaa(/ dimstylelist dimstylename)1 ?. W M$ h5 h: K7 e
(setq dimstylelist(tblnext "dimstyle" t))8 X7 m+ |/ M- ?' Y
(while dimstylelist& {! A1 M7 b$ q: ^6 O# O+ E: x0 i6 ~, s
(setq dimstylename(cdr (assoc 2 dimstylelist)))
(command "-dimstyle" "r" dimstylename)3 u$ Y% w5 u% I/ K& Q9 e5 K7 I
(command "setvar" "dimzin" 8)
- o, p1 B3 G- `8 Y8 M
(command "-dimstyle" "s" dimstylename "y")
: I4 v, V3 v1 W& w- j! c% l
(setq dimstylelist(tblnext "dimstyle"))
1 r5 j" b u7 _8 n. p. Z, {
)
6 m) L5 u* o6 l9 M8 d* e
(princ)
) u& {/ i5 y6 o( q/ U7 v
)
/ @' \( u; w2 r3 V- L1 q6 g7 j

复制代码

bigbridge812 · 发表于 2010-6-10 09:38:50

本帖最后由 bigbridge812 于 2010-6-10 10:03 编辑

怎么评分啊？
感谢9楼！谢谢了

bigbridge812 · 发表于 2010-6-10 10:06:26

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

		自动登录	找回密码
密码			注册

通知

[已答复] 求助：帮忙开发一个AutoCAD小程序

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

浏览过的版块