dcl新手继续发学习作品（明镜亦非台）-递增编号
递增编号的程序网上到处都是。本着多我一个也不多的思想，我把我写的dcl版的也贴来。比我新的新手可以看看。; ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^
;数字递增编号对话框版2011年9月6日 21:00:20by 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
)
yanshengjiang 发表于 2020-6-14 18:48
你意思把dcl写到lsp里面吗这个比较耗时且麻烦呢建议就用vlx打包比较好。
是的，两个一起不好用，打包好的不好改命令 yangchao2005090 发表于 2020-6-14 07:01
楼主这个可否帮忙合并成一个lsp？
你意思把dcl写到lsp里面吗这个比较耗时且麻烦呢建议就用vlx打包比较好。 非常感谢楼主提供的宝贵资料，让本人受益良多，希望楼主今后能有更多更好的资料为大家展示，论坛有你更精彩 ！ 感谢楼主分享,学习了! 编号递增倒是弄出来了，但没试过对话框，正好学习一下。支持楼主。 这家伙很厉害啊
下来学习！这家伙是挺厉害！ 楼主好人，正在学习，很有用 本帖最后由 crazylsp 于 2011-9-22 18:30 编辑
希望楼主小帅哥增加文字前中后都有数字，且能按需要选择其之一递增，是修改不是重新写的这种,盼望中 crazylsp 发表于 2011-9-22 18:27 static/image/common/back.gif
希望楼主小帅哥增加文字前中后都有数字，且能按需要选择其之一递增，是修改不是重新写的这种,盼望中
源码在上面 呵呵 哥子你自己搞定哈。。。你这个功能我4年来没用过一次。呵呵
你都金牌会员了。我相信你哦！ 本帖最后由 crazylsp 于 2011-9-23 17:12 编辑
呵呵小弟很有才也,继续加油 感谢楼主分享,学习了!