[求助]数字递增 - 编程申请 - AutoCAD论坛 - 明经CAD社区 - 第2页

xyp1964 发表于 2004-10-16 10:16:00

4楼程序修改：

;;;2004.10.16修改-- <A href="mailto:XYP@bsedi.com" target="_blank" >XYP@bsedi.com</A> ;;;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) )

无聊者 发表于 2004-10-17 12:04:00

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

wedg 发表于 2004-10-17 19:34:00

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

xyp1964 发表于 2004-10-24 21:17:00

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

修改： (COMMAND "style" "编号" "simhei.ttf" "0" "0.7" "0" "n" "n")为

(COMMAND "style" "编号" "hzroms,fhz" "500" "0.7" "0" "" "" "")

注：没有hzroms、fhz两种字型，未经测试！

wedg 发表于 2004-10-25 19:14:00

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

wedg 发表于 2004-10-25 19:27:00

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

ruirui999 发表于 2011-3-20 15:21:25

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

自贡黄明儒 发表于 2011-3-20 19:15:04

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

xiaxiang 发表于 2011-3-25 22:49:02

本帖最后由 xiaxiang 于 2011-3-25 23:01 编辑

自贡黄明儒发表于 2011-3-20 19:15 http://bbs.mjtd.com/static/image/common/back.gif
文字递增（包括数字)
(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)
         )
)
)

zhengchuan 发表于 2011-7-2 13:27:17

本帖最后由 zhengchuan 于 2011-7-2 13:29 编辑

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

命令是什么啊？

页: 1 [2] 3 4

明经CAD社区's Archiver