自动编号

yanshengjiang

; ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^  
;数字递增编号对话框版  2011年9月6日 21:00:20  by yanshengjiang
;对于打印A4图纸时候进行编号，效果还行
; ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^ ^_^  
(defun c:bh()
     (vl-catch-all-apply
    '(lambda();出错处理
         (setvar "cmdecho" 0)
       (command "undo" "be")
  (bh-dcl_te_bh)
(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请指定下一插入点: "))
     )
       (command "undo" "e")
(vl-file-delete Dcl_File)
(unload_dialog dcl_id)
  ));出错处理
  (princ)
)

(defun bh-dcl_te_bh()
  (setq dcl_id (load_dialog (setq Dcl_File (bh-dclfottext_bh))))
  (new_dialog "text2" dcl_id)
  (set_tile "qz" "")
  (set_tile "qd" "1")
  (mode_tile "qd" 2)
  (set_tile "zl" "1")
  (set_tile "h" "10")
  (action_tile "accept" "(bh-ok_te_bh)(done_dialog 1)")
  (start_dialog)
)

(defun bh-ok_te_bh()
  (setq qz  (get_tile "qz"))
  (setq qd (get_tile "qd"))
  (setq zl (get_tile "zl"))
  (setq h (get_tile "h"))
)
;写dcl
(defun bh-dclfottext_bh()
(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
  )

huisguiji

来个介绍图片哈，，，，，，，，，，

sjl_fyl

谢谢分享