[求助]数字递增

xyp1964

4楼程序修改： ;;;2004.10.16修改-- XYP@bsedi.com
;;;dzbh.lsp 递增编号
(princ "\n***欢迎使用自动编号程序***命令：BH ~~~~＾ω＾~~~~小叶")
(defun c:DZBH (/ i pt i hm )
(setq NO1 (ureal 1 "" "\n\t起始数值" no1))
(setq i (- no1 1))
(setq pt (getpoint "\n\t位置点 : "))
(while pt
(mkla"编号"1);建编号层
(setq i (1+ i))
(setq hm (rtos i 2 0))
(command "text" "j" "mc" pt 5 0 hm);文本内容
(COMMAND "style" "编号" "simhei.ttf" "0" "0.8" "0" "n" "n");设字体
(setq pt (getpoint "\n\t位置点 : "))
)
)
(Defun MKLA (a b)
(If (= (Tblsearch "layer" a) nil)
(Command "layer" "m" a "c" b a "")
(Command "layer" "t" a "s" a "c" b a "")
)
)
(defun ureal (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp inp def)
)

无聊者

怎么会呢?我在2002里面用得好好的,一点错都没有,如果不行的话可以用楼上的这位兄弟的,也可以用我这个命令是bh,.

wedg

谢谢楼上的两位兄弟！请问xyp1964，能不能不使用你所给的字体？换成hzroms,大字体fhz？

xyp1964

wedg发表于2004-10-17 19:34:00谢谢楼上的两位兄弟！请问xyp1964，能不能不使用你所给的字体？换成hzroms,大字体fhz？

修改：
(COMMAND "style" "编号" "simhei.ttf" "0" "0.7" "0" "n" "n")为 (COMMAND "style" "编号" "hzroms,fhz" "500" "0.7" "0" "" "" "") 注：没有hzroms、fhz两种字型，未经测试！

wedg

好了，可以用了！不过，我希望能自定义字高，而不是设置好了的字高！

wedg

请问楼上的兄弟，这个程序你测试过了吗？

ruirui999

不错，我改了一下，自己使用了。

自贡黄明儒

文字递增（包括数字)
(lt:match)此函数为版主Caoyin程序，可以在本论坛上找到。

xiaxiang

自贡黄明儒 发表于 2011-3-20 19:15
文字递增（包括数字)
(lt:match)此函数为版主Caoyin程序，可以在本论坛上找到。

还请贴出(lt:match)函数为谢。
已找到

2. 
   
3. 
   
4. (defun lt:match (pt col ssparm fun / d_brush pickbox p2u len x y msg pt1 ss1 pt2 co i e ss)
   
5.   (defun d_brush (col x y len / a b c)
   
6.     (grvecs (list col (list (- x (setq A (* len 1.5))) (- y len))
   
7.                       (list (- x A) (setq B (- y (* len 7.5))))
   
8.                   col (list (- x (setq C (* len 0.5))) y)
   
9.                       (list (- x C) B)
   
10.                   col (list (+ x C) y)
    
11.                       (list (+ x C) B)
    
12.                   col (list (+ x A) (- y len))
    
13.                       (list (+ x A) B)
    
14.                   col (list (- x (setq A (* len 4.5))) B)
    
15.                       (list (+ x A) B)
    
16.                   col (list (- x A) B)
    
17.                       (list (- x (setq C (* len 6.5))) (- y (* len 9)))
    
18.                   col (list (+ x A) B)
    
19.                       (list (+ x C) (setq A (- y (* len 9))))
    
20.                   col (list (- x C) A)
    
21.                       (list (- x C) (setq B (- y (* len 17))))
    
22.                   col (list (+ x C) A)
    
23.                       (list (+ x C) B)
    
24.                   col (list (- x C) (setq A (- y (* len 10))))
    
25.                       (list (+ x C) A)
    
26.                   col (list (- x C) (setq A (- y (* len 11))))
    
27.                       (list (+ x C) A)
    
28.                   col (list (- x C) (setq A (- y (* len 13))))
    
29.                       (list (+ x C) A)
    
30.                   col (list (- x C) (setq A (- y (* len 14))))
    
31.                       (list (+ x C) A)
    
32.                   col (list (- x C) B)
    
33.                       (list (+ x C) B)
    
34.                   col (list (- x C) B)
    
35.                       (list (- x (* len 11)) (setq A (- y (* len 21.5))))
    
36.                   col (list (- x (* len 2)) B)
    
37.                       (list (- x (* len 6.5)) A)
    
38.                   col (list (+ x (* len 2)) B)
    
39.                       (list (- x (* len 2.5)) A)
    
40.                   col (list (+ x C) B)
    
41.                       (list (+ x (* len 2)) A)
    
42.                   col (list (- x (* len 11)) A)
    
43.                       (list (+ x (* len 3)) A)
    
44.             )
    
45.             (list (list 1 0 0 (* len 14))
    
46.                   (list 0 1 0 (* len -4)) '(0 0 1 0) '(0 0 0 1)
    
47.             )
    
48.     )
    
49.   )
    

<br /> <br /> (defun lt:match (pt col ssparm fun / d_brush pickbox p2u len x y msg pt1 ss1 pt2 co i e ss)<br />   (defun d_brush (col x y len / a b c)<br />     (grvecs (list col (list (- x (setq A (* len 1.5))) (- y len))<br />                       (list (- x A) (setq B (- y (* len 7.5))))<br />                   col (list (- x (setq C (* len 0.5))) y)<br />                       (list (- x C) B)<br />                   col (list (+ x C) y)<br />                       (list (+ x C) B)<br />                   col (list (+ x A) (- y len))<br />                       (list (+ x A) B)<br />                   col (list (- x (setq A (* len 4.5))) B)<br />                       (list (+ x A) B)<br />                   col (list (- x A) B)<br />                       (list (- x (setq C (* len 6.5))) (- y (* len 9)))<br />                   col (list (+ x A) B)<br />                       (list (+ x C) (setq A (- y (* len 9))))<br />                   col (list (- x C) A)<br />                       (list (- x C) (setq B (- y (* len 17))))<br />                   col (list (+ x C) A)<br />                       (list (+ x C) B)<br />                   col (list (- x C) (setq A (- y (* len 10))))<br />                       (list (+ x C) A)<br />                   col (list (- x C) (setq A (- y (* len 11))))<br />                       (list (+ x C) A)<br />                   col (list (- x C) (setq A (- y (* len 13))))<br />                       (list (+ x C) A)<br />                   col (list (- x C) (setq A (- y (* len 14))))<br />                       (list (+ x C) A)<br />                   col (list (- x C) B)<br />                       (list (+ x C) B)<br />                   col (list (- x C) B)<br />                       (list (- x (* len 11)) (setq A (- y (* len 21.5))))<br />                   col (list (- x (* len 2)) B)<br />                       (list (- x (* len 6.5)) A)<br />                   col (list (+ x (* len 2)) B)<br />                       (list (- x (* len 2.5)) A)<br />                   col (list (+ x C) B)<br />                       (list (+ x (* len 2)) A)<br />                   col (list (- x (* len 11)) A)<br />                       (list (+ x (* len 3)) A)<br />             )<br />             (list (list 1 0 0 (* len 14))<br />                   (list 0 1 0 (* len -4)) '(0 0 1 0) '(0 0 0 1)<br />             )<br />     )<br />   )<br />

zhengchuan

文字递增（包括数字)
(lt:match)此函数为版主Caoyin程序，可以在本论坛上找到。

命令是什么啊？