明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: wedg

[求助]数字递增

  [复制链接]
发表于 2004-10-16 10:16 | 显示全部楼层
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)
)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2004-10-17 12:04 | 显示全部楼层
怎么会呢?我在2002里面用得好好的,一点错都没有,如果不行的话可以用楼上的这位兄弟的,也可以用我这个命令是bh,.

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2004-10-17 19:34 | 显示全部楼层
谢谢楼上的两位兄弟!请问xyp1964,能不能不使用你所给的字体?换成hzroms,大字体fhz?
发表于 2004-10-24 21:17 | 显示全部楼层
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两种字型,未经测试!
 楼主| 发表于 2004-10-25 19:14 | 显示全部楼层
好了,可以用了!不过,我希望能自定义字高,而不是设置好了的字高!
 楼主| 发表于 2004-10-25 19:27 | 显示全部楼层
请问楼上的兄弟,这个程序你测试过了吗?
发表于 2011-3-20 15:21 | 显示全部楼层
不错,我改了一下,自己使用了。
发表于 2011-3-20 19:15 | 显示全部楼层
文字递增(包括数字)
(lt:match)此函数为版主Caoyin程序,可以在本论坛上找到。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2011-3-25 22:49 | 显示全部楼层
本帖最后由 xiaxiang 于 2011-3-25 23:01 编辑
自贡黄明儒 发表于 2011-3-20 19:15
文字递增(包括数字)
(lt:match)此函数为版主Caoyin程序,可以在本论坛上找到。


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


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


发表于 2011-7-2 13:27 | 显示全部楼层
本帖最后由 zhengchuan 于 2011-7-2 13:29 编辑
文字递增(包括数字)
(lt:match)此函数为版主Caoyin程序,可以在本论坛上找到。

命令是什么啊?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 17:50 , Processed in 0.170494 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表