求助：帮忙开发一个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

6 a+ _" ]% s2 F4 @9 X+ X W
Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle- h5 n, w6 G8 V% I( T0 ]
With ThisDrawing
8 O7 ^' e' }: v% H
Set DS1 = .ActiveDimStyle0 D0 \& f' M! E& h; [
For Each DS2 In .DimStyles) y# m, Q8 l2 @) d% n
.ActiveDimStyle = DS2
4 U2 `) @5 A/ k! |7 L
.SetVariable "dimzin", 86 q! Q/ e( u# v( b& K3 n4 T
.SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "5 p7 C5 p# N/ |$ U: W
Next& g7 ^0 S& n) y7 e, D* a3 p8 o2 ]
.ActiveDimStyle = DS1- B0 D( y, u% h/ M( X
End With8 h `7 J4 F* i, x. X2 Z) J2 ^

复制代码

以下是LSP

" o! ?3 k7 t n, Q8 a. Z- A: ?) L# h
(defun c:aaa(/ dimstylelist dimstylename)
* U; p9 C: H* b4 E
(setq dimstylelist(tblnext "dimstyle" t))
- @9 s9 }0 Q! I8 B( m* Z, ]
(while dimstylelist5 W0 G) ~9 h# u& Q3 B
(setq dimstylename(cdr (assoc 2 dimstylelist)))
6 h y4 F" W: ^8 J1 z+ d' s
(command "-dimstyle" "r" dimstylename)
! O6 f; X# S7 g/ r7 I! a4 J L/ D
(command "setvar" "dimzin" 8)
9 `' u( _: y, w; z( l5 d) b2 y2 g& _
(command "-dimstyle" "s" dimstylename "y") 9 p- K0 |& [6 _, J$ e* g
(setq dimstylelist(tblnext "dimstyle"))
2 \& ]' f: _' a
)1 J! J3 Q5 y; b; K
(princ)2 [+ Y* Y! Z* y' _2 u+ x! G
)
* q7 _1 @: v7 X8 y

复制代码

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

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

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

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

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

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

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

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

评分

评分