QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
各位高手:
4 M  d' I! D- [$ J. ^帮忙写一个小程序,lisp就可以,
2 _7 M) @$ C2 j" c1 C; e如图,实现现有所有标注样式的前导不消零,后续消零,因为我们有图纸是从SolidWorks转为AutoCAD的,有这个需求。AutoCAD版本是2008的。; k7 F% N$ F- r7 M
谢谢各位了!
5 x) q  }7 k5 Y0 I长期在线等!
1.png
发表于 2010-6-3 16:05:53 | 显示全部楼层 来自: 中国台湾
后续消零
9 O$ w0 ^) @3 Z2 n6 FDimZin ==> 8" T, L2 U, U4 \" J* T
=================- F; C- b: N: \$ c' x/ s8 \  f
DIMZIN System Variable
2 j4 a5 [2 X2 \1 q) s...
. I5 w9 H/ x  v8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
# }; h; Q7 Q6 G( _2 D$ D....# ?. e  z8 n0 P/ B' t. x: L2 d5 c

1 X3 O: C! W) k: m% K8 lDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.
 楼主| 发表于 2010-6-3 16:40:40 | 显示全部楼层 来自: 中国广东佛山
2# SunVei
! M/ D+ F' e9 G- G6 n5 k
; C( e$ u( o1 _: c) C/ y7 O0 ^' ^0 g3 b能不能详细一点,帮助上也是像你说的,但是不能用,能解释一下么?$ t1 a$ q% }# V* n: U8 F
最好可以有个小程序。) d; k: E" Q( s+ I3 ]: S
还有前导不消零怎么实现?
发表于 2010-6-3 18:43:24 | 显示全部楼层 来自: 中国台湾
但是不能用!?* u$ e6 E# \/ ~$ Z
挺纳闷底....9 Z* A* n: }9 n7 a
3 I7 b, e; g5 Y: R5 `$ G$ ?
得就您的文件来比对系统变量值了 (Required *.Dwg)
 楼主| 发表于 2010-6-4 08:38:47 | 显示全部楼层 来自: 中国广东佛山
4# SunVei
; m, p9 g0 j+ X- L9 E还是谢谢了!
发表于 2010-6-4 09:04:20 | 显示全部楼层 来自: 中国台湾
Command: DimZin; ~- G5 ?' t- A$ r" z
Enter new value for DIMZIN <0>:9 N5 H' G/ r- I  y

; ~  {# b( G- D, F, q" K% `0 Suppresses zero feet and precisely zero inches
% d1 @, K, F1 Q: U$ ^  d+ A1 Includes zero feet and precisely zero inches
3 ~. V! C9 Y: z3 J2 Includes zero feet and suppresses zero inches
/ B! K$ n4 l4 y$ f2 K& r3 Includes zero inches and suppresses zero feet
" A' F# Z+ h' [4 x4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000) 8 a: |/ a+ N9 f. f$ a
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5) ( E* B; I3 j. V* x0 p
12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5) . T1 T7 x4 C6 k2 ^. L  B0 T$ |

3 k8 b  G2 S6 i# N0 _==> 若为 4 前导消零

评分

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

查看全部评分

 楼主| 发表于 2010-6-5 11:22:04 | 显示全部楼层 来自: 中国广东佛山
6# SunVei
) g7 B6 W4 c1 |2 F; B2 b这个我以前就试过,对于现有的标注好像也没有效果!
发表于 2010-6-7 19:58:46 | 显示全部楼层 来自: 中国河北保定
用vba怎样做呢
发表于 2010-6-7 23:23:15 | 显示全部楼层 来自: 中国广东惠州
本帖最后由 woaishuijia 于 2010-6-8 07:31 编辑 0 z8 v( [) s9 M
, r% H! ?2 N5 R: p
以下是VBA, r$ ]6 l/ @4 O7 ?2 S6 r9 u, i4 b' f
  1. * S4 y$ ?/ k& Q* w( K2 F# W9 o- E
  2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
    4 O% t7 K' Y+ K, H, ^
  3.     With ThisDrawing
    9 {# f0 F6 s# B' p* L
  4.         Set DS1 = .ActiveDimStyle. i* i+ ~9 h9 U6 [# G8 i! t1 Q4 O; T
  5.         For Each DS2 In .DimStyles( N; l9 O3 @: J1 j: O$ ?2 W7 ^
  6.             .ActiveDimStyle = DS28 \, H& K) L; }# T0 A5 J
  7.             .SetVariable "dimzin", 81 c) t6 _) m: L8 n: e6 S
  8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "$ P1 Z) S1 ?' Z$ s7 `. ?
  9.         Next+ y! P- ]4 @" S0 h, B- h& G$ @( E; T* S
  10.         .ActiveDimStyle = DS1
    6 Q  O" S; @! w3 p' y$ `
  11.     End With
    + K* C; u. E9 L2 k% p( `+ b6 I
复制代码

5 y0 g5 c: L  o以下是LSP
# T! T' Y) j  I5 Y  Z* E% J

  1. ( h0 E% ~6 {! c/ ?" l
  2. (defun c:aaa(/ dimstylelist dimstylename)  F* B& B/ V# s* \
  3.   (setq dimstylelist(tblnext "dimstyle" t))
    & [% v  c0 t9 m) P( @5 E: o/ w
  4.   (while dimstylelist1 k5 T3 {" z+ ?5 S# X
  5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
    5 \% Z) T3 w2 y: g" B
  6.     (command "-dimstyle" "r" dimstylename)
    8 W  h0 ^) ]# Z% p
  7.     (command "setvar" "dimzin" 8)
    % l) Q% w7 B$ q: y3 y
  8.     (command "-dimstyle" "s" dimstylename "y")      & l5 I$ }& C8 c5 P1 k2 Q! q) u, Q
  9.     (setq dimstylelist(tblnext "dimstyle"))7 B  h/ [" S  `" N- M; K
  10.     )0 Y" H+ R- D: ~- `
  11.   (princ)
    6 a& Y% s0 r, W/ o1 c' K" [; z6 `
  12.   )
    ) h7 l. w3 G; N* o$ P
复制代码

评分

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

查看全部评分

 楼主| 发表于 2010-6-10 09:38:50 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bigbridge812 于 2010-6-10 10:03 编辑
1 u) m; M/ h( t0 q; E- N4 i+ y- U6 A3 M# t- j$ m, d3 ]! n  G( p8 w
怎么评分啊?8 K7 }4 G$ |/ `% k
感谢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 )

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