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程式

+45
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
49 posters

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

向下

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

發表 由 bruce79 周一 26 10月 2009, 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:好東西與好朋友分享!!


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

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


Tiger&蘋果爸 在 周三 08 7月 2020, 09:18 作了第 6 次修改 (原因 : 加分囉~)
avatar
bruce79
初級會員
初級會員

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

vike827, JohnnyTsungChen, ten0418, changuan, jameswangarc, 小東, 土窯雞 and wenfeng like this post

回頂端 向下


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

發表 由 tyhaola 周四 21 3月 2019, 14:02

害羞 害羞 害羞 來試試
tyhaola
tyhaola
一般會員
一般會員

文章總數 : 5
年齡 : 35
來自 : 新竹
職業 : 建築
愛好 : 建築
個性 : 建築
使用年資 : 5
使用版本 : 2017
經驗值 : 1408
威望值 : 6
注冊日期 : 2018-08-16
男 天蝎座 虎

回頂端 向下

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

發表 由 月蜻蜓 周五 24 五月 2019, 14:18

感謝分享!! 微笑
月蜻蜓
月蜻蜓
初級會員
初級會員

文章總數 : 51
年齡 : 51
來自 : 新竹
職業 : CAD (2D)
愛好 : 看漫畫,看科幻電影!
個性 : 溫和!
使用年資 : 20
使用版本 : AutoCADM 2013
積分 : 2
經驗值 : 4554
威望值 : 103
注冊日期 : 2010-10-16
經典問與答讀者 藍鵲552號
男 射手座 狗

回頂端 向下

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

發表 由 cantwocantwocan 周二 26 五月 2020, 15:40

感謝分享,剛好非常需要這個功能
cantwocantwocan
cantwocantwocan
一般會員
一般會員

文章總數 : 5
年齡 : 39
來自 : Taipei
職業 : 結構設計
愛好 : 看書
個性 : 開朗
使用年資 : 12
使用版本 : 2008
經驗值 : 753
威望值 : 0
注冊日期 : 2020-05-26
女 水瓶座 狗

回頂端 向下

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

發表 由 koko789 周四 04 6月 2020, 16:27

感謝分享,工作上剛好用得到!
koko789
koko789
一般會員
一般會員

文章總數 : 28
年齡 : 40
來自 : 台北縣
職業 :
愛好 : 鐵件
個性 :
使用年資 : 5年
使用版本 : 3年
經驗值 : 3256
威望值 : 3
注冊日期 : 2013-11-03
女 天蝎座 雞

回頂端 向下

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

發表 由 c1140c33 周三 08 7月 2020, 08:04

來試看看...對於蒜面積幫助
c1140c33
c1140c33
一般會員
一般會員

文章總數 : 90
年齡 : 40
來自 : 台北
職業 : 工程師
愛好 : 電腦
個性 : 隨和
使用年資 : 5年
使用版本 : 2010
經驗值 : 4737
威望值 : 42
注冊日期 : 2010-06-29
藍鵲29號
男 獅子座 雞

回頂端 向下

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

發表 由 c1140c33 周三 08 7月 2020, 08:09

請問那個程式碼怎複製....到筆記本檔
c1140c33
c1140c33
一般會員
一般會員

文章總數 : 90
年齡 : 40
來自 : 台北
職業 : 工程師
愛好 : 電腦
個性 : 隨和
使用年資 : 5年
使用版本 : 2010
經驗值 : 4737
威望值 : 42
注冊日期 : 2010-06-29
藍鵲29號
男 獅子座 雞

回頂端 向下

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

發表 由 Tiger&蘋果爸 周三 08 7月 2020, 09:19

c1140c33 寫到:請問那個程式碼怎複製....到筆記本檔
已經重新上傳附件下載了,請前往下載!
認同

____________________________________________________________________________________
可愛 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Sesa2011 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Youtub11 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Oiea2011 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Oe20011 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Fbi20011 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Line2011 可愛
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 20205
年齡 : 46
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 82319
威望值 : 15908
注冊日期 : 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程式 - 頁 3 Empty 回復: [分享]一個能顯示面積及長度的LISP程式

發表 由 liao 周六 27 3月 2021, 09:08

感謝分享!計算材料數量很方便
liao
liao
一般會員
一般會員

文章總數 : 18
年齡 : 45
來自 : 台北
職業 : 監工
愛好 : 遊山玩水
個性 : 溫和
使用年資 : 新手初學
使用版本 : 2008
經驗值 : 3530
威望值 : 6
注冊日期 : 2012-12-04
經典問與答讀者 男 白羊座 蛇

回頂端 向下

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

發表 由 wenfeng 周二 22 6月 2021, 08:18

神救援!!!!謝謝分享剛剛試了一下!!!超級快速!
本來都要把圖形連接起來再做修剪跟面域..現在快速好多  
謝謝!! 感動


[分享]一個能顯示面積及長度的LISP程式 - 頁 3 110
wenfeng
wenfeng
專屬會員
專屬會員

文章總數 : 28
年齡 : 32
來自 : 高雄市
職業 : 繪圖人員
愛好 : 漫畫、繪圖、追劇
個性 : 開朗
使用年資 : 10
使用版本 : 2018
經驗值 : 473
威望值 : 6
注冊日期 : 2021-06-19
女 射手座 蛇

回頂端 向下

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

發表 由 f933021 周二 06 7月 2021, 10:00

感謝前輩分享,剛好有需要先來試試看了
f933021
f933021
一般會員
一般會員

文章總數 : 16
年齡 : 32
來自 : 板橋
職業 : 學生
愛好 : 電視
個性 : 開朗沈默參半
使用年資 : 4
使用版本 : 2006
經驗值 : 4351
威望值 : 6
注冊日期 : 2010-09-14
男 獅子座 蛇

回頂端 向下

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

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]一個能顯示面積及長度的LISP程式 - 頁 3 Ioaoe110 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 2020-310 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Oiu15010 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 2020-211 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Ia15010 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Aizyao10
[分享]一個能顯示面積及長度的LISP程式 - 頁 3 Uos15010 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 BPl3tjj [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Ziao1510 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Oo-2-110 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Oooo-110 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 Aizyao11
[分享]一個能顯示面積及長度的LISP程式 - 頁 3 Uos15011 [分享]一個能顯示面積及長度的LISP程式 - 頁 3 RQvAhqF [分享]一個能顯示面積及長度的LISP程式 - 頁 3 YdKelqY [分享]一個能顯示面積及長度的LISP程式 - 頁 3 K410yWG [分享]一個能顯示面積及長度的LISP程式 - 頁 3 OhRPPej