AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ioaoe110[分享]一個能顯示面積及長度的LISP程式 - 頁 4 2020-310[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oiu15010[分享]一個能顯示面積及長度的LISP程式 - 頁 4 2020-211[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ia15010[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao10[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Uos15010[分享]一個能顯示面積及長度的LISP程式 - 頁 4 BPl3tjj[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ziao1510
[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oo-2-110[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Zuoiy_10[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao11[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Iyb_1510[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe1-111[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Uos15011[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe2da10[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe2da11[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe10

[分享]一個能顯示面積及長度的LISP程式

+73
安東尼
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
77 posters

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

向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty [分享]一個能顯示面積及長度的LISP程式

發表 由 bruce79 2009-10-26, 20:54

主題回顧 :

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
)
2.在將該文件副檔名改為(.lsp) (檔名:am.lsp)
3.開啟Autocad工具列中的「載入/卸載應用程式」對話方塊或者執行[appload]
4.選擇該文件位置後載入
5.在指令列key入"am"後,選擇你要的線或面方可使用(但不能選擇圖塊喔)
PS:這是一位建築師給我的LISP
ps:好東西與好朋友分享!!


蘋果爸補充:
每個CAD版本可能會有些差異,每個人使用方式也要討論及了解,才能知道問題在哪!
是否有開啟一張新圖來做測試,如果可以測試其他電腦的CAD版本。
我這裡使用2023版本操作沒有問題!


讚啦!!謝謝程式分享及說明~< 積分 +1>

[公告]關於團隊成員的回文及貢獻


Tiger&蘋果爸 在 2022-06-03, 21:41 作了第 7 次修改 (原因 : 加分囉~)
avatar
bruce79
初級會員
初級會員

文章總數 : 182
年齡 : 44
來自 : 南投
職業 : 工程師
愛好 : 運動
個性 : O型-樂觀
使用年資 : 5年
使用版本 : 2008
積分 : 3
經驗值 : 6263
威望值 : 120
未回應主題 : 1
注冊日期 : 2008-09-12
顧問外掛程式 男 巨蟹座 羊

Tiger&蘋果爸, vike827, ben91016, mingsung, tck007, trelive, JohnnyTsungChen and like this post

回頂端 向下


[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 kai_11 2022-12-08, 10:12

感謝前輩分享~
kai_11
kai_11
一般會員
一般會員

文章總數 : 2
年齡 : 33
來自 : 台中
職業 : 消防
愛好 : 瑜珈
個性 : 活潑
使用年資 : 10
使用版本 : 2021
經驗值 : 488
威望值 : 0
注冊日期 : 2022-12-07
女 天蝎座 馬

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 aniy051802 2022-12-15, 11:33

請問要如何改成公尺的?
aniy051802
aniy051802
一般會員
一般會員

文章總數 : 3
年齡 : 28
來自 : 桃園
職業 : 營造業
愛好 : 上班
個性 : 孤僻
使用年資 : 2
使用版本 : 2018
經驗值 : 1245
威望值 : 0
注冊日期 : 2020-11-15
男 金牛座 豬

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 ptero0226 2022-12-15, 22:31

感謝分享!!

____________________________________________________________________________________
[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ioaoe110 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Zuoiy_10 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 2020-211 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao11 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Iyb_1510
[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao10 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 BPl3tjj.png [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ziao1510 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oo-2-110 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oooa_110
ptero0226
ptero0226
一般會員
一般會員

文章總數 : 25
年齡 : 38
來自 : 桃園縣
職業 : 網頁製作
愛好 : 看RunningMan
個性 : 內斂
使用年資 : 新手初學
使用版本 : 2013
經驗值 : 4161
威望值 : 12
注冊日期 : 2013-02-21
藍鵲701號
女 雙魚座 虎

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 kid530 2022-12-23, 12:43

感謝分享~~~謝謝論壇的蘋果爸及各位前輩
kid530
kid530
一般會員
一般會員

文章總數 : 36
年齡 : 43
來自 : 新北市中和區
職業 : 工地主任
愛好 : 睡覺
個性 : 文靜
使用年資 : 10
使用版本 : 2015
經驗值 : 3345
威望值 : 6
注冊日期 : 2015-08-21
男 處女座 猴

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 huang shih ching 2023-01-16, 21:30

謝謝分享
huang shih ching
huang shih ching
一般會員
一般會員

文章總數 : 8
年齡 : 58
來自 : 高雄
職業 : 設計
愛好 : 旅遊
個性 : 內向
使用年資 : 3
使用版本 : 2014
經驗值 : 492
威望值 : 0
注冊日期 : 2022-12-29
男 白羊座 馬

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 感謝分享

發表 由 mingsung 2023-03-07, 19:50

感謝分享!!! 謝謝囉
mingsung
mingsung
一般會員
一般會員

文章總數 : 9
年齡 : 39
來自 : 台中
職業 : 待業
愛好 : 釣魚
個性 : 開朗
使用年資 : 5年
使用版本 : 2011
經驗值 : 3594
威望值 : 0
注冊日期 : 2014-07-11
男 摩羯座 鼠

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 糖糖的主人 2023-04-12, 16:02

謝謝分享 !! 目前工作非常需要這個酷東東

____________________________________________________________________________________
[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ioaoe110 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Zuoiy_10 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 2020-211 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao11 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Iyb_1510
[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao10 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 BPl3tjj.png [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ziao1510 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oo-2-110 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oooa_110
糖糖的主人
糖糖的主人
贊助會員
贊助會員

文章總數 : 27
年齡 : 26
來自 : 宜蘭
職業 : 工程師
愛好 : 看電影
個性 : 容易半途而廢
使用年資 : 一年
使用版本 : 2021
經驗值 : 1102
威望值 : 18
注冊日期 : 2021-07-30
女 射手座 牛

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 謝謝大大分享

發表 由 FLY770112 2023-04-20, 12:00

剛好有需要,趕緊來試試看 感動
FLY770112
FLY770112
一般會員
一般會員

文章總數 : 4
年齡 : 36
來自 : 桃園
職業 : 建築
愛好 : 旅遊
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2019
經驗值 : 361
威望值 : 0
注冊日期 : 2023-04-19
男 摩羯座 兔

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 qwe9956 2023-05-04, 14:48

感謝您的分享~
目前測試更改單位為公尺...
最近工作上遇到大量的數量計算頭痛中
[分享]一個能顯示面積及長度的LISP程式 - 頁 4 1f614  [分享]一個能顯示面積及長度的LISP程式 - 頁 4 1f614  [分享]一個能顯示面積及長度的LISP程式 - 頁 4 1f614


5/4 15:30
已成功將單位改為公尺 [分享]一個能顯示面積及長度的LISP程式 - 頁 4 1f60b
qwe9956
qwe9956
一般會員
一般會員

文章總數 : 3
年齡 : 32
來自 : 雞籠
職業 : 工程師
愛好 : 看女人
個性 : 脾氣不好
使用年資 : 新手初學
使用版本 : AutoCAD2015
經驗值 : 2329
威望值 : 0
注冊日期 : 2017-11-27
女 雙魚座 猴

Tiger&蘋果爸 and a529148@yahoo.com.tw like this post

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 PYT 2023-06-09, 10:37

謝謝分享!
PYT
PYT
一般會員
一般會員

文章總數 : 9
年齡 : 29
來自 : 台中市
職業 : 設計工程師
愛好 : 街舞、衝浪
個性 : 外向
使用年資 : 5個月
使用版本 : 2019
經驗值 : 440
威望值 : 6
注冊日期 : 2023-03-16
男 摩羯座 狗

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 wewe10704 2023-07-17, 11:10

感謝分享,對於事務所作業來說有很大幫助
wewe10704
wewe10704
一般會員
一般會員

文章總數 : 2
年齡 : 34
來自 : 台北
職業 : 建築
愛好 : 電腦
個性 : 可以
使用年資 : 10
使用版本 : 2013
經驗值 : 1505
威望值 : 0
注冊日期 : 2020-02-24
男 金牛座 蛇

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 uw200000 2023-07-17, 13:41

感謝分享這樣工作上就很便利
uw200000
uw200000
一般會員
一般會員

文章總數 : 7
年齡 : 48
來自 : 嘉義
職業 : 退休人士
愛好 : 動漫
個性 : 急性子
使用年資 : 60天左右
使用版本 : 2022
經驗值 : 302
威望值 : 0
注冊日期 : 2023-07-06
Other / Decline to state 射手座 兔

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 安東尼 2023-08-20, 16:04

感謝分享!
安東尼
安東尼
一般會員
一般會員

文章總數 : 25
年齡 : 50
來自 : 桃園
職業 : 待業
愛好 : 音樂
個性 : 誠實
使用年資 : 5年
使用版本 : 2022
經驗值 : 371
威望值 : 0
注冊日期 : 2023-07-23
男 摩羯座 牛

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 numwyoyo 2023-09-25, 21:33

趕快來試試看 謝謝
numwyoyo
numwyoyo
一般會員
一般會員

文章總數 : 4
年齡 : 46
來自 : USA
職業 : STUDENT
愛好 : HOTGIRL
個性 : NOMAL
使用年資 : 5
使用版本 : 2010
經驗值 : 3778
威望值 : 0
注冊日期 : 2013-12-12
男 水瓶座 蛇

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 a0917783109 2023-12-13, 13:32

感謝分享^^
a0917783109
a0917783109
專屬會員
專屬會員

文章總數 : 6
年齡 : 32
來自 : 台北市
職業 : 工程師
愛好 : 吃各地美食
個性 : 中規中矩
使用年資 : 8年
使用版本 : 2008
經驗值 : 1700
威望值 : 0
注冊日期 : 2019-09-07
男 巨蟹座 羊

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 lin品 2024-01-26, 14:44

您好~
請問要在哪裡下載呢?
目前很需要用到~~~
感謝!!
已找到下載位置,謝謝!!
lin品
lin品
一般會員
一般會員

文章總數 : 10
年齡 : 44
來自 : 花蓮
職業 : 繪圖員
愛好 : 畫畫
個性 : 看卡通
使用年資 : 3
使用版本 : 2022
經驗值 : 121
威望值 : 18
注冊日期 : 2024-01-24
女 天秤座 羊

回頂端 向下

[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 kruppel 2024-01-30, 20:11

謝謝分享,面積、長度計算真的很花費時間,謝謝蘋果爸~~
kruppel
kruppel
一般會員
一般會員

文章總數 : 7
年齡 : 39
來自 : 台中
職業 : 待業
愛好 : 板類活動
個性 : 使然
使用年資 : 20
使用版本 : 2022
經驗值 : 99
威望值 : 0
注冊日期 : 2024-01-23
男 射手座 鼠

回頂端 向下

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

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ioaoe110[分享]一個能顯示面積及長度的LISP程式 - 頁 4 2020-310[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oiu15010[分享]一個能顯示面積及長度的LISP程式 - 頁 4 2020-211[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ia15010[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao10[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Uos15010[分享]一個能顯示面積及長度的LISP程式 - 頁 4 BPl3tjj[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Ziao1510
[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Oo-2-110[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Zuoiy_10[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aizyao11[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Iyb_1510[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe1-111[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Uos15011[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe2da10[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe2da11[分享]一個能顯示面積及長度的LISP程式 - 頁 4 Aoe10