[求助]：求一个小程序：写文本自动增加序号的

zhuiling · 发表于 2007-4-22 11:07:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想要一个写文本的程序，能够自动增加序号，比如 GB1 GB2 GB3 .........，就是说，第一次编辑写了GB1 文本，下次启动程序无需再输入GB2 ，而由程序自动将数值加1,那个大侠帮帮忙。

redbird · 发表于 2007-4-28 07:14:52

我也想要哪

aichong · 发表于 2007-4-28 08:03:06

http://www.xdcad.net/forum/showt ... 3211467#post3211467

TLHMQH · 发表于 2007-4-28 21:21:42

命令：QZ

  (defun c:QZ (/ oce1 qz n1 zn h1 xz sxh1 p1)
  (setq oce1 (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "-style" "BZ" "宋体" 0 1 0 "n" "n")
  (setq qz (getstring "\n请输入前缀<N>: "))
  (if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))
  (setq n1 1)
  )
  (if (not (setq zn (getint "\n请输入增加或减少的序数 <+1>: ")))
  (setq zn 1)
  )
  (if (not (setq h1 (getreal "\n请指定文字高度 <25>: ")))
  (setq h1 25)
  )
  (if (not (setq xz (getreal "\n请指定文字旋转角度 <0>: ")))
  (setq xz 0)
  )
  (setq
  sxh1 (strcat qz "-" (itoa n1)  )
  p1 (getpoint "\n请指定插入点: ")
  )
  (while (/= p1 nil)
  (command "text" "ml" p1 h1 xz sxh1)
  (setq
  n1 (+ n1 zn)
  sxh1 (strcat qz "-" (itoa n1) )
  p1 (getpoint "\n请指定下一插入点: ")
  )
  )
  (setvar "cmdecho" oce1)
  (princ)
  )

xyp1964 · 发表于 2007-5-1 16:58:01

须先下载和加载通用函数xyplib.vlx
[php];;带前缀的序号程序
(defun c:test427 ()
  (CMDLASC0)
  (setq T1 (USTR 7 "前缀" T1 NIL)
I1 (UINT 7 "" "初始值" I1)
I2 (UINT 7 "" "步长" I2)
  )
  (while (setq pt (getpoint "\n位置点<退出>: "))
(setq tx (strcat T1 (itoa I1))
   I1 (+ I1 I2)
)
(xyp-text 5 pt tx)
  )
  (CMDLA1)
)[/php]

TLHMQH · 发表于 2007-5-1 21:45:22

命令: TEST427 ; 错误: no function definition: CMDLASC0

须先下载和加载通用函数xyplib.vlx
[/COLOR] by xyp1964

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：求一个小程序：写文本自动增加序号的

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子