[求助]：谁能给我个序号编号程序（1。2。3。。。）

xxming · 发表于 2004-2-16 17:04:20

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

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

×

谁能给我个序号编号程序（1。2。3。。。）

yi.gao · 发表于 2004-2-16 21:18:03

ET工具中有文本自动编号的工具。

lsjjm · 发表于 2004-2-17 03:17:54

最初由 xxming 发布
[B]谁能给我个序号编号程序（1。2。3。。。） [/B]

REFER TO:
(defun c:test ( / pe pe0)
  (setq p0 (getpoint "\nPick star point:"))
  (if inum nil (setq inum 1))
  ;(mlayer "dim" 4 "continous")
  (setq s (getvar "dimscale"))
  (while inum
(if pe (setq pe0 pe))
(setq pe (getpoint p0 "\nPick End Point"))
(princ "\nItem Number or Break: n <")
(princ inum)
(setq inum0 (getstring ">:"))
(if pe0
   (if (< (abs (- (car pe)(car pe0)))(abs (- (cadr pe)(cadr pe0))))
      (setq pe (list (car pe0)(cadr pe)))
      (setq pe (list (car pe)(cadr pe0)))
   )
)
(command "leader" p0 (polar pe (angle pe p0)(* s 0.32)) "" "" "n")
(vl-cmdf "circle"  pe (* s 0.32))
(if (= (type inum) 'STR)(setq inum (atoi inum)))
(vl-cmdf "text" "j" "m" pe (* s 1.5 0.18) 0 (itoa inum) "")
(setq p0 (getpoint "\nPick start Point"))
(setq inum (1+ inum))
  )
)

张世杰 · 发表于 2004-2-19 09:20:47

这个地址或许有帮助。
http://www.xdcad.net/forum/showt ... y=&pagenumber=1

lt_zzy · 发表于 2004-2-19 09:23:37

晓东工具箱里也有。

netbee · 发表于 2004-3-5 22:51:31

http://www.xdcad.net/forum/showthread.php?s=&threadid=106595

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

[求助] [求助]：谁能给我个序号编号程序（1。2。3。。。）

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

相关帖子

Re: [求助]：谁能给我个序号编号程序（1。2。3。。。）