求助大神 把万新改成JR

tanshiyu2001

(defun c:zdbh (/ oce1 qz n1 zn h1 sxh1 p1) ;自动编号

  (setq oce1 (getvar "cmdecho"))
  (setvar "cmdecho" 0)
                                        ;(command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")
  (c:zt)
  (c:zg)
                                        ;(setq qz (getstring "\n请输入前缀相同的部分: "))
                                        ;(if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))
  (setq n1 1)
  (setq qz "")
                                        ;)
                                        ;(if (not (setq zn (getint "\n请输入增加或减少的序数 <+1>: ")))
  (setq zn 1)
                                        ;)
                                        ;(if (not (setq h1 (getreal "\n请指定文字高度 <2.5>: ")))
                                        ;(setq h1 2.5)
                                        ;)
  (setq h1 zigao)
  (setq
    sxh1 (strcat qz (itoa n1))
    p1         (getpoint "\n请指定点: ")
  )
  (while (/= p1 nil)
    (command "text" "m" p1 h1 0 sxh1)
    (setq
      n1   (+ n1 zn)
      sxh1 (strcat qz (itoa n1))
      p1   (getpoint "\n请指定下一点: ")
    )
  )
  (setvar "cmdecho" oce1)
  (princ)
)

飞雪神光

1. (defun c:zdbh (/ oce1 qz n1 zn h1 sxh1 p1) ;自动编号
   
2.         (setq oce1 (getvar "cmdecho"))
   
3.   (setvar "cmdecho" 0)
   
4.         ;(command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")
   
5.   (c:zt)
   
6.   (c:zg)
   
7.         ;(setq qz (getstring "\n请输入前缀相同的部分: "))
   
8.         ;(if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))
   
9.   (setq n1 1)
   
10.   (setq qz "万新")
    
11.         ;)
    
12.         ;(if (not (setq zn (getint "\n请输入增加或减少的序数 <+1>: ")))
    
13.   (setq zn 1)
    
14.         ;)
    
15.         ;(if (not (setq h1 (getreal "\n请指定文字高度 <2.5>: ")))
    
16.         ;(setq h1 2.5)
    
17.         ;)
    
18.   (setq h1 zigao)
    
19.   (setq
    
20.     sxh1 (strcat qz (itoa n1))
    
21.     p1         (getpoint "\n请指定点: ")
    
22.   )
    
23.   (while (/= p1 nil)
    
24.     (command "text" "m" p1 h1 0 sxh1)
    
25.     (setq
    
26.       n1   (+ n1 zn)
    
27.       sxh1 (strcat qz (itoa n1))
    
28.       p1   (getpoint "\n请指定下一点: ")
    
29.     )
    
30.   )
    
31.   (setvar "cmdecho" oce1)
    
32.   (princ)
    
33. )

(defun c:zdbh (/ oce1 qz n1 zn h1 sxh1 p1) ;自动编号<br />         (setq oce1 (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />         ;(command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")<br />   (c:zt)<br />   (c:zg)<br />         ;(setq qz (getstring "\n请输入前缀相同的部分: "))<br />         ;(if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))<br />   (setq n1 1)<br />   (setq qz "万新")<br />         ;)<br />         ;(if (not (setq zn (getint "\n请输入增加或减少的序数 <+1>: ")))<br />   (setq zn 1)<br />         ;)<br />         ;(if (not (setq h1 (getreal "\n请指定文字高度 <2.5>: ")))<br />         ;(setq h1 2.5)<br />         ;)<br />   (setq h1 zigao)<br />   (setq<br />     sxh1 (strcat qz (itoa n1))<br />     p1         (getpoint "\n请指定点: ")<br />   )<br />   (while (/= p1 nil)<br />     (command "text" "m" p1 h1 0 sxh1)<br />     (setq<br />       n1   (+ n1 zn)<br />       sxh1 (strcat qz (itoa n1))<br />       p1   (getpoint "\n请指定下一点: ")<br />     )<br />   )<br />   (setvar "cmdecho" oce1)<br />   (princ)<br /> )

czb203

2. (defun c:tt (/ oce1 qz n1 zn h1 sxh1 p1) ;自动编号
   
3.   (setq oce1 (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 0)
   
5.   (setq n1 1)
   
6.   (setq qz "JR")
   
7.   (setq zn 1)
   
8.   (setq h1 2.5)
   
9.   (setq
   
10.     sxh1 (strcat qz (itoa n1))
    
11.     p1         (getpoint "\n请指定点: ")
    
12.   )
    
13.   (while (/= p1 nil)
    
14.     (command "text" "j" "mc" p1 h1 0 sxh1)
    
15.     (setq
    
16.       n1   (+ n1 zn)
    
17.       sxh1 (strcat qz (itoa n1))
    
18.       p1   (getpoint "\n请指定下一点: ")
    
19.     )   
    
20.   )
    
21.   (setvar "cmdecho" oce1)
    
22.   (princ)
    
23. )

(defun c:tt (/ oce1 qz n1 zn h1 sxh1 p1) ;自动编号<br />   (setq oce1 (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq n1 1)<br />   (setq qz "JR")<br />   (setq zn 1)<br />   (setq h1 2.5)<br />   (setq<br />     sxh1 (strcat qz (itoa n1))<br />     p1         (getpoint "\n请指定点: ")<br />   )<br />   (while (/= p1 nil)<br />     (command "text" "j" "mc" p1 h1 0 sxh1)<br />     (setq<br />       n1   (+ n1 zn)<br />       sxh1 (strcat qz (itoa n1))<br />       p1   (getpoint "\n请指定下一点: ")<br />     )    <br />   )<br />   (setvar "cmdecho" oce1)<br />   (princ)<br /> )

tanshiyu2001

飞雪神光 发表于 2023-6-24 17:47

大神，是不是把代码里的万新改成JR就可以了