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.
AutoCAD顧問

專屬 AutoCAD 線上個人顧問，是您學習路上最佳的良師益友，也是職場中最即時的支援後盾！

[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Aoe1-113[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Ioaoe110[分享]一個能顯示面積及長度的LISP程式 - 頁 5 2020-310[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Oiu15010[分享]一個能顯示面積及長度的LISP程式 - 頁 5 2020-211[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Ia15010[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Aizyao10[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Uos15010[分享]一個能顯示面積及長度的LISP程式 - 頁 5 BPl3tjj[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Ziao1510
[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Aoe15010[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Oo-2-110[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Zuoiy_10[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Aizyao11[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Iyb_1510[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Aoe1-112[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Uos15011[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Aoe2da10[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Aoe2da11[分享]一個能顯示面積及長度的LISP程式 - 頁 5 Aoe10

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

+82
雅虎
genie1234330
rina
doasboy
月泉白牙
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
86 posters

AutoCAD顧問 :: 技術 ::   :: 進階討論

第5頁(共5頁) • 上一頁  1, 2, 3, 4, 5

向下

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

發表 由 bruce79 周一 26 10月 - 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&蘋果爸 在 周五 3 6月 - 21:41 作了第 7 次修改 (原因 : 加分囉~)
avatar
bruce79
初級會員
初級會員

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

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

回頂端 向下

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

發表 由 lmjet2001 周一 6 1月 - 18:04

感謝分享...剛好有工作上的需要,謝謝.

____________________________________________________________________________________

lmjet2001
lmjet2001
一般會員
一般會員

文章總數 : 16
年齡 : 45
來自 : 桃園
職業 : 建築
愛好 : 音樂
個性 : 普通
使用年資 : 初學
使用版本 : 2010
經驗值 : 4260
威望值 : 0
注冊日期 : 2013-07-18
2D基礎函授 經典問與答讀者 男 射手座 羊

回頂端 向下

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

發表 由 冠妤 周三 8 1月 - 23:47

太棒了
冠妤
冠妤
新手上路
新手上路

文章總數 : 1
年齡 : 22
來自 : 台中
職業 : 學生
愛好 : 攝影
個性 : 好學
使用年資 : 7
使用版本 : 2023
經驗值 : 11
威望值 : 0
注冊日期 : 2025-01-08
女 天蝎座 馬

回頂端 向下

第5頁(共5頁) • 上一頁  1, 2, 3, 4, 5

回頂端

AutoCAD顧問 :: 技術 ::   :: 進階討論

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

*** disclaimer. 免責聲明 ***
“AUTOCAD®, and AUTODESK® are registered trademarks of Autodesk, Inc., its subsidiaries, and/or its affiliates.”
“This website is independent of Autodesk, Inc., and is not affiliated with, authorized, endorsed, sponsored, or otherwise approved of by Autodesk, Inc.”
“AUTOCAD® 和 AUTODESK® 是 Autodesk, Inc. 及其子公司和/或關聯公司的註冊商標。此網站與 Autodesk, Inc. 無關，並且未經 Autodesk, Inc. 授權、認可、贊助或以其他方式批准”

“AutoCAD 顧問論壇為台灣創立之網站，我們以熱忱服務 AutoCAD 用戶，致力於技術討論、知識分享及教學影片（課程）等內容，為 AutoCAD 社群提供支持與貢獻”