AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
我有個很想用的LISP,但本人研究很久 最終不能用 Io15010 我有個很想用的LISP,但本人研究很久 最終不能用 2020-310 我有個很想用的LISP,但本人研究很久 最終不能用 Oiu15010 我有個很想用的LISP,但本人研究很久 最終不能用 2020-211 我有個很想用的LISP,但本人研究很久 最終不能用 Oo-2-110 我有個很想用的LISP,但本人研究很久 最終不能用 BPl3tjj

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

向下

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

發表 由 paddyyim 于 2020-01-29, 20:24

我有個很想用的LISP,但本人研究很久 最終不能用
我有個很想用的LISP,但本人研究很久 最終不能用 GetTrueContent
http://lee-mac.com/gettruecontent.html
能有高人指點 愛哭 愛哭 愛哭
paddyyim
paddyyim
一般會員
一般會員

文章總數 : 11
年齡 : 32
來自 : 中國
職業 : 繪圖員
愛好 : 打機
個性 : 開心
使用年資 : 1
使用版本 : 2008
經驗值 : 3863
威望值 : 6
注冊日期 : 2010-07-14
男 獅子座 龍

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2020-02-11, 14:55

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

____________________________________________________________________________________
我有個很想用的LISP,但本人研究很久 最終不能用 Oo-2-110 我有個很想用的LISP,但本人研究很久 最終不能用 Ia15010 我有個很想用的LISP,但本人研究很久 最終不能用 Ziao1510 我有個很想用的LISP,但本人研究很久 最終不能用 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19455
年齡 : 44
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2021
經驗值 : 77305
威望值 : 14820
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 Atsai 于 2020-02-14, 13:14

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

http://lee-mac.com/lisp/html/GetTrueContent.html
Atsai
Atsai
中級會員
中級會員

文章總數 : 138
年齡 : 45
來自 : 台中
職業 : 工程
愛好 : 看漫畫
個性 : 樂天
使用年資 : 10
使用版本 : 2010
AutoCAD基礎篇等級 : 10星級
積分 : 8
經驗值 : 4241
威望值 : 424
注冊日期 : 2012-04-06
男 金牛座 兔

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2020-02-14, 17:26

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

http://lee-mac.com/lisp/html/GetTrueContent.html
試過 html 的確是ok的~
多謝 Atsai大
害羞

____________________________________________________________________________________
我有個很想用的LISP,但本人研究很久 最終不能用 Oo-2-110 我有個很想用的LISP,但本人研究很久 最終不能用 Ia15010 我有個很想用的LISP,但本人研究很久 最終不能用 Ziao1510 我有個很想用的LISP,但本人研究很久 最終不能用 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19455
年齡 : 44
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2021
經驗值 : 77305
威望值 : 14820
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 hueigo 于 2020-03-14, 20:16

這個功能我有在用,我把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 )
)
hueigo
hueigo
初級會員
初級會員

文章總數 : 91
年齡 : 56
來自 : 台中
職業 : 建築設計師
愛好 : 圍棋
個性 : 平實
使用年資 : 15
使用版本 : 2013
積分 : 4
經驗值 : 3512
威望值 : 121
注冊日期 : 2012-10-01
顧問外掛程式 經典問與答讀者 男 天蝎座 龍

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
我有個很想用的LISP,但本人研究很久 最終不能用 Uos15010 我有個很想用的LISP,但本人研究很久 最終不能用 BPl3tjj 我有個很想用的LISP,但本人研究很久 最終不能用 Ziao1510 我有個很想用的LISP,但本人研究很久 最終不能用 Oo-2-110 我有個很想用的LISP,但本人研究很久 最終不能用 Oooo-110 我有個很想用的LISP,但本人研究很久 最終不能用 2020-211