QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
1天前
查看: 3505|回复: 10
收起左侧

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

[复制链接]
发表于 2010-6-3 14:58:03 | 显示全部楼层 |阅读模式 来自: 中国广东佛山

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

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

x
各位高手:" D. X5 `+ _% O% a3 ^+ O1 ?
帮忙写一个小程序,lisp就可以,
: b  |! r0 f! }" w3 B5 P4 ]如图,实现现有所有标注样式的前导不消零,后续消零,因为我们有图纸是从SolidWorks转为AutoCAD的,有这个需求。AutoCAD版本是2008的。% Z  X2 ?. z! p$ ]- j
谢谢各位了!
2 x, P" w% S1 X: }长期在线等!
1.png
发表于 2010-6-3 16:05:53 | 显示全部楼层 来自: 中国台湾
后续消零1 o# a, \7 R6 D$ h1 i" y  W
DimZin ==> 8
5 a% B2 C: T0 ?$ Y=================0 _1 m3 H: _' M& C9 K( M$ u
DIMZIN System Variable
7 g8 F; Q, E! U+ D9 n...
; p1 E% Y: S: U6 w8 p9 M1 i; j$ g8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5) ) R7 Q5 T& y; m: W, Y0 `8 ^- x
....2 g; s! E) p- _6 T# X" ~

3 a5 [: C$ U7 `' ^DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.
 楼主| 发表于 2010-6-3 16:40:40 | 显示全部楼层 来自: 中国广东佛山
2# SunVei
$ A! _( h4 j0 b% ]& _! F$ [0 h7 x& l
能不能详细一点,帮助上也是像你说的,但是不能用,能解释一下么?
+ ?7 j( K0 z0 J+ z+ l1 D6 m最好可以有个小程序。8 x% I. D* g5 e, S4 |# ?$ W
还有前导不消零怎么实现?
发表于 2010-6-3 18:43:24 | 显示全部楼层 来自: 中国台湾
但是不能用!?
5 N9 I2 q" m4 P8 j* v  k$ p; t, @挺纳闷底....$ h4 }, J9 a5 T8 ^

4 ^( c$ K# F6 V8 l, i. f+ d得就您的文件来比对系统变量值了 (Required *.Dwg)
 楼主| 发表于 2010-6-4 08:38:47 | 显示全部楼层 来自: 中国广东佛山
4# SunVei ) i$ t( e, Y# \: z0 E" U' i0 D
还是谢谢了!
发表于 2010-6-4 09:04:20 | 显示全部楼层 来自: 中国台湾
Command: DimZin' U3 Z( V$ B$ k* R8 f
Enter new value for DIMZIN <0>:
3 G% R2 b5 m8 S
: G& k- v' Q4 P1 o$ Q& F  \0 Suppresses zero feet and precisely zero inches & x2 ?) f5 S& `4 `: [2 Z* ?3 G
1 Includes zero feet and precisely zero inches
3 b# P( E. t3 B6 B. B4 i2 Includes zero feet and suppresses zero inches
5 G: t9 \8 i( Q3 Includes zero inches and suppresses zero feet 7 N/ h# Z4 t! |
4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000) 3 B8 l! P3 z1 s+ X
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
3 \5 W" }1 D( g5 n# [' `) @% \12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5) ' i; Z3 D+ d  b8 M
1 x/ c1 V* ?- s3 B- A# {) W
==> 若为 4 前导消零

评分

参与人数 1三维币 +5 收起 理由
唐昕晨 + 5 技术讨论

查看全部评分

 楼主| 发表于 2010-6-5 11:22:04 | 显示全部楼层 来自: 中国广东佛山
6# SunVei 9 g$ A+ }5 i8 t. w& U* S3 V
这个我以前就试过,对于现有的标注好像也没有效果!
发表于 2010-6-7 19:58:46 | 显示全部楼层 来自: 中国河北保定
用vba怎样做呢
发表于 2010-6-7 23:23:15 | 显示全部楼层 来自: 中国广东惠州
本帖最后由 woaishuijia 于 2010-6-8 07:31 编辑 ( F/ d% R, W! T8 @  }* @

; m& K0 ~: A0 e5 D. V以下是VBA: `8 `, r0 P& _/ U! x

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

/ k0 T2 _* L# {# c& M/ m; t) d以下是LSP
: q2 x! U: r2 {
  1. " A1 U7 u' `6 x8 D9 @, l
  2. (defun c:aaa(/ dimstylelist dimstylename)1 ?. W  M$ h5 h: K7 e
  3.   (setq dimstylelist(tblnext "dimstyle" t))8 X7 m+ |/ M- ?' Y
  4.   (while dimstylelist& {! A1 M7 b$ q: ^6 O# O+ E: x0 i6 ~, s
  5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
    - q! ]- c/ D  `# T; d+ U, D9 I+ _" ]8 z
  6.     (command "-dimstyle" "r" dimstylename)3 u$ Y% w5 u% I/ K& Q9 e5 K7 I
  7.     (command "setvar" "dimzin" 8)
    - o, p1 B3 G- `8 Y8 M
  8.     (command "-dimstyle" "s" dimstylename "y")      
    : I4 v, V3 v1 W& w- j! c% l
  9.     (setq dimstylelist(tblnext "dimstyle"))
    1 r5 j" b  u7 _8 n. p. Z, {
  10.     )
    6 m) L5 u* o6 l9 M8 d* e
  11.   (princ)
    ) u& {/ i5 y6 o( q/ U7 v
  12.   )
    / @' \( u; w2 r3 V- L1 q6 g7 j
复制代码

评分

参与人数 1三维币 +5 收起 理由
唐昕晨 + 5 应助

查看全部评分

 楼主| 发表于 2010-6-10 09:38:50 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bigbridge812 于 2010-6-10 10:03 编辑 8 j, q# i( _) k
: B8 e9 c& R7 B9 S% ~# [7 p
怎么评分啊?2 B4 q* b: `6 G4 R
感谢9楼!谢谢了
 楼主| 发表于 2010-6-10 10:06:26 | 显示全部楼层 来自: 中国广东佛山
利用9楼的程序框架还可以进行各种设置,非常感谢!
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表