公差标注的二次开发

gzhstar

;; GCBZ.LSP
) R( a9 h& N7 l* F;; 版权所有 (C) 2001-2003  高正洪
4 G$ d* _' l  O, B7 N0 N;;
2 E' i: @; }# B7 k0 b9 r;;   本软件免费可供进行任何用途需求的拷贝、修改及发行, 但请遵循下述原则:
;;
;;   1)  上列的版权通告必须出现在每一份拷贝里。
: k0 W  f. p6 o! h7 h;;   2)  相关的说明文档也必须载有版权通告及本项许可通告。
' ~# z6 ~  C" p5 Y' x! x  l& Y+ D;;
+ e. f0 x5 O6 M" G; F* _) i;;   本软件仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊
;;   用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认。
1 }% m! M2 M3 _& i1 ];;
# X$ O$ N5 J4 O0 B. [: g- T% z% Y1 B;;
;;   http://
3 l2 O& S% X) T" a( u;;
;;   e-mail:
;;
;;;
; @2 |3 \( k! g& H;;;  名称：增加公差程序
# X% e4 \2 V' ~( ?' P/ |;;;  执行命令：gc
;;;
(DEFUN C:gc(/ ob dim_sel post s to_vl result tgc)
! i1 D0 C- ?, K2 I# P    (SETVAR "CMDECHO" 0)
    (while (/= (cdr (assoc 0 (setq ob (entget (nth 0
     (setq dim_sel (entsel "选择标注尺寸:"))))))) "DIMENSION")
( a* e7 I+ }$ W' b/ s: p (princ "\n 尺寸线没有选到！请重新选择: "))
    (if (< (setq dcl_id (load_dialog "gcbz.dcl")) 0) (exit));打开对话框
* ^& o* Z0 r+ O$ @0 Q$ g    (if (not (new_dialog "gcbz" dcl_id)) (exit))
) G( t' t& x0 v. B0 p    (setq post (assoc 1 ob))
    (setq s (cdr post))
/ P% |6 @. ]  p    (if (= s "") (setq to_vl "<>")
(setq to_vl (substr s 1 (vl-string-search "{" s))));读取尺寸值
* g/ s& L! U( q, Y    (set_tile "dim_vl" to_vl)
    (if (= to_up nil) (setq to_up "0"));提取上公差
6 l: F$ H4 ^+ C3 y7 Q$ j. v# h7 b( |    (set_tile "dim_up" to_up)
    (if (= to_dow nil) (setq to_dow "0"));提取下公差
  ^9 h* U: u/ j; A3 O& f, ]    (set_tile "dim_do" to_dow)
  V# \8 L1 @9 J8 p$ f1 d. W    (if (= to_hi nil) (setq to_hi "0.6"));提取公差高
2 @+ w7 g$ h* R) U    (set_tile "dim_hi" to_hi)
. s* c0 Q3 K  U" E, k$ j; n" W    (if (= way nil) (setq way 1));设定方法
    (if (= way 1) (set_tile "aaa" "1"))
    (if (= way 2) (set_tile "bbb" "1"))
    (mode_tile "dim_up" 2);定光标
) u5 r6 ~: D/ E, d& @* h    (action_tile "dim_vl" "(setq to_vl $value)")
    (action_tile "dim_up" "(setq to_up $value)")
! v, L7 K$ N: e$ F$ I    (action_tile "dim_do" "(setq to_dow  $value)")
" p7 q+ Q- d9 F) w3 f    (action_tile "dim_hi" "(setq to_hi  $value)")
  @  v! P' t# w" \2 d4 Y    (action_tile "aaa" "(setq way 1)")
    (action_tile "bbb" "(setq way 2)")
& ^0 K& N7 u: w2 l    (action_tile "accept" "(done_dialog 1)")
4 D8 g* R) `- \: e/ @    (action_tile "cancel" "(done_dialog 0)")
9 G; H! z( M2 t3 G" E    (setq result (start_dialog))
4 O! D; C, H5 V1 m, _- {    (if (= 1 result)
(progn
     (setq dim_tp (atof to_up))
8 s, N5 e0 R  C- M' Q- P; D2 D     (setq dim_tm (- 0 (atof to_dow)))
" I7 _7 M/ w; n2 v  v0 f1 V$ r  X. u4 u      (setq tgc to_vl)
+ i7 a4 q" c8 I     (if (= way 1)
  (progn;方法一
- z1 y; h  y  b, e: K          (setq dim_tol 1)
0 U. l! e/ k5 }" w8 U& E2 ]0 ^: }* d          (setq dim_tfac (atof to_hi))
          (if (= dim_tp dim_tm) (setq dim_tfac 1))
          (setq dim_tolj 0)
% w0 [- e* n0 \      (setq tgc (cons 1 tgc))
          (setq ob (subst tgc post ob))
          (entmod ob)
          (command "dimoverride" "dimtp" dim_tp "dimtm" dim_tm "dimtol" dim_tol
; M) s7 A( q2 z  W; u                      "dimtfac" dim_tfac "dimtolj" dim_tolj "" dim_sel "")
- G! `6 R2 q& ~  )
  (progn;方法二
      (if (= dim_tp dim_tm)
# L& i8 n, E6 |  K4 ?+ b$ \   (setq tgc (strcat tgc "{\\H1x;%%P" to_up "}"))
   (progn
) J5 x0 L) A3 M0 z: L% C           (if (> dim_tp 0) (setq sc (strcat "+" to_up)) (setq sc to_up))
         (if (= dim_tp 0) (setq sc " 0"))
4 S& E* o% q& t+ T0 m       (if (< dim_tm 0) (setq xc (strcat "+" to_dow)) (setq xc to_dow))
       (if (= dim_tm 0) (setq xc " 0"))
       (setq tgc (strcat tgc "{\\H" to_hi "x;\\S" sc "^" xc ";}"))
. y3 J9 p( V+ ?0 n5 R/ Z: g    )
: T& z3 r# y& B! s. @      )
4 B4 J- Z$ F; o3 ~          (setq tgc (cons 1 tgc))
      (setq ob (subst tgc post ob))
/ H4 l) k" _+ h) P          (entmod ob)
  )
2 X$ W8 j) Y) _# Q% w  s& @     )
) A" r; j6 v9 ?- C* k4 U )
6 V) P6 O- L7 R: @    )
9 z: m9 I% d" R2 N- {- Z# l)
* A& F( Q6 r3 |7 r, `1 T5 ]4 x
3 L* N. A( I) L1 ~# _4 b3 g" z  b

// gcbz.DCL
6 f* R& i& Q, q" F// 版权所有 (C) 2001-2003  高正洪
6 E' e  x+ Z4 F/ [: `9 Q6 |  W//
  ^- X4 e) t9 @//   本软件免费可供进行任何用途需求的拷贝、修改及发行, 但请遵循下述原则:
//
//   1)  上列的版权通告必须出现在每一份拷贝里。
//   2)  相关的说明文档也必须载有版权通告及本项许可通告。
- M8 h1 B+ N1 L. N8 h6 U+ g' w# B//
//   本软件仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊
//   用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认。
//
//   http://
//
; ]# G  J7 z0 `) u5 Z% j" j2 `//   e-mail:
# P. J, `( p7 Q3 z# Z//
9 p3 \3 G; f) I( `6 h//   标准标注的增加公差对话框
gcbz: dialog{
$ O0 k" j; F2 w' S2 h  r label="增加公差";
2 B" f8 K, |9 S5 |+ ^1 k       :column{
   :edit_box{label ="尺寸值(&V)："; key ="dim_vl";}
9 F* b4 n6 J$ Q3 S+ Y; W0 S0 ^5 ~   :edit_box{label ="上偏差(&U)："; key ="dim_up";}
   :edit_box{label ="下偏差(&D)："; key  ="dim_do";}
   :edit_box{label ="公差高(&H)："; key  ="dim_hi";}
; r5 z6 b; ], Q0 {- a/ I3 ~! v   :spacer {}
   :radio_row{label="公差生成方法";
    :radio_button {label="方法一";key="aaa";}
1 O* R1 B( J/ L8 J    :radio_button {label="方法二";key="bbb";}
   }
+ L: t4 H" H( a$ C9 J! {  }
ok_cancel;
}

pointeray

蠻不錯的程序,
感謝樓主的分享!!!

0707007

这程序有问题吧，选标拄 后对话框不出来，版主该好好的研究下