QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
各位高手:" v2 _5 z% |: }( E
帮忙写一个小程序,lisp就可以,! O8 K# S; K8 v: B/ O9 h1 ~! f! q
如图,实现现有所有标注样式的前导不消零,后续消零,因为我们有图纸是从SolidWorks转为AutoCAD的,有这个需求。AutoCAD版本是2008的。) J, {9 E7 O5 _) C8 K
谢谢各位了!
$ J4 e. k! L' b/ _4 q/ A5 X长期在线等!
1.png
发表于 2010-6-3 16:05:53 | 显示全部楼层 来自: 中国台湾
后续消零
( @# o9 k7 ^0 z0 \DimZin ==> 8
3 T5 }( X2 y( B, x& B& A* Z=================
" B3 Z5 J9 J" [2 T0 nDIMZIN System Variable
+ Q# F+ h. F3 c* K' n...
/ n+ x+ {) |0 B) i8 ~2 w% _/ C4 M8 U8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5)
, J$ z- _9 {+ p....
6 I, l- B+ d8 O5 z
* l* e/ L, p, ~$ V4 KDIMZIN also affects real-to-string conversions performed by the AutoLISP rtos and angtos functions.
 楼主| 发表于 2010-6-3 16:40:40 | 显示全部楼层 来自: 中国广东佛山
2# SunVei
( ?5 ?/ b7 C5 M6 F! d3 A/ U9 o2 P4 w  n9 ]9 P' V, t- U6 P$ \
能不能详细一点,帮助上也是像你说的,但是不能用,能解释一下么?, r3 l* `4 i- F- d7 t5 z( w4 L
最好可以有个小程序。" y! Y$ Q7 G/ I" Y0 Z; a! A9 ^
还有前导不消零怎么实现?
发表于 2010-6-3 18:43:24 | 显示全部楼层 来自: 中国台湾
但是不能用!?
" y5 O6 R% u( @+ L# M" F  ]! G, a挺纳闷底....+ {9 O  D& z" t" R

* }. Z& y, ~. p& p# u得就您的文件来比对系统变量值了 (Required *.Dwg)
 楼主| 发表于 2010-6-4 08:38:47 | 显示全部楼层 来自: 中国广东佛山
4# SunVei 6 s% H& l- v% z
还是谢谢了!
发表于 2010-6-4 09:04:20 | 显示全部楼层 来自: 中国台湾
Command: DimZin
/ \/ \3 m3 O: L# ]# FEnter new value for DIMZIN <0>:7 V; w, D6 R+ J) R! a9 s

# [6 w& M$ S6 n( F8 r* t0 Suppresses zero feet and precisely zero inches $ e* S$ H. y. y9 Z
1 Includes zero feet and precisely zero inches
9 X& T# ]1 V0 K! |/ j$ Q# ]) g2 Includes zero feet and suppresses zero inches % n( }7 ]1 e# x
3 Includes zero inches and suppresses zero feet
3 S8 K5 p- q3 Z& P4 Suppresses leading zeros in decimal dimensions (for example, 0.5000 becomes .5000)
0 [# m+ r" l0 T8 Suppresses trailing zeros in decimal dimensions (for example, 12.5000 becomes 12.5) % |3 I& }( T3 X, M
12 Suppresses both leading and trailing zeros (for example, 0.5000 becomes .5) / Q) h: H+ b6 V  L; X- a0 [

7 ~! z6 C* r  j$ X==> 若为 4 前导消零

评分

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

查看全部评分

 楼主| 发表于 2010-6-5 11:22:04 | 显示全部楼层 来自: 中国广东佛山
6# SunVei
2 V$ E* X% d. s4 t& \" K9 }: c这个我以前就试过,对于现有的标注好像也没有效果!
发表于 2010-6-7 19:58:46 | 显示全部楼层 来自: 中国河北保定
用vba怎样做呢
发表于 2010-6-7 23:23:15 | 显示全部楼层 来自: 中国广东惠州
本帖最后由 woaishuijia 于 2010-6-8 07:31 编辑
2 h( L1 m# v4 D' [( \6 U  O3 S0 Y$ e4 s6 A  m7 g
以下是VBA
" o# t, w4 T; X
  1. 3 ^; ?) `( N$ A; n3 e; Y0 H' |- T% t
  2.     Dim DS1 As AcadDimStyle, DS2 As AcadDimStyle) m! d+ {8 [, r- r
  3.     With ThisDrawing: o, m4 w% y$ _8 L, x) z% S5 p) k9 p
  4.         Set DS1 = .ActiveDimStyle+ g; [0 g; {/ @2 w9 Y
  5.         For Each DS2 In .DimStyles/ A2 q/ D3 `* c9 T4 X( q8 z
  6.             .ActiveDimStyle = DS2
    ( `4 ]: W* m1 |: g4 i, `! W# K
  7.             .SetVariable "dimzin", 80 N8 m- J" f: b; `
  8.             .SendCommand "-dimstyle s " & DS2.Name & vbCr & "y "
    + D- e1 Z! D: t( u( g3 u
  9.         Next  X4 i0 g& o7 g. U+ Z
  10.         .ActiveDimStyle = DS1( N5 I) t/ {  u6 i- S2 \& q( Q
  11.     End With4 r% w+ S% k5 N( m+ w( o
复制代码

3 c% F& P; M7 l! S9 Y3 ~6 L以下是LSP
! E2 a9 {( O) h' K

  1. % ~$ l/ g1 \- j2 Y  X* ?
  2. (defun c:aaa(/ dimstylelist dimstylename)
    $ M( w6 _/ m7 \% }# g7 h
  3.   (setq dimstylelist(tblnext "dimstyle" t))% _/ S% V& x' \# c
  4.   (while dimstylelist8 z8 M6 ~& I3 a; A
  5.     (setq dimstylename(cdr (assoc 2 dimstylelist)))
    2 Q* @# E, L2 |. }3 ]9 [
  6.     (command "-dimstyle" "r" dimstylename)1 v+ a+ I/ L" W+ x3 x, O& _; D
  7.     (command "setvar" "dimzin" 8)
    ! ^- z2 J+ z$ z+ r  j
  8.     (command "-dimstyle" "s" dimstylename "y")      2 X, k2 b( b; c! d' z
  9.     (setq dimstylelist(tblnext "dimstyle")), P' u9 X$ Y% {7 D& N& [" n
  10.     )
    0 Y9 o$ A) V; u+ C: ]" {
  11.   (princ)+ v9 B9 {7 q1 |1 {
  12.   )
    / p( d2 b" P5 K- a
复制代码

评分

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

查看全部评分

 楼主| 发表于 2010-6-10 09:38:50 | 显示全部楼层 来自: 中国广东佛山
本帖最后由 bigbridge812 于 2010-6-10 10:03 编辑 & a/ V  F) u# M0 V7 h- j

: \3 J- E/ O" q怎么评分啊?, D9 E7 i" }  c% X- ~. y# a
感谢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 )

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