公差标注的二次开发

gzhstar · 发表于 2008-10-22 14:12:15

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

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

x

;; GCBZ.LSP
;; 版权所有 (C) 2001-2003  高正洪
;;
;; 本软件免费可供进行任何用途需求的拷贝、修改及发行, 但请遵循下述原则:
;;
;; 1)  上列的版权通告必须出现在每一份拷贝里。
;; 2)  相关的说明文档也必须载有版权通告及本项许可通告。
;;
;; 本软件仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊
;; 用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认。
;;
;;
;; http://
;;
;; e-mail:
;;
;;;
;;;  名称：增加公差程序
;;;  执行命令：gc
;;;
(DEFUN C:gc(/ ob dim_sel post s to_vl result tgc)
(SETVAR "CMDECHO" 0)
(while (/= (cdr (assoc 0 (setq ob (entget (nth 0
   (setq dim_sel (entsel "选择标注尺寸:"))))))) "DIMENSION")
(princ "\n 尺寸线没有选到！请重新选择: "))
(if (< (setq dcl_id (load_dialog "gcbz.dcl")) 0) (exit));打开对话框
(if (not (new_dialog "gcbz" dcl_id)) (exit))
(setq post (assoc 1 ob))
(setq s (cdr post))
(if (= s "") (setq to_vl "<>")
(setq to_vl (substr s 1 (vl-string-search "{" s))));读取尺寸值
(set_tile "dim_vl" to_vl)
(if (= to_up nil) (setq to_up "0"));提取上公差
(set_tile "dim_up" to_up)
(if (= to_dow nil) (setq to_dow "0"));提取下公差
(set_tile "dim_do" to_dow)
(if (= to_hi nil) (setq to_hi "0.6"));提取公差高
(set_tile "dim_hi" to_hi)
(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);定光标
(action_tile "dim_vl" "(setq to_vl $value)")
(action_tile "dim_up" "(setq to_up $value)")
(action_tile "dim_do" "(setq to_dow  $value)")
(action_tile "dim_hi" "(setq to_hi  $value)")
(action_tile "aaa" "(setq way 1)")
(action_tile "bbb" "(setq way 2)")
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(setq result (start_dialog))
(if (= 1 result)
(progn
   (setq dim_tp (atof to_up))
   (setq dim_tm (- 0 (atof to_dow)))
   (setq tgc to_vl)
   (if (= way 1)
  (progn;方法一
      (setq dim_tol 1)
      (setq dim_tfac (atof to_hi))
      (if (= dim_tp dim_tm) (setq dim_tfac 1))
      (setq dim_tolj 0)
   (setq tgc (cons 1 tgc))
      (setq ob (subst tgc post ob))
      (entmod ob)
      (command "dimoverride" "dimtp" dim_tp "dimtm" dim_tm "dimtol" dim_tol
                  "dimtfac" dim_tfac "dimtolj" dim_tolj "" dim_sel "")
  )
  (progn;方法二
   (if (= dim_tp dim_tm)
(setq tgc (strcat tgc "{\\H1x;%%P" to_up "}"))
(progn
         (if (> dim_tp 0) (setq sc (strcat "+" to_up)) (setq sc to_up))
      (if (= dim_tp 0) (setq sc " 0"))
   (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 ";}"))
)
   )
      (setq tgc (cons 1 tgc))
   (setq ob (subst tgc post ob))
      (entmod ob)
  )
   )
)
)
)

// gcbz.DCL
// 版权所有 (C) 2001-2003  高正洪
//
// 本软件免费可供进行任何用途需求的拷贝、修改及发行, 但请遵循下述原则:
//
// 1)  上列的版权通告必须出现在每一份拷贝里。
// 2)  相关的说明文档也必须载有版权通告及本项许可通告。
//
// 本软件仅提供作为应用上的参考, 而未声明或隐含任何保证; 对于任何特殊
// 用途之适应性, 以及商业销售所隐含作出的保证, 在此一概予以否认。
//
// http://
//
// e-mail:
//
// 标准标注的增加公差对话框
gcbz: dialog{
label="增加公差";
   :column{
:edit_box{label ="尺寸值(&V)："; key ="dim_vl";}
:edit_box{label ="上偏差(&U)："; key ="dim_up";}
:edit_box{label ="下偏差(&D)："; key  ="dim_do";}
:edit_box{label ="公差高(&H)："; key  ="dim_hi";}
:spacer {}
:radio_row{label="公差生成方法";
:radio_button {label="方法一";key="aaa";}
:radio_button {label="方法二";key="bbb";}
}
  }
ok_cancel;
}

0707007 · 发表于 2009-4-21 13:10:27

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

pointeray · 发表于 2008-10-22 17:57:27

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

		自动登录	找回密码
密码			注册

通知

[原创] 公差标注的二次开发

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

浏览过的版块