我有個很想用的LISP,但本人研究很久 最終不能用

我有個很想用的LISP,但本人研究很久 最終不能用

http://lee-mac.com/gettruecontent.html
能有高人指點

李麥克的程式不容易改，可能要到國外論壇，試試詢問看看原作者是否有更新

在樓主貼的Lee Mac的網頁，裏面有lsp檔跟html檔二個，
lsp檔的會出錯，複製html檔的程式碼貼到cad的visual lisp編輯器是OK的。

http://lee-mac.com/lisp/html/GetTrueContent.html

Atsai 寫到:在樓主貼的Lee Mac的網頁，裏面有lsp檔跟html檔二個，
lsp檔的會出錯，複製html檔的程式碼貼到cad的visual lisp編輯器是OK的。

http://lee-mac.com/lisp/html/GetTrueContent.html

試過 html 的確是ok的~
多謝 Atsai大

這個功能我有在用，我把LISP碼貼在下面

(defun c:mm(/ en1 data1 otxt txt1 en2 data2 ntxt txt2 txt) ;;;執行指令 mm 前字變後字
;;;;;;;;;;;;;;;; 繪圖參數設定
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
;;;;;;;;;;;;;;;;第一個文字的資料串列
(setq en1 (entsel "\n選取變更文字："))
(setq data1 (entget (car en1)))
(setq otxt (assoc 1 data1))
(setq txt1 (cdr otxt))
;;;;;;;;;;;;;;;;第二個文字的資料串列
(setq en2 (entsel "\n選取基準文字："))
(setq data2 (entget (car en2)))
(setq ntxt (assoc 1 data2))
(setq txt2 (cdr ntxt))
;;;;;;;;;;;;;;;;串列轉換
(setq txt (cons 1 txt2))
(setq data1 (subst txt otxt data1))
(entmod data1)
;;;;;;;;;;;;;;;;
(setvar "blipmode" 1)
(princ "\n舊文字[")(princ txt1)(princ "]")(princ "已轉換為[")(princ txt2)(princ "]")
(princ )
)