;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;幕匠LISP实验室;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;程序功能：数字递增复制  [备注：数字递增复制]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:MJ95 (/ E ENEW NV P S)
  (princ "\n 数字递增复制")
  (if (and (setq e (car (entsel "\nSelect Text: ")))
	   (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 "\nNew value:" "<40>"))))
	(setq nv 40)
      )
      (princ "\nCopy to: ")
      (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)
)
