QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
22小时前
查看: 3504|回复: 10
收起左侧

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

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

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

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

x
各位高手:2 |" b3 q% r  p: A$ |- x
帮忙写一个小程序,lisp就可以,
2 m( K8 f$ {' u' @如图,实现现有所有标注样式的前导不消零,后续消零,因为我们有图纸是从SolidWorks转为AutoCAD的,有这个需求。AutoCAD版本是2008的。
( \6 J) J# N0 O0 H7 h1 z- I谢谢各位了!) |5 ]; A9 {0 I- {6 C1 |. e8 E
长期在线等!
1.png
发表于 2010-6-3 16:05:53 | 显示全部楼层 来自: 中国台湾
后续消零2 _5 B  g. B3 M  v8 l4 E( \
DimZin ==> 8- I& d( j9 B( }) n
=================
3 w, p& l9 W& L1 A- z' ADIMZIN System Variable& j7 y0 L5 x9 F: O4 z; `5 f
...3 j/ _" \, g: N! q9 R
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5) 7 O: w0 n% q! u2 [9 `
....
" R- e$ N& s; b
, {, }' E# K) [8 i; c4 _DIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.
 楼主| 发表于 2010-6-3 16:40:40 | 显示全部楼层 来自: 中国广东佛山
2# SunVei ( @2 L2 o4 q4 c5 z7 \
9 o. b, E' }$ x" M
能不能详细一点,帮助上也是像你说的,但是不能用,能解释一下么?
# e! \6 g, s! T6 g8 s最好可以有个小程序。8 J0 H2 P/ r5 @6 D, v) U' Z
还有前导不消零怎么实现?
发表于 2010-6-3 18:43:24 | 显示全部楼层 来自: 中国台湾
但是不能用!?5 M6 H7 ?  [% j
挺纳闷底....
5 G  X( b+ P* s$ P
  h" ^3 w5 P; O+ {5 s$ ]得就您的文件来比对系统变量值了 (Required *.Dwg)
 楼主| 发表于 2010-6-4 08:38:47 | 显示全部楼层 来自: 中国广东佛山
4# SunVei
1 z  w+ c: n! s3 E% P* h还是谢谢了!
发表于 2010-6-4 09:04:20 | 显示全部楼层 来自: 中国台湾
Command: DimZin
. ^2 j! ?# q7 g) @/ w% WEnter new value for DIMZIN <0>:9 j: G5 e: h# m+ j) `5 i

& d4 d7 D% b( |1 s0 Suppresses zero feet and precisely zero inches * i' c8 f0 {- W5 Y, l
1 Includes zero feet and precisely zero inches
. g8 U  F2 |6 _7 q2 ~( q) |9 Y( q6 W2 Includes zero feet and suppresses zero inches
1 U" G( h" S- Y. n4 q1 }3 Includes zero inches and suppresses zero feet
) p- Z4 }! ]% T; @4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000) / K% |3 Z+ M7 v( B
8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
) V; c. H% d* E: Y3 _12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5) & d: w' G: S: h' e- {3 e
/ \; c/ }4 }8 c2 m+ e; |1 z! K
==> 若为 4 前导消零

评分

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

查看全部评分

 楼主| 发表于 2010-6-5 11:22:04 | 显示全部楼层 来自: 中国广东佛山
6# SunVei % ^) q$ n1 ]- {& B# _; R
这个我以前就试过,对于现有的标注好像也没有效果!
发表于 2010-6-7 19:58:46 | 显示全部楼层 来自: 中国河北保定
用vba怎样做呢
发表于 2010-6-7 23:23:15 | 显示全部楼层 来自: 中国广东惠州
本帖最后由 woaishuijia 于 2010-6-8 07:31 编辑 0 v. z1 ?5 e4 ~/ L

9 W" K: Q' S1 U1 |- J% d" _5 F/ j以下是VBA7 ]; Q5 b# S# x& h

  1. 6 q/ @) g7 K2 U- ^. k8 P* e
  2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle
    9 v1 p  q* x* ?; L, q
  3.     With ThisDrawing
    ) _  \5 q' ~; T$ R$ E
  4.         Set DS1 = .ActiveDimStyle* O, x& i* m, Z/ U2 i6 C" S
  5.         For Each DS2 In .DimStyles
    , e( h/ y1 D- P% B
  6.             .ActiveDimStyle = DS2
      e% a+ k0 t6 j4 s! S" s& v. Z
  7.             .SetVariable "dimzin", 8- t' C- J$ v* Y/ G1 R1 k
  8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
    $ W) U0 b  [) A. c/ {) ]9 D) @
  9.         Next
    " }/ g" N3 k. X( P
  10.         .ActiveDimStyle = DS1: s' Q7 @# C% n8 [0 t7 U
  11.     End With- }; I  f  _! C
复制代码
: x( F2 |% o& q9 w/ `
以下是LSP: `- u; H, _7 a

  1. " y) P' a- r7 K, K1 x4 b' y( M
  2. (defun c:aaa(/ dimstylelist dimstylename)
    : ^5 w, s  c0 M. k; Z% q
  3.   (setq dimstylelist(tblnext "dimstyle" t))/ G9 M" `+ e4 q! [7 k  N4 O7 D6 U. {
  4.   (while dimstylelist  T/ R' t7 |% o3 n7 `5 S
  5.     (setq dimstylename(cdr (assoc 2 dimstylelist))); _. [% e) S. S. m7 a
  6.     (command "-dimstyle" "r" dimstylename)! _" n+ B( P2 i7 T
  7.     (command "setvar" "dimzin" 8)4 B; T: s' ?/ f7 D  o: N& [
  8.     (command "-dimstyle" "s" dimstylename "y")      
    1 @) B8 i$ s6 R: P. b2 o
  9.     (setq dimstylelist(tblnext "dimstyle"))) q+ c+ O7 {0 K- A
  10.     )
    * Z! q# ^! t" K0 B5 {' ~' F+ ]
  11.   (princ)
    + C: I, ]' }7 Z; a0 w8 a9 q# w
  12.   )
    6 z/ Q: [! w. N% z. e+ {
复制代码

评分

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

查看全部评分

 楼主| 发表于 2010-6-10 09:38:50 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bigbridge812 于 2010-6-10 10:03 编辑 - i( P* X# D/ f( a4 W

$ Z/ i- s. _3 ~, A. j7 x* V怎么评分啊?& C& ?$ J: l7 m
感谢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 )

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