QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3497|回复: 10
收起左侧

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

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

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

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

x
各位高手:
; i8 C2 \8 d3 `: x$ X) S" S帮忙写一个小程序,lisp就可以,
3 q+ t$ m' ~' |4 V如图,实现现有所有标注样式的前导不消零,后续消零,因为我们有图纸是从SolidWorks转为AutoCAD的,有这个需求。AutoCAD版本是2008的。
( Q0 ^5 N3 @, s3 p1 Z  q谢谢各位了!' n, C4 m8 C+ u. L- R& o1 Y
长期在线等!
1.png
发表于 2010-6-3 16:05:53 | 显示全部楼层 来自: 中国台湾
后续消零
1 r1 U: L+ o% G7 dDimZin ==> 8! m( w: c$ @; O* V  {* W
=================
+ a9 A- H- S1 f6 E' H2 IDIMZIN System Variable
. b+ _2 R0 `' g5 h...
  C# n+ \1 W7 a5 D9 O4 E8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5) 3 l2 d! R0 O: W  E2 U5 _3 q
....
) U* {8 ^4 R5 S- W4 W# Y# w4 O
1 o+ P! F; k! E4 c1 w+ bDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.
 楼主| 发表于 2010-6-3 16:40:40 | 显示全部楼层 来自: 中国广东佛山
2# SunVei
+ A5 {) M4 Z. y( ~4 A6 s& K$ D9 b3 d& I) v
能不能详细一点,帮助上也是像你说的,但是不能用,能解释一下么?4 d1 o* [" `# Z; [9 Q
最好可以有个小程序。6 O% l% `$ r  Z
还有前导不消零怎么实现?
发表于 2010-6-3 18:43:24 | 显示全部楼层 来自: 中国台湾
但是不能用!?4 r3 ?! n% l, c* f) p' N
挺纳闷底....
% N  M: v( Z' e7 I; f  T- e8 O4 v3 \
1 b4 a! p  \' [. w得就您的文件来比对系统变量值了 (Required *.Dwg)
 楼主| 发表于 2010-6-4 08:38:47 | 显示全部楼层 来自: 中国广东佛山
4# SunVei
* A7 _, b. P4 G2 _! Y2 ?  ]/ F还是谢谢了!
发表于 2010-6-4 09:04:20 | 显示全部楼层 来自: 中国台湾
Command: DimZin/ y# L4 Z$ ?9 g& s1 y" w# m2 [
Enter new value for DIMZIN <0>:
5 |* C9 q  f( g2 a) v' {$ ~5 L( C& C$ H% b) z4 {5 T# k/ V' b
0 Suppresses zero feet and precisely zero inches
4 b* q+ V- m0 _# z' S1 Includes zero feet and precisely zero inches
$ C6 n. f/ j4 S6 H" V4 y6 |% Z2 Includes zero feet and suppresses zero inches
9 s8 d7 S6 @  [9 M: g$ X3 Includes zero inches and suppresses zero feet
* s4 k2 N3 e# ~- E, b% c4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
, y% |4 _* K! U- e& l  r8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5) 1 I) m$ ?2 X! ^: z
12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5) 3 l* c! u( T+ g. M7 s% p
  B. s  _1 ], Q
==> 若为 4 前导消零

评分

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

查看全部评分

 楼主| 发表于 2010-6-5 11:22:04 | 显示全部楼层 来自: 中国广东佛山
6# SunVei
4 T- S  c* Y" Z! O这个我以前就试过,对于现有的标注好像也没有效果!
发表于 2010-6-7 19:58:46 | 显示全部楼层 来自: 中国河北保定
用vba怎样做呢
发表于 2010-6-7 23:23:15 | 显示全部楼层 来自: 中国广东惠州
本帖最后由 woaishuijia 于 2010-6-8 07:31 编辑 7 p1 m4 N. F: }3 H) N1 C

5 w6 I4 Z7 N7 y; x/ G以下是VBA+ \/ o4 f" {+ A2 i* a6 J) i7 `( [

  1. : a# C2 O$ h* b
  2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
    & }3 Y. ~4 L- w, ~' X( d
  3.     With ThisDrawing! ~: X0 W( h, f0 ?- V8 f
  4.         Set DS1 = .ActiveDimStyle
    " h7 @$ M8 x) x5 z6 v' w# S- Q
  5.         For Each DS2 In .DimStyles. p! w* W# |; @+ B4 _
  6.             .ActiveDimStyle = DS22 G6 l+ ?) j+ H2 d/ I7 a, l
  7.             .SetVariable "dimzin", 84 S2 L4 P0 p- u' o; A
  8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "7 C, h3 ^  e  u+ j& F
  9.         Next
    3 k# x7 O  m, ^
  10.         .ActiveDimStyle = DS1- T# V4 u$ J5 r
  11.     End With
    + F8 j3 }2 E4 o+ e. Q
复制代码
- ?$ i+ j9 `" y: j: X
以下是LSP
2 x9 K6 |. B. q) s

  1. 6 R) C9 X! S* E2 v5 K
  2. (defun c:aaa(/ dimstylelist dimstylename)
    ( b; S& z# W  |0 Q0 @# w) [- Q
  3.   (setq dimstylelist(tblnext "dimstyle" t))
    / `8 X0 W# k; t6 _/ c
  4.   (while dimstylelist1 X! Z: P7 ^: y  Z2 K
  5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
    $ B5 K9 Z! Y* U" m6 I. F
  6.     (command "-dimstyle" "r" dimstylename)# U5 v; w. P# f- `4 D) L9 q
  7.     (command "setvar" "dimzin" 8)
    ( y2 G/ N. `! m6 S1 k: E9 I+ a
  8.     (command "-dimstyle" "s" dimstylename "y")      9 U+ L( g7 X. @# l" h" _8 \
  9.     (setq dimstylelist(tblnext "dimstyle"))4 ^  }( B/ ~" ?8 j, q  k+ Z* _
  10.     )) G$ m# A7 P) [* X3 Z/ T4 n
  11.   (princ)  q- }" z0 n' M8 H( w- X' c
  12.   )
    5 j6 {; p1 ?  o" l  X3 X7 {" O: H7 |
复制代码

评分

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

查看全部评分

 楼主| 发表于 2010-6-10 09:38:50 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bigbridge812 于 2010-6-10 10:03 编辑
' g* x" j/ V2 h% _  p
5 t$ ?& _7 G# q/ h怎么评分啊?
5 d7 Y5 ^8 `7 J, B* C感谢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 )

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