本帖最后由 xiaxiang 于 2011-3-25 23:01 编辑
自贡黄明儒 发表于 2011-3-20 19:15 
文字递增(包括数字)
(lt:match)此函数为版主Caoyin程序,可以在本论坛上找到。
还请贴出(lt:match)函数为谢。
已找到

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