自动编号程序,求改进程序！

范建威

(defun C:TXT()
(setq cmdecho_bak (getvar "cmdecho"))
  (setvar "cmdecho" 0)
(setq ZF (getstring "\n输入前缀字符："))
(setq NUM (getint  "\n输入起始数字："))
(setq heigh (getreal  "\n输入字体高度："))
(setq PT (getpoint "\n注记文字位置："))
(while PT
  (if (= ZF "()")
   (progn
    (setq B "("  C")")
    (setq txt (strcat b (rtos num 2 0) c))
    ;(command "text" pt heigh "" txt)
    (command "text" "s" "宋体" pt heigh "0" txt)
    (setq NUM (1+ NUM))
    (setq PT (getpoint "\n注记文字位置："))
   )
  )
  (if (/= ZF "()" )
   (progn
    (setq txt (strcat ZF (rtos num 2 0)))
    (command "text" "s" "宋体" pt heigh "0" txt)
    (setq NUM (1+ NUM))
    (setq PT (getpoint "\n注记文字位置："))
   )
  )
)
(setvar "cmdecho" cmdecho_bak)
(PRINC)
)

希望循环标注的时候！文字可以显示在光标处！就  grread  函数！

守仁格竹GM

(defun C:TT()
  (setq ZF (getstring "\n输入前缀字符："))
  (setq NUM (getint  "\n输入起始数字："))
  (setq heigh (getreal  "\n输入字体高度："))
  (while (setq PT (cadr (grread T 8)))
    (setq txt (strcat ZF (rtos num 2 0)))
    (command "text" "s" "宋体" pt heigh "0" txt)
    (setq ename (entlast))                  
    (setq entdb (entget ename))            
    (setq tag T)
    (prompt "选择插入点")
    (while tag
      (setq code (grread T 8))              
      (setq mod (car code))                     
(cond
((or (= mod 5)(= mod 3))
  (if (= mod 3)(setq tag nil))      
  (setq snappt (cadr code))         
  (entmod (append entdb (list(cons 10 snappt))))               
)
(T  nil)
      )
    )
    (setq NUM (1+ NUM))
  )
)
稍做修改，其他想要的自己在增加吧！应该是你想要的结果

褪去的记忆

:dizzy:,和大神们学习学习

pking5465

这是递增复制吗？