[LISP程序]：俺编啦个自动顺序编号的LISP小程序，随便看啊

jsrlb

　　初学LISP，俺是做岩土工程的，有时一份报告的图纸有几百张，给图纸加编号麻烦死啦，原来都是一个一个地复制了再改，痛苦啊。现在俺试着自己编啦个按顺序编号的小程序，省啦俺不少事情，感觉挺好的，拿出来献丑啊。


(defun c:SXH (/ oce1 qz n1 zn h1 sxh1 p1)

  (setq oce1 (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")

  (setq qz (getstring "\n请输入前缀相同的部分: "))
  (if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))
    (setq n1 1)
  )
  (if (not (setq zn (getint "\n请输入增加或减少的序数 <+1>: ")))
    (setq zn 1)
  )
  (if (not (setq h1 (getreal "\n请指定文字高度 <3>: ")))
    (setq h1 3)
  )
  (setq
    sxh1 (strcat qz (itoa n1))
    p1         (getpoint "\n请指定插入点: ")
  )
  (while (/= p1 nil)
    (command "text" "m" p1 h1 0 sxh1)
    (setq
      n1   (+ n1 zn)
      sxh1 (strcat qz (itoa n1))
      p1   (getpoint "\n请指定下一插入点: ")
    )
  )
  (setvar "cmdecho" oce1)
  (princ)
)

xyp1964

修改如下不知可好：
[php]
(load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在每个程序内增加(load"xyp_lib")
2.在acad.lsp中增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;自动顺序编号
(defun c:test (/ sxh1 p1)
  (cmdla0)
  (setvar "cmdecho" 0)
  (command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")
  (setq        qz   (ustr 1 "\n请输入前缀相同的部分" qz nil)
        n1   (uint 1 "" "\n请输入起始顺序号" n1)
        zn   (uint 1 "" "\n请输入增加或减少的序数" zn)
        h1   (ureal 1 "" "\n请指定文字高度" h1)
        sxh1 (strcat qz (itoa n1))
  )
  (while (setq p1 (getpoint "\n请指定插入点<退出> : "))
    (command "text" "m" p1 h1 0 sxh1)
    (setq n1   (+ n1 zn)
          sxh1 (strcat qz (itoa n1))
    )
  )
  (cmdla1)
)[/php]

啵浪鼓

好是好，只是每次要加载斑竹的通用函数，有些受制且不能再赋值

xyp1964

最初由 啵浪鼓 发布
[B]好是好，只是每次要加载斑竹的通用函数，有些受制且不能再赋值 [/B]

估计对xyp_lib函数还是不太了解，只要在acad.lsp中添加(load"xyp_lib")，以后就不用再加载了。
偶的所有程序风格基本“照本宣科”，不过就那么“几斧”，程序简洁实用，呵呵……

jsrlb

　　谢谢斑竹指点，俺是初学者，希望高手多多给俺帮助。

xyp1964

SXBH (顺序编号)

jinsong-liao

斑竹何不将xyp_lib函数源代码公开，让我等学习学习？

marcoyuwen

每次都输入前缀相同的部分，起始顺序号，文字高度，有点烦琐。根据我个人意见，图纸编号仅为流水号，且连续。我也写过一个类似的程序，详情如下：选择一个已写好的基准文本（图号），然后输入运算方式，如+1，然后点取起始点，再点取新点，即生成新图号。与COPY命名操作方法近似，点击鼠标右键或回车键退出。

tc405003

能否有记忆功能，下次再输入的时候会自动增加

xyp1964

当然有记忆功能，试试就知道了。

shisj

我觉得也不错，谢谢了

scorpionc

楼主还在吗？有点事请教你！

sj71710

先谢楼主，请教一个弱弱的问题，不知字体能否改改，因为各人有各人习惯。

xyz518mm

這樣的程序不錯喔
不知道效果好不好呢

jcmtxgt

程序不错,不过可否再改进一点,就是直接框选要编号的图形,选择了开始号之后,就会自动编号的呢?而且