AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
[討論]計算長度LISP如何指定單一圖層 - 頁 2 Oooo-110 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Oo-2-110 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Ia15010 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Ziao1510 [討論]計算長度LISP如何指定單一圖層 - 頁 2 BPl3tjj [討論]計算長度LISP如何指定單一圖層 - 頁 2 Uos15010 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Uos15011

[討論]計算長度LISP如何指定單一圖層

2頁(共2頁) 上一頁  1, 2

向下

[討論]計算長度LISP如何指定單一圖層 - 頁 2 Empty [討論]計算長度LISP如何指定單一圖層

發表 由 Boss&倫 于 2010-05-01, 23:58

主題回顧 :

下面計算線、聚合線LISP:

(defun c:long_1 ()
(setq ss (ssget '((0 . "*line"))))
(setq nn (sslength ss))
(setq i 0 tnum 0)
(repeat nn
(setq ssn (ssname ss i))
(command "lengthen" ssn "")
(setq num (getvar "perimeter"))
(setq tnum (+ tnum num))
(setq i (1+ i))
)
(alert (strcat "框選的線段加總長為: "(rtos tnum 2)))
)

請教個位寫LISP前輩
1.要在框選前加入指定單一圖層,在計算指定圖層內的線段總長。
這樣計算起來比較不會出錯,請各位前輩指點一二~感恩 感動

2.如果加入,該加入哪些語法!
感恩喔
Boss&倫
Boss&倫
中級會員
中級會員

文章總數 : 123
年齡 : 40
來自 : 台北
職業 : 機電
愛好 : 繪圖
個性 : 開朗
使用年資 : 6
使用版本 : AutoCAD2010
積分 : 5
經驗值 : 4007
威望值 : 52
注冊日期 : 2010-03-14
經典問與答讀者 藍鵲264號
串連貼紙成功 男 摩羯座 馬

回頂端 向下


[討論]計算長度LISP如何指定單一圖層 - 頁 2 Empty 回復: [討論]計算長度LISP如何指定單一圖層

發表 由 a810328 于 2015-07-14, 22:56

雖然我不會寫lisp,但非常感謝前輩熱心分享。 感激
a810328
a810328
一般會員
一般會員

文章總數 : 17
年齡 : 35
來自 : 彰化
職業 : 畫CAD,作網頁
愛好 : PC
個性 : 還好
使用年資 : 7
使用版本 : 2014
經驗值 : 3521
威望值 : -3
注冊日期 : 2010-06-11
女 摩羯座 豬

回頂端 向下

[討論]計算長度LISP如何指定單一圖層 - 頁 2 Empty 回復: [討論]計算長度LISP如何指定單一圖層

發表 由 a810328 于 2015-07-19, 20:39

非常好用,也解決了我目前要過濾圖層計算總長的問題,感謝大大的分享。 感激
a810328
a810328
一般會員
一般會員

文章總數 : 17
年齡 : 35
來自 : 彰化
職業 : 畫CAD,作網頁
愛好 : PC
個性 : 還好
使用年資 : 7
使用版本 : 2014
經驗值 : 3521
威望值 : -3
注冊日期 : 2010-06-11
女 摩羯座 豬

回頂端 向下

[討論]計算長度LISP如何指定單一圖層 - 頁 2 Empty 回復: [討論]計算長度LISP如何指定單一圖層

發表 由 ming1789 于 2016-07-19, 07:55

感謝板主的分享
ming1789
ming1789
一般會員
一般會員

文章總數 : 26
年齡 : 44
來自 : 彰化
職業 : 機械
愛好 : 上網
個性 : 樂觀
使用年資 : 10
使用版本 : 2014
經驗值 : 1372
威望值 : 0
注冊日期 : 2016-06-18
男 獅子座 兔

回頂端 向下

[討論]計算長度LISP如何指定單一圖層 - 頁 2 Empty 回復: [討論]計算長度LISP如何指定單一圖層

發表 由 huang5560 于 2017-12-23, 14:11

謝謝大大的分享,謝謝大大的分享
huang5560
huang5560
一般會員
一般會員

文章總數 : 8
年齡 : 50
來自 : 板橋
職業 : 水電
愛好 : 電影,看書
個性 : 內向
使用年資 : 5
使用版本 : 2008
經驗值 : 2488
威望值 : 0
注冊日期 : 2013-02-26
藍鵲612號
男 白羊座 雞

回頂端 向下

[討論]計算長度LISP如何指定單一圖層 - 頁 2 Empty 回復: [討論]計算長度LISP如何指定單一圖層

發表 由 EVONNE 于 2018-08-02, 13:49

請問:CAD2016&18是否無法使用?
EVONNE
EVONNE
初級會員
初級會員

文章總數 : 90
年齡 : 51
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 3461
威望值 : 30
注冊日期 : 2011-07-18
藍鵲329號
女 天秤座 猴

回頂端 向下

[討論]計算長度LISP如何指定單一圖層 - 頁 2 Empty 回復: [討論]計算長度LISP如何指定單一圖層

發表 由 linxyz168 于 2018-10-16, 09:56

非常實用的工具,計算數量,抓預算就快多了..!!
linxyz168
linxyz168
一般會員
一般會員

文章總數 : 37
年齡 : 41
來自 : 新北市
職業 : 設計
愛好 : 看電影/打球
個性 : 隨和
使用年資 : 12年
使用版本 : 2011
經驗值 : 2607
威望值 : 6
注冊日期 : 2013-03-31
男 射手座 蛇

回頂端 向下

[討論]計算長度LISP如何指定單一圖層 - 頁 2 Empty 回復: [討論]計算長度LISP如何指定單一圖層

發表 由 白金之星 于 2019-05-23, 13:52

此LISP以前下載過 很好用且實用 最近換成2016版CAD LISP也載入成功 但好像無法正常執行 請問是否有版本問題
avatar
白金之星
初級會員
初級會員

文章總數 : 238
年齡 : 42
來自 : 台北
職業 : 工頭
愛好 : AutoCad
個性 : 樂觀
使用年資 : 7
使用版本 : 2008
積分 : 4
經驗值 : 4212
威望值 : 3
未回應主題 : 您有一筆未回應
注冊日期 : 2008-09-22
男 白羊座 蛇

回頂端 向下

[討論]計算長度LISP如何指定單一圖層 - 頁 2 Empty 回復: [討論]計算長度LISP如何指定單一圖層

發表 由 Tiger&蘋果爸 于 2019-05-23, 14:51

白金之星 寫到:此LISP以前下載過   很好用且實用    最近換成2016版CAD   LISP也載入成功   但好像無法正常執行    請問是否有版本問題
是的,新版本語法不一樣
請把這行
(command "lengthen" ssn "")
然後改成
(command "lengthen" ssn "" "" "")
[討論]計算長度LISP如何指定單一圖層 - 頁 2 2019_088

____________________________________________________________________________________
[討論]計算長度LISP如何指定單一圖層 - 頁 2 Oo-2-110 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Ia15010 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Ziao1510 [討論]計算長度LISP如何指定單一圖層 - 頁 2 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 18725
年齡 : 43
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 72835
威望值 : 13844
注冊日期 : 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如何指定單一圖層 - 頁 2 Empty 回復: [討論]計算長度LISP如何指定單一圖層

發表 由 白金之星 于 2019-05-23, 16:28

感謝AUTOCAD界的最強老爸-蘋果爸及時救援,已經馬上修改測試完成,謝謝
avatar
白金之星
初級會員
初級會員

文章總數 : 238
年齡 : 42
來自 : 台北
職業 : 工頭
愛好 : AutoCad
個性 : 樂觀
使用年資 : 7
使用版本 : 2008
積分 : 4
經驗值 : 4212
威望值 : 3
未回應主題 : 您有一筆未回應
注冊日期 : 2008-09-22
男 白羊座 蛇

回頂端 向下

2頁(共2頁) 上一頁  1, 2

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]計算長度LISP如何指定單一圖層 - 頁 2 Uos15011 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Uos15010 [討論]計算長度LISP如何指定單一圖層 - 頁 2 BPl3tjj [討論]計算長度LISP如何指定單一圖層 - 頁 2 Ziao1510 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Ia15010 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Oo-2-110 [討論]計算長度LISP如何指定單一圖層 - 頁 2 Oooo-110