autocad lisp

test.lsp

(defun c:lsp ()
  (prompt "\n load lisp app and call xdd ...")
;;;  (setq lspname (getstring "\nENTER LSP FILENAME:> "))
  (load "C:\\Users\\atv023\\Desktop\\tmp.lsp")
  (prompt "\n load success ...")
  (prompt "\n call .XDD ...")
  (c:xdd)
)

xdd.lsp

(defun C:XDD ()
  (prompt "\n 对当前选择的对象做处理\n")
  
  (SETQ mmm 1)
  
  (if (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))

    (while (setq sset (ssname ss 0))

      (setq
	lst (vl-string->list (cdr (assoc 1 (setq e (entget sset)))))
      )

      (entmod (subst (cons 1 (vl-list->string (reverse lst)))
		     (assoc 1 e)
		     e
	      )
      )

      (entmod (subst (cons 1 (STRCAT "PIN1-" (ITOA (- 51 mmm))))
		     (assoc 1 e)
		     e
	      )
      )

;;;      (prompt (cons 1 (vl-list->string (reverse lst))))
;;;
;;;      (prompt (STRCAT "PIN1-" (itoa i)))
;;;
;;;      (entmod (subst (cons 1 (STRCAT "PIN1-" (itoa i)))
;;;		     (assoc 1 e)
;;;		     e
;;;	      )
;;;      )

      (setq mmm (+ mmm 1))

      (prompt "\n test lwg")
      (prompt (itoa mmm))

      (ssdel sset ss)
    )
    (princ)
  )

  (prompt "\n cmd end!4")
  (princ)
)