dcl新手继续发学习作品（明镜亦非台）-递增编号

yanshengjiang

               递增编号的程序网上到处都是。本着多我一个也不多的思想，我把我写的dcl版的也贴来。比我新的新手可以看看。



; ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^  
;数字递增编号对话框版  2011年9月6日 21:00:20  by yanshengjiang
;对于打印A4图纸时候进行编号，效果还行
; ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^  
(defun c:bh()
  (setvar "cmdecho" 0)
     (vl-catch-all-apply
    '(lambda();出错处理
  (bh-dcl_te)
(setq qd(read qd)
       zl(read zl)
       )
(setq sxh1 (strcat (vl-princ-to-string qz) (vl-princ-to-string qd)) p1 (getpoint "\n请指定插入点: "))
  (while (/= p1 nil)
    (command "text" "m" p1 h 0 sxh1)
    (setq qd (+ qd zl)
   sxh1 (strcat  (vl-princ-to-string qz)  (vl-princ-to-string qd))
   p1 (getpoint "\n请指定下一插入点: "))
    )
(vl-file-delete Dcl_File)
(unload_dialog dcl_id)
       ));出错处理
  (setvar "cmdecho" 1)
  (princ)
)
(defun bh-dcl_te()
  (setq dcl_id (load_dialog (setq Dcl_File (bh-dclfottext))))
  (new_dialog "text2" dcl_id)
  (set_tile "qz" "")
  (set_tile "qd" "1")
  (set_tile "zl" "1")
  (set_tile "h" "10")
  (action_tile "accept" "(bh-ok_te)(done_dialog 1)")
  (start_dialog)
)
(defun bh-ok_te()
  (setq qz  (get_tile "qz"))
  (setq qd (get_tile "qd"))
  (setq zl (get_tile "zl"))
  (setq h (get_tile "h"))
)
;写dcl
(defun bh-dclfottext()
(setq Dcl_File (vl-filename-mktemp nil nil))
  (setq lujin(vl-filename-directory Dcl_File))
  (setq Dcl_File (strcat lujin "\\递增编号.dcl"))
  (setq file (open Dcl_File "w"))
  (write-line "              text2:dialog{" file)
  (write-line "              label= \"打印递增编号\";" file)
  (write-line "              :edit_box{label=\"前    缀\";key=\"qz\";edit_width=10;" file)
  (write-line "              }" file)
  (write-line "              :edit_box{label=\"起始点号\";key=\"qd\";edit_width=10;" file)
  (write-line "              }" file)
  (write-line "              :edit_box{label= \"增    量\"; key= \"zl\";edit_width=10;}"  file)
  (write-line "              :edit_box{label= \"高    度\"; key=\"h\";edit_width=10;"  file)
  (write-line "              }" file)
  (write-line "                ok_cancel;" file)
  (write-line "              }" file)
   (close file)
  Dcl_File
  )

yangchao2005090

yanshengjiang 发表于 2020-6-14 18:48
你意思把dcl写到lsp里面吗  这个比较耗时且麻烦呢  建议就用vlx打包比较好。

是的，两个一起不好用，打包好的不好改命令

yanshengjiang

yangchao2005090 发表于 2020-6-14 07:01
楼主这个可否帮忙合并成一个lsp？

你意思把dcl写到lsp里面吗  这个比较耗时且麻烦呢  建议就用vlx打包比较好。

emch

非常感谢楼主提供的宝贵资料，让本人受益良多，希望楼主今后能有更多更好的资料为大家展示，论坛有你更精彩 ！

yoyoho

感谢楼主分享,学习了!

zbwei120

编号递增倒是弄出来了，但没试过对话框，正好学习一下。支持楼主。

czb203

这家伙很厉害啊

xhq1954425

下来学习！这家伙是挺厉害！

hhh454

楼主好人，正在学习，很有用

crazylsp

希望楼主小帅哥增加文字前中后都有数字，且能按需要选择其之一递增，是修改不是重新写的这种,盼望中

yanshengjiang

crazylsp 发表于 2011-9-22 18:27
希望楼主小帅哥增加文字前中后都有数字，且能按需要选择其之一递增，是修改不是重新写的这种,盼望中

源码在上面 呵呵 哥子你自己搞定哈。。。你这个功能我4年来没用过一次。呵呵

你都金牌会员了。我相信你哦！

crazylsp

呵呵小弟很有才也,继续加油

longer1000

感谢楼主分享,学习了!