[下载 LISP自动编号-BH

frank1980

<P>加载LISP就可以用，启用命令是BH.<br>!好用就顶下！</P><br>

[此贴子已经被作者于2005-8-21 19:56:58编辑过]

spring168

不错,程序比较精简,不过不建议指定字体<BR>(command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")<BR>这样繁体的朋友就没有办法用

前生

<p>(defun c:bh (/ oce1 qz n1 zn h1 sxh1 p1)</p><p>(setq oce1 (getvar "cmdecho"))<br/>(setvar "cmdecho" 0)<br/>(command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")</p><p>(setq qz (getstring "\n请输入前缀相同的部分: "))<br/>(if (not (setq n1 (getint "\n请输入起始顺序号 &lt;1&gt;: ")))<br/>(setq n1 1)<br/>)<br/>(if (not (setq zn (getint "\n请输入增加或减少的序数 &lt;+1&gt;: ")))<br/>(setq zn 1)<br/>)<br/>(if (not (setq h1 (getreal "\n请指定文字高度 &lt;2.5&gt;: ")))<br/>(setq h1 2.5)<br/>)<br/>(setq<br/>sxh1 (strcat qz (itoa n1))<br/>p1 (getpoint "\n请指定插入点: ")<br/>)<br/>(while (/= p1 nil)<br/>(command "text" "m" p1 h1 0 sxh1)<br/>(setq<br/>n1 (+ n1 zn)<br/>sxh1 (strcat qz (itoa n1))<br/>p1 (getpoint "\n请指定下一插入点: ")<br/>)<br/>)<br/>(setvar "cmdecho" oce1)<br/>(princ)<br/>)</p>