QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
11天前
查看: 3263|回复: 10
收起左侧

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

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

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

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

x
各位高手:
7 o+ d: E* J+ s) f6 d帮忙写一个小程序,lisp就可以,6 ~7 B' X9 z& ~" J& x) c! d6 g
如图,实现现有所有标注样式的前导不消零,后续消零,因为我们有图纸是从SolidWorks转为AutoCAD的,有这个需求。AutoCAD版本是2008的。
$ k' t+ y" D0 B7 T. H! K. Q谢谢各位了!) [6 i1 A* i& l7 l1 G/ p
长期在线等!
1.png
发表于 2010-6-3 16:05:53 | 显示全部楼层 来自: 中国台湾
后续消零
) l, ?9 }1 e$ x# @1 {4 pDimZin ==> 85 Q1 I5 d& z( v( M6 i5 u3 I+ D
=================
2 Z) v- K9 s. {3 pDIMZIN System Variable, E6 Z# z8 m* w* _# n" V  U8 _
...1 Z3 P. L2 h! |) [7 J+ d% b
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
* Q6 w$ W8 e4 K( n3 _3 ~0 p* ]0 [0 x....& p! T2 Q, }9 B4 i' t3 e

4 T/ O! [1 q; s) j( z5 [; h9 XDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.
 楼主| 发表于 2010-6-3 16:40:40 | 显示全部楼层 来自: 中国广东佛山
2# SunVei
$ d9 \' K* p' \: Q- p( V( s, @. I9 D5 G# E* Y
能不能详细一点,帮助上也是像你说的,但是不能用,能解释一下么?3 x, {2 V! e3 A2 J/ w! y
最好可以有个小程序。
( a' _( T9 Z/ D还有前导不消零怎么实现?
发表于 2010-6-3 18:43:24 | 显示全部楼层 来自: 中国台湾
但是不能用!?- u, ~2 \* N5 T  F# d
挺纳闷底....' [" [- D5 ^  g! F+ P. r

- @( ^7 d6 v  [" c0 F得就您的文件来比对系统变量值了 (Required *.Dwg)
 楼主| 发表于 2010-6-4 08:38:47 | 显示全部楼层 来自: 中国广东佛山
4# SunVei : J) c& T0 I5 ], m5 P
还是谢谢了!
发表于 2010-6-4 09:04:20 | 显示全部楼层 来自: 中国台湾
Command: DimZin
- p( ?; x6 O4 ~* K+ ]% pEnter new value for DIMZIN <0>:$ U, z5 ^/ M2 @

0 e; ~, E" ~8 t0 m5 V/ H0 Suppresses zero feet and precisely zero inches 3 `) C6 v0 m1 a, g7 S$ |+ K% u
1 Includes zero feet and precisely zero inches
+ A8 Q: d# q- h5 G( q+ v2 Includes zero feet and suppresses zero inches 4 T4 U( o# G: m; v
3 Includes zero inches and suppresses zero feet
) h" x' K! o- `4 d4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000) 2 g$ ~' F7 N  i$ v' c
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5) - r- ~& u3 n1 |" w: U8 ^
12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5) * t9 R) y# P) o% O( c" s6 S
$ v; k" A0 Q9 W8 D/ P0 d
==> 若为 4 前导消零

评分

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

查看全部评分

 楼主| 发表于 2010-6-5 11:22:04 | 显示全部楼层 来自: 中国广东佛山
6# SunVei 7 _  s- g) D9 e2 ^
这个我以前就试过,对于现有的标注好像也没有效果!
发表于 2010-6-7 19:58:46 | 显示全部楼层 来自: 中国河北保定
用vba怎样做呢
发表于 2010-6-7 23:23:15 | 显示全部楼层 来自: 中国广东惠州
本帖最后由 woaishuijia 于 2010-6-8 07:31 编辑 - c" k) V9 ]; q8 m& n/ N0 ?* p

. v0 r  l, h3 Z) P0 V* C$ ^以下是VBA. ^7 r6 i/ N7 F& Y+ q6 I

  1. 4 Q: D0 a( n& Y* ^. f$ |
  2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
    5 T# Q( p, m& M
  3.     With ThisDrawing& }( C( Q% Q7 [& ?' O; j
  4.         Set DS1 = .ActiveDimStyle
    6 u+ x0 q7 `; d0 E$ E
  5.         For Each DS2 In .DimStyles
    # N/ X2 j) a, C* a
  6.             .ActiveDimStyle = DS2
    + [1 Y( E1 L  ^8 }& i% d
  7.             .SetVariable "dimzin", 8
    % P; ]* o/ `+ W+ A7 a
  8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "7 l1 o& \" e8 A. t
  9.         Next1 \  [: y6 H, Z
  10.         .ActiveDimStyle = DS1& e7 p& B1 S5 r! x0 x, O9 m6 I4 y5 b/ Y
  11.     End With- x! V+ u% I9 N; Q2 q
复制代码
1 B6 ]* R  A7 x4 ~0 L
以下是LSP/ A" Y+ G2 l* t  J2 W& C4 Z2 \
  1. 9 J3 y  `- @8 A. \' V7 K5 r4 w. Z
  2. (defun c:aaa(/ dimstylelist dimstylename)7 d8 \, k& w: c. C1 G. b# e. [
  3.   (setq dimstylelist(tblnext "dimstyle" t))
    7 W3 |5 Y2 k8 T' |( v8 R! z
  4.   (while dimstylelist3 e; J- o% a' ~5 Q! D; O- Y
  5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))9 a& s2 G- @& J# c  _
  6.     (command "-dimstyle" "r" dimstylename)
    ' M9 D3 o0 r! V; T* I/ U
  7.     (command "setvar" "dimzin" 8)
    - P6 m- [* K1 D! _2 |/ L7 N; W9 H
  8.     (command "-dimstyle" "s" dimstylename "y")      
    + ^' P$ F7 G# J& L
  9.     (setq dimstylelist(tblnext "dimstyle"))* l* `5 t2 l$ I6 ~
  10.     )& p! q$ G; P' F; A$ ~# m1 n
  11.   (princ)4 u6 K# V% g1 Y" r' Y0 Y6 H
  12.   )! r- d' u$ ]+ k/ |- ?
复制代码

评分

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

查看全部评分

 楼主| 发表于 2010-6-10 09:38:50 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bigbridge812 于 2010-6-10 10:03 编辑
, n$ O  _0 Z' {, G6 g* R$ Z8 ^
- C7 a; O$ S' P! E怎么评分啊?
2 V4 l7 u$ Q" ~; i感谢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 )

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