设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3495|回复: 21

[源码] 序号标注-----------------源码

[复制链接]

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-3-13 13:34:05 | 显示全部楼层 |阅读模式

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

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

x
  1. ;;*DOC* *HHBH* *HHHZ* *HHQZ* 全局变量
  2. (defun C:HHXH (/ CMD1 PLI1 RETURN#)
  3.   ;; 错误处理
  4.   (defun *error* (msg)
  5.     (vl-bt)
  6.     (if        *DOC*
  7.       (_EndUndo *DOC*)
  8.     )
  9.     (while (not (equal (getvar "cmdnames") "")) (command nil))
  10.     (if pli1 (setvar "plinewid" pli1))
  11.     (if cmd1 (setvar "cmdecho" cmd1))
  12.     (princ "\n 出错啦!")
  13.     (princ)
  14.   )
  15.   ;; 设置对话框
  16.   (defun setdata ()
  17.     (if        *HHqz*
  18.       (Set_tile "HHqz" *HHqz*)
  19.     )
  20.     (if        *HHbh*
  21.       (Set_tile "HHbh" *HHbh*)
  22.     )
  23.     (if        *HHhz*
  24.       (Set_tile "HHhz" *HHhz*)
  25.     )
  26.   )
  27.   ;; 取得对话框数据
  28.   (defun getdata ()
  29.     (setq *HHqz* (get_tile "HHqz"))
  30.     (setq *HHbh* (get_tile "HHbh"))
  31.     (setq *HHhz* (get_tile "HHhz"))
  32.   )
  33.   ;; 对话框
  34.   (defun Dialog        (/ DCLID FN FNAME LIN)
  35.     (setq fname (vl-filename-mktemp nil nil ".dcl"))
  36.     (setq fn (open fname "w"))
  37.     (write-line
  38.       "HHXHSC : dialog {label = \"自贡运机集团 序号(黄明儒HHXH)\";"
  39.       fn
  40.     )
  41.     (write-line "        : boxed_column {           " fn)
  42.     (write-line
  43.       "          : edit_box {label = \"前    缀(&Q)\"; key = \"HHqz\"; mnemonic = \"Q\";edit_width=9;}"
  44.       fn
  45.     )
  46.     (write-line
  47.       "          : edit_box {label = \"起始编号(&B)\"; key = \"HHbh\"; mnemonic = \"B\"; edit_width=9;value=\"01\";} "
  48.       fn
  49.     )
  50.     (write-line
  51.       "          : edit_box {label = \"后    缀(&H)\"; key = \"HHhz\"; mnemonic = \"H\";edit_width=9;}"
  52.       fn
  53.     )
  54.     (write-line "        }" fn)
  55.     (write-line "        : row{" fn)
  56.     (write-line
  57.       "          : button {label = \"取----消(&C)\";key = \"but_Cancel\";is_cancel=true;}"
  58.       fn
  59.     )
  60.     (write-line
  61.       "          : button {label = \"球形序号(&E)\";mnemonic = \"E\";key = \"but_o\";}"
  62.       fn
  63.     )
  64.     (write-line
  65.       "          : button {label = \"常规序号(&O)\";key = \"but_OK\";is_default=true;}"
  66.       fn
  67.     )
  68.     (write-line "       }" fn)
  69.     (write-line "    }" fn)
  70.     (close fn)
  71.     (setq fn (open fname "r"))
  72.     (setq dclid (load_dialog fname))
  73.     (while (or (eq (substr (setq lin (vl-string-right-trim
  74.                                        "\" fn)"
  75.                                        (vl-string-left-trim
  76.                                          "(write-line \""
  77.                                          (read-line fn)
  78.                                        )
  79.                                      )
  80.                            )
  81.                            1
  82.                            2
  83.                    )
  84.                    "//"
  85.                )
  86.                (eq (substr lin 1 (vl-string-search " " lin)) "")
  87.                (not (eq        (substr lin (+ (vl-string-search " " lin) 1) 9)
  88.                         " : dialog"
  89.                     )
  90.                )
  91.            )
  92.     )
  93.     (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
  94.     (setdata)
  95.     (action_tile "but_o" "(getdata)(done_dialog 1)")
  96.     (action_tile "but_OK" "(getdata)(done_dialog 2)")
  97.     (setq return# (start_dialog))
  98.     (unload_dialog dclid)
  99.     (close fn)
  100.     (vl-file-delete fname)
  101.   )

  102.   ;;主程序
  103.   (Dialog)
  104.   (or *DOC*
  105.       (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))
  106.   )
  107.   (_StartUndo *DOC*)                                  ;编组开始
  108.   (HH:ayOSMode nil)                                  ;关闭捕捉
  109.   ;;(setq cmd1 (getvar "cmdecho"))
  110.   (setq pli1 (getvar "plinewid"))
  111.   (setvar "plinewid" 0)
  112.   (setvar "cmdecho" 0)
  113.   (cond        ((= return# 1)
  114.          (VL-CATCH-ALL-APPLY 'HH::XHSCe nil)
  115.         )
  116.         ((= return# 2)
  117.          (VL-CATCH-ALL-APPLY 'HH::XHSCo nil)
  118.         )
  119.   )
  120.   (setvar "plinewid" pli1)
  121.   ;;(setvar "cmdecho" cmd1)
  122.   (HH:ayOSMode T)                                  ;开户捕捉
  123.   (_EndUndo *DOC*)                                  ;编组结束
  124.   (gc)
  125.   (princ "\n 自贡运机集团黄明儒温馨提示 序号生成:HHXH")
  126.   (princ)
  127. )
序号标注简单繁琐,差不多绘图员都用得着。象PCCAD的序号标注就不错,但如果你没有装PCCAD,打开就看不到了,不通用。
[请先听我吹]
本程序界面简洁,如图。
采用了(grread T 8)生成序号个数,但基本上看不到闪烁现象。
本程序用我在明经混了几十年的功力写成,给大家瞬间打通任督促二肪
这是我采用了一门独门秘籍,这项技术,你在《明经》和《晓东》两大论坛上“几乎”看不到,因为它穿着黄帝的新衣。
靠着敏锐的嗅觉,我掀开了这新衣。同时,靠着这嗅觉,打算今年申报10个结构新型专利,力争成功5个,
完成技术部专利申报总量的1/2以上。这意味着接下来的时间里,要少发贴,多写材料。
当猪肉价格5元一斤的时候,我们公司规定,一个专利成果,奖励3K。看看,是不是我快发财了,先祝贺我吧。
因感动于highflybird代码开源,现将《序号标注》源码公之于众。
高手就别看了

1.gif
序号生成界面.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2014-3-13 13:34:53 | 显示全部楼层
本帖最后由 /db_自贡黄明儒_ 于 2014-9-5 11:13 编辑

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

序号生成.lsp

16.15 KB, 阅读权限: 70, 下载次数: 22, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 1259个

财富等级: 财源广进

发表于 2014-3-13 13:38:09 | 显示全部楼层
抢个板凳, 很有创意!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 1740个

财富等级: 堆金积玉

发表于 2014-3-13 16:30:49 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3198个

财富等级: 富可敌国

发表于 2014-3-13 20:20:48 | 显示全部楼层
谢谢黄大师分享源码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3646个

财富等级: 富可敌国

发表于 2014-3-13 22:27:15 | 显示全部楼层
很不错,不过源码不全,缺少_STARTUNDO,HH:AYOSMODE定义。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2014-4-13 21:37:08 | 显示全部楼层
楼主传个完整版的吧,HH::XHSCE,_STARTUNDO,HH:AYOSMODE,HH::XHSCo,endundo没有
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 278个

财富等级: 日进斗金

发表于 2014-4-22 19:51:32 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-6-17 16:04:33 | 显示全部楼层
大师吹的挺好看,哈哈!

点评

吹,比实干重要,呵呵!  发表于 2014-6-18 08:04
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-6-18 15:32:13 | 显示全部楼层
06运行出错,楼主能不能看看咋回事?

点评

05 12中调试正常,希望你能发现问题,谢谢  发表于 2014-6-18 15:53
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 615个

财富等级: 财运亨通

发表于 2015-5-3 16:16:07 | 显示全部楼层
学习中....
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 117个

财富等级: 日进斗金

发表于 2015-5-7 17:50:54 | 显示全部楼层
;P;P学习看看!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2015-5-17 07:34:01 | 显示全部楼层
学习中....
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 314个

财富等级: 日进斗金

发表于 2015-6-5 11:00:43 | 显示全部楼层
权限太高,下载不了啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 570个

财富等级: 财运亨通

发表于 2016-11-26 22:44:38 | 显示全部楼层
啥也不说了,感谢楼主分享哇!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2019-12-13 00:38 , Processed in 0.183758 second(s), 62 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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