序号标注-----------------源码

/db_自贡黄明儒_ · 发表于 2014-3-13 13:34:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

;;*DOC* *HHBH* *HHHZ* *HHQZ* 全局变量
(defun C:HHXH (/ CMD1 PLI1 RETURN#)
;; 错误处理
(defun *error* (msg)
(vl-bt)
(if *DOC*
(_EndUndo *DOC*)
)
(while (not (equal (getvar "cmdnames") "")) (command nil))
(if pli1 (setvar "plinewid" pli1))
(if cmd1 (setvar "cmdecho" cmd1))
(princ "\n 出错啦!")
(princ)
)
;; 设置对话框
(defun setdata ()
(if *HHqz*
(Set_tile "HHqz" *HHqz*)
)
(if *HHbh*
(Set_tile "HHbh" *HHbh*)
)
(if *HHhz*
(Set_tile "HHhz" *HHhz*)
)
)
;; 取得对话框数据
(defun getdata ()
(setq *HHqz* (get_tile "HHqz"))
(setq *HHbh* (get_tile "HHbh"))
(setq *HHhz* (get_tile "HHhz"))
)
;; 对话框
(defun Dialog (/ DCLID FN FNAME LIN)
(setq fname (vl-filename-mktemp nil nil ".dcl"))
(setq fn (open fname "w"))
(write-line
"HHXHSC : dialog {label = \"自贡运机集团序号(黄明儒HHXH)\";"
fn
)
(write-line " : boxed_column { " fn)
(write-line
" : edit_box {label = \"前缀(&Q)\"; key = \"HHqz\"; mnemonic = \"Q\";edit_width=9;}"
fn
)
(write-line
" : edit_box {label = \"起始编号(&B)\"; key = \"HHbh\"; mnemonic = \"B\"; edit_width=9;value=\"01\";} "
fn
)
(write-line
" : edit_box {label = \"后缀(&H)\"; key = \"HHhz\"; mnemonic = \"H\";edit_width=9;}"
fn
)
(write-line " }" fn)
(write-line " : row{" fn)
(write-line
" : button {label = \"取----消(&C)\";key = \"but_Cancel\";is_cancel=true;}"
fn
)
(write-line
" : button {label = \"球形序号(&E)\";mnemonic = \"E\";key = \"but_o\";}"
fn
)
(write-line
" : button {label = \"常规序号(&O)\";key = \"but_OK\";is_default=true;}"
fn
)
(write-line " }" fn)
(write-line " }" fn)
(close fn)
(setq fn (open fname "r"))
(setq dclid (load_dialog fname))
(while (or (eq (substr (setq lin (vl-string-right-trim
"\" fn)"
(vl-string-left-trim
"(write-line \""
(read-line fn)
)
)
)
1
2
)
"//"
)
(eq (substr lin 1 (vl-string-search " " lin)) "")
(not (eq (substr lin (+ (vl-string-search " " lin) 1) 9)
" : dialog"
)
)
)
)
(new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
(setdata)
(action_tile "but_o" "(getdata)(done_dialog 1)")
(action_tile "but_OK" "(getdata)(done_dialog 2)")
(setq return# (start_dialog))
(unload_dialog dclid)
(close fn)
(vl-file-delete fname)
)
;;主程序
(Dialog)
(or *DOC*
(setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))
)
(_StartUndo *DOC*) ;编组开始
(HH:ayOSMode nil) ;关闭捕捉
;;(setq cmd1 (getvar "cmdecho"))
(setq pli1 (getvar "plinewid"))
(setvar "plinewid" 0)
(setvar "cmdecho" 0)
(cond ((= return# 1)
(VL-CATCH-ALL-APPLY 'HH::XHSCe nil)
)
((= return# 2)
(VL-CATCH-ALL-APPLY 'HH::XHSCo nil)
)
)
(setvar "plinewid" pli1)
;;(setvar "cmdecho" cmd1)
(HH:ayOSMode T) ;开户捕捉
(_EndUndo *DOC*) ;编组结束
(gc)
(princ "\n 自贡运机集团黄明儒温馨提示序号生成:HHXH")
(princ)
)

;;*DOC* *HHBH* *HHHZ* *HHQZ* 全局变量 
(defun C:HHXH (/ CMD1 PLI1 RETURN#) 
  ;; 错误处理 
  (defun *error* (msg) 
    (vl-bt) 
    (if        *DOC* 
      (_EndUndo *DOC*) 
    ) 
    (while (not (equal (getvar "cmdnames") "")) (command nil)) 
    (if pli1 (setvar "plinewid" pli1)) 
    (if cmd1 (setvar "cmdecho" cmd1)) 
    (princ "\n 出错啦!") 
    (princ) 
  ) 
  ;; 设置对话框 
  (defun setdata () 
    (if        *HHqz* 
      (Set_tile "HHqz" *HHqz*) 
    ) 
    (if        *HHbh* 
      (Set_tile "HHbh" *HHbh*) 
    ) 
    (if        *HHhz* 
      (Set_tile "HHhz" *HHhz*) 
    ) 
  ) 
  ;; 取得对话框数据 
  (defun getdata () 
    (setq *HHqz* (get_tile "HHqz")) 
    (setq *HHbh* (get_tile "HHbh")) 
    (setq *HHhz* (get_tile "HHhz")) 
  ) 
  ;; 对话框 
  (defun Dialog        (/ DCLID FN FNAME LIN) 
    (setq fname (vl-filename-mktemp nil nil ".dcl")) 
    (setq fn (open fname "w")) 
    (write-line 
      "HHXHSC : dialog {label = \"自贡运机集团 序号(黄明儒HHXH)\";" 
      fn 
    ) 
    (write-line "        : boxed_column {           " fn) 
    (write-line 
      "          : edit_box {label = \"前    缀(&Q)\"; key = \"HHqz\"; mnemonic = \"Q\";edit_width=9;}" 
      fn 
    ) 
    (write-line 
      "          : edit_box {label = \"起始编号(&B)\"; key = \"HHbh\"; mnemonic = \"B\"; edit_width=9;value=\"01\";} " 
      fn 
    ) 
    (write-line 
      "          : edit_box {label = \"后    缀(&H)\"; key = \"HHhz\"; mnemonic = \"H\";edit_width=9;}" 
      fn 
    ) 
    (write-line "        }" fn) 
    (write-line "        : row{" fn) 
    (write-line 
      "          : button {label = \"取----消(&C)\";key = \"but_Cancel\";is_cancel=true;}" 
      fn 
    ) 
    (write-line 
      "          : button {label = \"球形序号(&E)\";mnemonic = \"E\";key = \"but_o\";}" 
      fn 
    ) 
    (write-line 
      "          : button {label = \"常规序号(&O)\";key = \"but_OK\";is_default=true;}" 
      fn 
    ) 
    (write-line "       }" fn) 
    (write-line "    }" fn) 
    (close fn) 
    (setq fn (open fname "r")) 
    (setq dclid (load_dialog fname)) 
    (while (or (eq (substr (setq lin (vl-string-right-trim 
                                       "\" fn)" 
                                       (vl-string-left-trim 
                                         "(write-line \"" 
                                         (read-line fn) 
                                       ) 
                                     ) 
                           ) 
                           1 
                           2 
                   ) 
                   "//" 
               ) 
               (eq (substr lin 1 (vl-string-search " " lin)) "") 
               (not (eq        (substr lin (+ (vl-string-search " " lin) 1) 9) 
                        " : dialog" 
                    ) 
               ) 
           ) 
    ) 
    (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid) 
    (setdata) 
    (action_tile "but_o" "(getdata)(done_dialog 1)") 
    (action_tile "but_OK" "(getdata)(done_dialog 2)") 
    (setq return# (start_dialog)) 
    (unload_dialog dclid) 
    (close fn) 
    (vl-file-delete fname) 
  ) 
 
  ;;主程序 
  (Dialog) 
  (or *DOC* 
      (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object))) 
  ) 
  (_StartUndo *DOC*)                                  ;编组开始 
  (HH:ayOSMode nil)                                  ;关闭捕捉 
  ;;(setq cmd1 (getvar "cmdecho")) 
  (setq pli1 (getvar "plinewid")) 
  (setvar "plinewid" 0) 
  (setvar "cmdecho" 0) 
  (cond        ((= return# 1) 
         (VL-CATCH-ALL-APPLY 'HH::XHSCe nil) 
        ) 
        ((= return# 2) 
         (VL-CATCH-ALL-APPLY 'HH::XHSCo nil) 
        ) 
  ) 
  (setvar "plinewid" pli1) 
  ;;(setvar "cmdecho" cmd1) 
  (HH:ayOSMode T)                                  ;开户捕捉 
  (_EndUndo *DOC*)                                  ;编组结束 
  (gc) 
  (princ "\n 自贡运机集团黄明儒温馨提示 序号生成:HHXH") 
  (princ) 
)

序号标注简单繁琐，差不多绘图员都用得着。象PCCAD的序号标注就不错，但如果你没有装PCCAD,打开就看不到了，不通用。
[请先听我吹]
本程序界面简洁，如图。
采用了(grread T 8)生成序号个数，但基本上看不到闪烁现象。
本程序用我在明经混了几十年的功力写成，给大家瞬间打通任督促二肪
这是我采用了一门独门秘籍，这项技术,你在《明经》和《晓东》两大论坛上“几乎”看不到，因为它穿着黄帝的新衣。
靠着敏锐的嗅觉，我掀开了这新衣。同时，靠着这嗅觉,打算今年申报10个结构新型专利，力争成功5个，
完成技术部专利申报总量的1/2以上。这意味着接下来的时间里，要少发贴，多写材料。
当猪肉价格5元一斤的时候，我们公司规定，一个专利成果，奖励3K。看看,是不是我快发财了，先祝贺我吧。
因感动于highflybird代码开源，现将《序号标注》源码公之于众。
高手就别看了

/db_自贡黄明儒_ · 发表于 2014-3-13 13:34:53

本帖最后由 /db_自贡黄明儒_ 于 2014-9-5 11:13 编辑

请先欣赏105水平大转弯管状带式输送机。虽然我不能确定是否世界第一，至少国内是第一条这么大的水平转弯角度，而且一次试车成功。
前年设计完成，去年开始运行。

st788796 · 发表于 2014-3-13 13:38:09

抢个板凳, 很有创意!

炫翔 · 发表于 2014-3-13 16:30:49

{:soso_e179:}

lucas3 · 发表于 2014-3-13 20:20:48

谢谢黄大师分享源码

ycao · 发表于 2014-3-13 22:27:15

很不错，不过源码不全，缺少_STARTUNDO，HH:AYOSMODE定义。

jwj0805 · 发表于 2014-4-13 21:37:08

楼主传个完整版的吧，HH::XHSCE，_STARTUNDO，HH:AYOSMODE，HH::XHSCo，endundo没有

bzhjl · 发表于 2014-4-22 19:51:32

{:soso_e179:}

modman · 发表于 2014-6-17 16:04:33

大师吹的挺好看，哈哈！

myfrankie · 发表于 2014-6-18 15:32:13

06运行出错，楼主能不能看看咋回事？

whdong76 · 发表于 2015-5-3 16:16:07

学习中....

liuchong1988 · 发表于 2015-5-7 17:50:54

;P;P学习看看！！！

xiaotao666 · 发表于 2015-5-17 07:34:01

学习中....

kx820506 · 发表于 2015-6-5 11:00:43

权限太高，下载不了啊

ngc · 发表于 2016-11-26 22:44:38

啥也不说了，感谢楼主分享哇！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 序号标注-----------------源码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评