[求助]：帮忙修改《数字递增复制》

贱人

执行出错，昨天还能用，今天罢工了

(defun c:99 (/ E ENEW NV P S)
  (if (and (setq e (car (entsel "\n选择数字文本: ")))
    (setq e (vlax-ename->vla-object e))
    (or (= "AcDbText" (vla-get-ObjectName e))
        (= "AcDbMText" (vla-get-ObjectName e))
    )
      )
    (progn
      (setq s (vla-get-TextString e))
      (if (null (setq nv (getreal (strcat "\n输入递增值:" "<1>"))))
(setq nv 1)
      )
      (princ "\n指定点: ")
      (while (setq p (getpoint))
(setq enew (vla-copy e))
(vla-put-textstring enew (setq s (rtos (+ (atof s) nv) 2)))
(vla-put-InsertionPoint enew (vlax-3d-point p))
      )
    )
    (princ "\n选中的不是文本或没有选择到实体.")
  )
  (princ)
)

啵浪鼓

好的，可以用啊，我在2006用过还好，但好像程序需要改良啊，比如说选中了1，得到的结果应该小数位后的1.00呀，还有就是如果选中字母也应该默认该值为0而不退出或出错

xyp1964

纯lsp：
[php]
(load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在每个程序内增加(load"xyp_lib")
2.在acad.lsp中增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;数字递增复制
(defun c:test ()
  (if (and (setq e (car (entsel "\n选择数字文本: ")))
           (setq en (dxf 0 (entget e)))
           (or (= "TEXT" en)
               (= "MTEXT" en)
           )
      )
    (progn
      (setq txt        (dxf 1 (entget e))
            nv        (ureal 1 "" "\n递增值" nv)
      )
      (while (setq pt (getpoint "\n指定点: "))
        (command "copy" e "" (dxf 10 (entget e)) pt)
        (setq s1 (entlast)
              txt (rtos (+ (atof txt) nv) 2)
        )
        (sub_upd s1 1 txt)
      )
    )
    (princ "\n选中的不是文本或没有选择到实体.")
  )
  (princ)
)
[/php]

贱人

这个也是，不想加载xyp_lib能行不

xyp1964

“不想加载xyp_lib”肯定行，不过偶只会这样，可另请DX指点。

my_autocad

哦,试用了!1.01这类数字,需要设置un,
对于LD-1.01类,显示为0!

金鹅起飞

嘻嘻，谢谢分享，向您学习！