教學課程
加入贊助
聯絡我們![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe1-113](https://i.servimg.com/u/f67/12/31/59/66/aoe1-113.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe15010](https://i.servimg.com/u/f67/12/31/59/66/aoe15010.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe1-112](https://i.servimg.com/u/f67/12/31/59/66/aoe1-112.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[分享]一個能顯示面積及長度的LISP程式
+78
月泉白牙
kruppel
lin品
a0917783109
numwyoyo
安東尼
uw200000
wewe10704
PYT
qwe9956
FLY770112
糖糖的主人
mingsung
huang shih ching
kid530
ptero0226
aniy051802
kai_11
rain831787
銀翼
peggy731
tufe8887
flyat9t
s8828016
ryan0106
chunwel
ganlinlaw
handolu
HUANG CHIEN MING
f933021
wenfeng
liao
c1140c33
koko789
cantwocantwocan
月蜻蜓
tyhaola
老紅
Yulunwei
cyy0614
nicky1273
poiuyy
et1029et
lingo_st
jerry775
GRACE0724
ysl yang
老水牛
小香
lok
arhome
jhou0219
opk153
sandsand
sea0702
長陳
adslwang
以西杰
it930
虹
Andy.Lin
白金之星
Boss&倫
pizg
leoneriol
HEMOS
glassshoes2003
howard73
MAYA100
aaaaaa1111
adolescent77
W-E-I
DARDAR
meet_emily
judyyai
小青蛙
Tiger&蘋果爸
bruce79
82 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第4頁(共4頁)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty](https://2img.net/i/empty.gif)
[分享]一個能顯示面積及長度的LISP程式
由 bruce79 周一 26 10月 2009 - 20:54
主題回顧 :
1.新增一個文字文件(.txt),貼上以下內容
3.開啟Autocad工具列中的「載入/卸載應用程式」對話方塊或者執行[appload]
4.選擇該文件位置後載入
5.在指令列key入"am"後,選擇你要的線或面方可使用(但不能選擇圖塊喔)
PS:這是一位建築師給我的LISP
ps:好東西與好朋友分享!!
蘋果爸補充:
每個CAD版本可能會有些差異，每個人使用方式也要討論及了解，才能知道問題在哪!
是否有開啟一張新圖來做測試，如果可以測試其他電腦的CAD版本。
我這裡使用2023版本操作沒有問題!
謝謝程式分享及說明~< 積分 +1>
[公告]關於團隊成員的回文及貢獻
1.新增一個文字文件(.txt),貼上以下內容
- 代碼:
(defun C:am (/ ss l i totalarea ename obj entarea)
(if (setq ss (ssget))
(progn
(vl-load-com)
(setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))
(setq l (sslength ss) i 0 totalarea 0 totlength 0)
(repeat l
(setq ename (ssname ss i))
(setq obj (vlax-ename->vla-object ename))
(if (vlax-property-available-p obj "area")
(setq totalarea (+ (vlax-get-property obj 'area) totalarea))
)
(if (= (cdr (assoc 0 (entget ename))) "MLINE")
(setq totlength (+ totlength (ml-length ename)))
(setq totlength (+ totlength (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))
)
(setq i (1+ i))
)
(setq text1 (strcat "總面積為 : " (rtos totalarea 2 4) "平方公分")
text2 (strcat "總長度為 : " (rtos totlength 2 4) "公分")
)
(if (setq insertpt (getpoint "\n請輸入文字插入點: "))
(if (setq height (GETREAL "\n請輸入文字高度:"))
(setq insertp1 (vlax-3d-point insertpt)
insertp2 (vlax-3d-point (polar insertpt (* 1.5 Pi) (* 1.5 height)))
textobj1 (vla-addtext modelspace text1 insertp1 height)
textobj2 (vla-addtext modelspace text2 insertp2 height)
)
)
)
)
)
)
(defun ml-length (ename / j d ptlist)
(foreach n (entget ename)
(if (= (car n) 11)
(setq ptlist (cons (cdr n) ptlist))
)
)
(reverse ptlist)
(setq j 0 d 0)
(repeat (1- (length ptlist))
(setq d (+ d (distance (nth j ptlist) (nth (1+ j) ptlist))))
(setq j (1+ j))
)
d
)
3.開啟Autocad工具列中的「載入/卸載應用程式」對話方塊或者執行[appload]
4.選擇該文件位置後載入
5.在指令列key入"am"後,選擇你要的線或面方可使用(但不能選擇圖塊喔)
PS:這是一位建築師給我的LISP
ps:好東西與好朋友分享!!
蘋果爸補充:
每個CAD版本可能會有些差異，每個人使用方式也要討論及了解，才能知道問題在哪!
是否有開啟一張新圖來做測試，如果可以測試其他電腦的CAD版本。
我這裡使用2023版本操作沒有問題!
謝謝程式分享及說明~< 積分 +1>[公告]關於團隊成員的回文及貢獻
Tiger&蘋果爸 在 周五 3 6月 2022 - 21:41 作了第 7 次修改 (原因 : 加分囉~)
bruce79- 初級會員
- 文章總數 : 186
年齡 : 45
來自 : 南投
職業 : 工程師
愛好 : 運動
個性 : O型-樂觀
使用年資 : 5年
使用版本 : 2008
積分 : 3
經驗值 : 6517
威望值 : 117
未回應主題 : 1
注冊日期 : 2008-09-12
Tiger&蘋果爸, vike827, ben91016, mingsung, tck007, trelive, JohnnyTsungChen and like this post
kai_11- 一般會員
- 文章總數 : 2
年齡 : 34
來自 : 台中
職業 : 消防
愛好 : 瑜珈
個性 : 活潑
使用年資 : 10
使用版本 : 2021
經驗值 : 725
威望值 : 0
注冊日期 : 2022-12-07
aniy051802- 一般會員
- 文章總數 : 3
年齡 : 29
來自 : 桃園
職業 : 營造業
愛好 : 上班
個性 : 孤僻
使用年資 : 2
使用版本 : 2018
經驗值 : 1482
威望值 : 0
注冊日期 : 2020-11-15
回復： [分享]一個能顯示面積及長度的LISP程式
由 ptero0226 周四 15 12月 2022 - 22:31
感謝分享!!
____________________________________________________________________________________
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 BPl3tjj.png](https://i.imgur.com/BPl3tjj.png.png)
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oooa_110](https://i.servimg.com/u/f67/12/31/59/66/oooa_110.png)
ptero0226- 一般會員
- 文章總數 : 28
年齡 : 38
來自 : 桃園縣
職業 : 網頁製作
愛好 : 看RunningMan
個性 : 內斂
使用年資 : 新手初學
使用版本 : 2013
經驗值 : 4419
威望值 : 18
注冊日期 : 2013-02-21
kid530- 一般會員
- 文章總數 : 36
年齡 : 44
來自 : 新北市中和區
職業 : 工地主任
愛好 : 睡覺
個性 : 文靜
使用年資 : 10
使用版本 : 2015
經驗值 : 3582
威望值 : 6
注冊日期 : 2015-08-21
huang shih ching- 一般會員
- 文章總數 : 8
年齡 : 58
來自 : 高雄
職業 : 設計
愛好 : 旅遊
個性 : 內向
使用年資 : 3
使用版本 : 2014
經驗值 : 729
威望值 : 0
注冊日期 : 2022-12-29
mingsung- 一般會員
- 文章總數 : 9
年齡 : 39
來自 : 台中
職業 : 待業
愛好 : 釣魚
個性 : 開朗
使用年資 : 5年
使用版本 : 2011
經驗值 : 3831
威望值 : 0
注冊日期 : 2014-07-11
回復： [分享]一個能顯示面積及長度的LISP程式
由 糖糖的主人 周三 12 4月 2023 - 16:02
謝謝分享 !! 目前工作非常需要這個酷東東
____________________________________________________________________________________
糖糖的主人- 贊助會員
- 文章總數 : 60
年齡 : 26
來自 : 宜蘭
職業 : 工程師
愛好 : 看電影
個性 : 容易半途而廢
使用年資 : 一年
使用版本 : 2021
經驗值 : 1507
威望值 : 18
注冊日期 : 2021-07-30
FLY770112- 一般會員
- 文章總數 : 4
年齡 : 36
來自 : 桃園
職業 : 建築
愛好 : 旅遊
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2019
經驗值 : 598
威望值 : 0
注冊日期 : 2023-04-19
回復： [分享]一個能顯示面積及長度的LISP程式
由 qwe9956 周四 4 五月 2023 - 14:48
感謝您的分享~
目前測試更改單位為公尺...
最近工作上遇到大量的數量計算頭痛中
![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 1f614](https://2img.net/i/fa/twemoji/16x16/1f614.png)
5/4 15:30
已成功將單位改為公尺![[分享]一個能顯示面積及長度的LISP程式 - 頁 4 1f60b](https://2img.net/i/fa/twemoji/16x16/1f60b.png)
目前測試更改單位為公尺...
最近工作上遇到大量的數量計算頭痛中
5/4 15:30
已成功將單位改為公尺
qwe9956- 一般會員
- 文章總數 : 3
年齡 : 32
來自 : 雞籠
職業 : 工程師
愛好 : 看女人
個性 : 脾氣不好
使用年資 : 新手初學
使用版本 : AutoCAD2015
經驗值 : 2566
威望值 : 0
注冊日期 : 2017-11-27
Tiger&蘋果爸 and a529148@yahoo.com.tw like this post
PYT- 一般會員
- 文章總數 : 10
年齡 : 29
來自 : 台中市
職業 : 設計工程師
愛好 : 街舞、衝浪
個性 : 外向
使用年資 : 5個月
使用版本 : 2019
經驗值 : 682
威望值 : 6
注冊日期 : 2023-03-16
wewe10704- 一般會員
- 文章總數 : 2
年齡 : 35
來自 : 台北
職業 : 建築
愛好 : 電腦
個性 : 可以
使用年資 : 10
使用版本 : 2013
經驗值 : 1742
威望值 : 0
注冊日期 : 2020-02-24
uw200000- 一般會員
- 文章總數 : 7
年齡 : 48
來自 : 嘉義
職業 : 退休人士
愛好 : 動漫
個性 : 急性子
使用年資 : 60天左右
使用版本 : 2022
經驗值 : 539
威望值 : 0
注冊日期 : 2023-07-06
安東尼- 一般會員
- 文章總數 : 25
年齡 : 50
來自 : 桃園
職業 : 待業
愛好 : 音樂
個性 : 誠實
使用年資 : 5年
使用版本 : 2022
經驗值 : 608
威望值 : 0
注冊日期 : 2023-07-23
numwyoyo- 一般會員
- 文章總數 : 4
年齡 : 46
來自 : USA
職業 : STUDENT
愛好 : HOTGIRL
個性 : NOMAL
使用年資 : 5
使用版本 : 2010
經驗值 : 4015
威望值 : 0
注冊日期 : 2013-12-12
a0917783109- 一般會員
- 文章總數 : 6
年齡 : 33
來自 : 台北市
職業 : 工程師
愛好 : 吃各地美食
個性 : 中規中矩
使用年資 : 8年
使用版本 : 2008
經驗值 : 1937
威望值 : 0
注冊日期 : 2019-09-07
lin品- 一般會員
- 文章總數 : 10
年齡 : 45
來自 : 花蓮
職業 : 繪圖員
愛好 : 畫畫
個性 : 看卡通
使用年資 : 3
使用版本 : 2022
經驗值 : 358
威望值 : 18
注冊日期 : 2024-01-24
kruppel- 專屬會員
- 文章總數 : 8
年齡 : 39
來自 : 台中
職業 : 待業
愛好 : 板類活動
個性 : 使然
使用年資 : 20
使用版本 : 2022
經驗值 : 341
威望值 : 0
注冊日期 : 2024-01-23
回復： [分享]一個能顯示面積及長度的LISP程式
由 月泉白牙 周日 21 4月 2024 - 23:46
謝謝分享,這樣的程式真的非常方便
____________________________________________________________________________________
近程目標:成為論壇高級會員
中程目標:考取CAD相關證照
遠程目標:成為一個3D的專業繪圖工程師
~~一步走來始終如一~~
月泉白牙- 初級會員
- 文章總數 : 159
年齡 : 45
來自 : 台中市
職業 : 繪圖工程師
愛好 : 閱讀歷史與工作賺錢
個性 : 努力勇往向前
使用年資 : 從R14到現在......
使用版本 : 目前是2010版(升級嘍)
積分 : 3
經驗值 : 6447
威望值 : 27
注冊日期 : 2008-05-22
doasboy- 一般會員
- 文章總數 : 3
年齡 : 41
來自 : 台北
職業 : 防水止漏
愛好 : 算圖
個性 : 開朗
使用年資 : 初學
使用版本 : 2012
經驗值 : 3365
威望值 : 0
注冊日期 : 2015-09-21
rina- 一般會員
- 文章總數 : 10
年齡 : 33
來自 : 高雄
職業 : 繪圖人員
愛好 : 聽音樂
個性 : 活潑
使用年資 : 半年
使用版本 : ２０２０
經驗值 : 897
威望值 : 0
注冊日期 : 2022-07-20
genie1234330- 一般會員
- 文章總數 : 3
年齡 : 38
來自 : 桃園
職業 : 營造業
愛好 : 無
個性 : 無
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4581
威望值 : 0
注冊日期 : 2012-05-23
回復： [分享]一個能顯示面積及長度的LISP程式
由 c1140c33 周四 26 9月 2024 - 8:00
這個lisp真的不錯用~可以減少不少工作時間
____________________________________________________________________________________
c1140c33- 一般會員
- 文章總數 : 98
年齡 : 43
來自 : 台北
職業 : 工程師
愛好 : 電腦
個性 : 隨和
使用年資 : 15年
使用版本 : 2022
經驗值 : 5680
威望值 : 39
注冊日期 : 2010-06-29
雅虎- 一般會員
- 文章總數 : 4
年齡 : 30
來自 : 桃園市
職業 : 營建工程師
愛好 : 學習新知識
個性 : 謹慎
使用年資 : 新手教學
使用版本 : 新手初學
經驗值 : 23
威望值 : 0
注冊日期 : 2024-11-18
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第4頁(共4頁)
這個論壇的權限：
您 無法 在這個版面回復文章