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

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

1頁(共2頁) 1, 2  下一步

上一篇主題 下一篇主題 向下

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

發表 由 bruce79 于 2009-10-26, 12: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&蘋果爸 在 2011-07-13, 07:59 作了第 5 次修改 (原因 : 加分囉~)

bruce79
初級會員
初級會員

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

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2009-10-27, 01:29

請問是您自己寫的嗎,如果不是請註明出處。
謝謝~

PS:這個程式只適合公分,其他單位要自己換算~

「教學」載入LISP應用程式 APPLOAD指令
http://www.autocad-tw.com/forum-f7/topic-t111.htm

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17153
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64399
威望值 : 12733
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.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程式

發表 由 bruce79 于 2009-10-27, 02:47

Tiger&蘋果爸 寫到:請問是您自己寫的嗎,如果不是請註明出處。
謝謝~

PS:這個程式只適合公分,其他單位要自己換算~

「教學」載入LISP應用程式 APPLOAD指令
http://www.autocad-tw.com/forum-f7/topic-t111.htm

PS:這是一位建築師給我的LISP謝謝

bruce79
初級會員
初級會員

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

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2009-10-27, 03:28

bruce79 寫到:
Tiger&蘋果爸 寫到:請問是您自己寫的嗎,如果不是請註明出處。
謝謝~

PS:這個程式只適合公分,其他單位要自己換算~

「教學」載入LISP應用程式 APPLOAD指令
http://www.autocad-tw.com/forum-f7/topic-t111.htm

PS:這是一位建築師給我的LISP謝謝
OK~了解!!
所以一般建築師事務所使用的單位為公分!

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17153
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64399
威望值 : 12733
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.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程式

發表 由 小青蛙 于 2009-10-27, 08:34

謝謝程式分享
lsP看看 感動
avatar
小青蛙
初級會員
初級會員

文章總數 : 23
年齡 : 49
來自 : 高雄市
職業 : 待業中
愛好 : 上山下海
個性 : 隨性
使用年資 : 斷斷續續
使用版本 : 2012
積分 : 2
經驗值 : 2973
威望值 : 15
注冊日期 : 2009-10-15
男 雙魚座 猴

回頂端 向下

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

發表 由 judyyai 于 2009-10-27, 13:16

Tiger&蘋果爸 寫到:
PS:這個程式只適合公分,其他單位要自己換算~


小小修改一下!就變成公釐mm
代碼:
(defun C:amm (/ 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) "公釐(mm)")
      )
      (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
)

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27142
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2009-10-28, 01:55

judyyai 寫到:
Tiger&蘋果爸 寫到:
PS:這個程式只適合公分,其他單位要自己換算~


小小修改一下!就變成公釐mm
代碼:
(defun C:amm (/ 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) "公釐(mm)")
      )
      (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
)
謝謝JUDY熱心的修改!!
害羞

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17153
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64399
威望值 : 12733
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.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程式

發表 由 meet_emily 于 2009-10-31, 02:15

感謝分享! 害羞
avatar
meet_emily
高級會員
高級會員

文章總數 : 123
年齡 : 47
來自 : 宜蘭
職業 : 學習
愛好 : 電影,音樂
個性 : 有點呆板,但不古板!有點天真,但不失真!有點強硬,但不強勢!
使用年資 : 6
使用版本 : 2010
積分 : 12
經驗值 : 3560
威望值 : 53
回帖精華 : 1
注冊日期 : 2008-10-11
女 處女座 狗

回頂端 向下

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

發表 由 DARDAR 于 2009-10-31, 11:33

感謝分享..... 好棒
avatar
DARDAR
高級會員
高級會員

文章總數 : 281
年齡 : 59
來自 : 台北
職業 : 營造金屬
愛好 : AutoCAD
個性 : 隨和
使用年資 : 5年↑
使用版本 : 2012
積分 : 15
經驗值 : 3873
威望值 : 90
注冊日期 : 2008-05-13
經典問與答讀者 藍鵲49號
男 白羊座 狗

回頂端 向下

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

發表 由 小青蛙 于 2009-11-01, 20:25

(if (vlax-property-available-p obj "area")
這判斷式我在vba尚未找到,先用On Error Resume Next替代
附上相對應vba碼
代碼:
Const pi As Double = 3.14159265358979
Sub ts() '計算面積,長度
  Dim ss As AcadSelectionSet
  On Error Resume Next
    ThisDrawing.SelectionSets.Item("ss").Delete
  On Error GoTo 0
    Set ss = ThisDrawing.SelectionSets.Add("ss")
  ss.SelectOnScreen

Dim totalarea As Double
Dim totlength As Double

For Each ent In ss
    On Error Resume Next
    If IsError(ent.Area) Then MsgBox "此物件不含面積,也不是多重線" _
        Else: totalarea = ent.Area + totalarea
    On Error GoTo 0
  totlength = ent.Length + totlength
Next
totalarea = Format(totalarea, "##,##0.00")
totlength = Format(totlength, "##,##0.00")
text1 = "總面積為 : " & totalarea & " 平方公分"
text2 = "總長度為 : " & totlength & " 公分"

Dim insertp1 As Variant
Dim insertp2 As Variant
Dim Height As Double

insertp1 = ThisDrawing.Utility.GetPoint(, "選擇文字起點")
 On Error Resume Next
Height = ThisDrawing.Utility.GetReal("請輸入文字高度:")
  On Error GoTo 0
 If Height = 0 Then Height = 80
insertp2 = ThisDrawing.Utility.PolarPoint(insertp1, 1.5 * pi, 1.5 * Height)
Set textobj1 = ThisDrawing.ModelSpace.AddText(text1, insertp1, Height)
Set textobj2 = ThisDrawing.ModelSpace.AddText(text2, insertp2, Height)
End Sub
avatar
小青蛙
初級會員
初級會員

文章總數 : 23
年齡 : 49
來自 : 高雄市
職業 : 待業中
愛好 : 上山下海
個性 : 隨性
使用年資 : 斷斷續續
使用版本 : 2012
積分 : 2
經驗值 : 2973
威望值 : 15
注冊日期 : 2009-10-15
男 雙魚座 猴

回頂端 向下

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

發表 由 W-E-I 于 2009-11-03, 01:51

感謝分享~ 竊喜
avatar
W-E-I
初級會員
初級會員

文章總數 : 59
年齡 : 36
來自 : 台北
職業 : 工程
愛好 : autocad
個性 : 旅遊
使用年資 : 8年左右
使用版本 : 2011
積分 : 1
經驗值 : 3347
威望值 : 0
注冊日期 : 2008-09-26
串連貼紙成功 女 金牛座 雞

回頂端 向下

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

發表 由 adolescent77 于 2009-11-12, 13:35

趕快來試試看 謝囉 
avatar
adolescent77
初級會員
初級會員

文章總數 : 63
年齡 : 37
來自 : 高雄市
職業 : 工程師
愛好 : 電影
個性 : 孤僻
使用年資 : 白天
使用版本 : 2010
積分 : 1
經驗值 : 3081
威望值 : 11
注冊日期 : 2009-11-01
男 天蝎座 羊

回頂端 向下

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

發表 由 aaaaaa1111 于 2009-12-20, 00:56

工作上常要計算,謝謝哦.....
avatar
aaaaaa1111
一般會員
一般會員

文章總數 : 142
年齡 : 41
來自 : 台中
職業 : 行政
愛好 : 繪圖
個性 : 中性
使用年資 : 15年
使用版本 : 2008
經驗值 : 3251
威望值 : 0
注冊日期 : 2009-11-30
女 金牛座 龍

回頂端 向下

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

發表 由 MAYA100 于 2010-02-05, 01:57

室內設計耶可以用呢~~感謝您!!

MAYA100
初級會員
初級會員

文章總數 : 307
年齡 : 43
來自 : 台中
職業 : 裝修大抄手
愛好 : 琴棋書畫...都不通啦
個性 : 愛好和平
使用年資 : 5年多
使用版本 : 2006.2008
積分 : 9
經驗值 : 3773
威望值 : 136
注冊日期 : 2009-03-31
顧問外掛程式 經典問與答讀者 藍鵲451號
2009台中團隊聚會 串連貼紙成功 男 天秤座 牛

回頂端 向下

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

發表 由 howard73 于 2010-03-18, 15:41

面積計算,蠻多行業都是需要的,感謝分享

howard73
初級會員
初級會員

文章總數 : 65
年齡 : 34
來自 : 苗栗
職業 : 測量
愛好 : 繪圖
個性 : 隨和
使用年資 : 初學者
使用版本 : 2004
積分 : 2
最佳解答 : 1
經驗值 : 3359
威望值 : 15
注冊日期 : 2008-12-12
藍鵲270號
男 射手座 狗

回頂端 向下

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

發表 由 glassshoes2003 于 2010-03-25, 12:39

目前工作急需使用
感謝無私的分享
感恩!!
avatar
glassshoes2003
初級會員
初級會員

文章總數 : 151
年齡 : 32
來自 : 彰化縣
職業 : 自由業
愛好 : 電玩 電影 電視
個性 : 隨和
使用年資 : 0.5年
使用版本 : 2008
積分 : 3
經驗值 : 3310
威望值 : 12
注冊日期 : 2009-11-17
男 處女座 牛

回頂端 向下

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

發表 由 HEMOS 于 2010-03-25, 14:31

不錯的分享,LISP是一個值得研究的內容,
正好看看內容來學習一些知識也是不著的!
感謝bruce79大大的分享,
同時也感謝Judyyai的貢獻!
avatar
HEMOS
榮譽顧問
榮譽顧問

文章總數 : 786
年齡 : 44
來自 : 台北
職業 : 土木結構
愛好 : 攝影
個性 : 和善
使用年資 : 10年以上
使用版本 : AutoCAD 2014
積分 : 26
最佳解答 : 3
經驗值 : 7146
威望值 : 1502
回帖精華 : 1
注冊日期 : 2009-02-23
藍鵲38號
男 射手座 鼠

回頂端 向下

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

發表 由 leoneriol 于 2010-03-26, 03:17

感謝分享 竊喜
avatar
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 816
年齡 : 33
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 6552
威望值 : 938
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

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

發表 由 pizg 于 2010-04-21, 16:42

這裏有可以量測長度及面積程式,
網址 http://tw.myblog.yahoo.com/rain-fall/archive?l=f&id=19
avatar
pizg
高級會員
高級會員

文章總數 : 253
年齡 : 52
來自 : 桃園縣
職業 : 建築設計;程式設計
愛好 : 音樂;攝影;繪畫;棋奕;電腦
個性 : 隨和
使用年資 : 20↑
使用版本 : 2010
積分 : 10
經驗值 : 4058
威望值 : 320
發帖精華 : 1
注冊日期 : 2010-04-16
串連貼紙成功 男 摩羯座 龍

回頂端 向下

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

發表 由 pizg 于 2010-04-30, 06:28

感謝bruce79提供程式.

經我測試,
如果選取封閉的複線時,
面積為0,
且長度不正確!!
avatar
pizg
高級會員
高級會員

文章總數 : 253
年齡 : 52
來自 : 桃園縣
職業 : 建築設計;程式設計
愛好 : 音樂;攝影;繪畫;棋奕;電腦
個性 : 隨和
使用年資 : 20↑
使用版本 : 2010
積分 : 10
經驗值 : 4058
威望值 : 320
發帖精華 : 1
注冊日期 : 2010-04-16
串連貼紙成功 男 摩羯座 龍

回頂端 向下

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

發表 由 Boss&倫 于 2010-05-02, 07:46

計算長度的LISP我有,面積LISP我想看看!
avatar
Boss&倫
中級會員
中級會員

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

回頂端 向下

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

發表 由 白金之星 于 2010-06-17, 08:04

自己不會寫
至少別人寫也要會用
謝謝大大.

白金之星
初級會員
初級會員

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

回頂端 向下

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

發表 由 Andy.Lin 于 2010-07-09, 05:54

我都是計算公尺,很少用到公分和公厘。
avatar
Andy.Lin
初級會員
初級會員

文章總數 : 79
年齡 : 45
來自 : Taipei
職業 : Engineer
愛好 : Play Game
個性 : Happy
使用年資 : 15 years
使用版本 : AUTOCAD 2000~2014
積分 : 3
經驗值 : 3016
威望值 : 87
注冊日期 : 2010-06-07
藍鵲24號
男 摩羯座 豬

回頂端 向下

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

發表 由  于 2010-07-26, 07:03

感謝大大分享
avatar
一般會員
一般會員

文章總數 : 45
年齡 : 33
來自 : 新竹
職業 : 製造業
愛好 : 游泳
個性 : 隨和
使用年資 : 斷斷續續..學習中
使用版本 : 2010
經驗值 : 2789
威望值 : 0
注冊日期 : 2010-07-01
女 雙子座 鼠

回頂端 向下

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

發表 由 it930 于 2010-08-03, 15:22

謝謝您的分享~
正好有這個需要~謝謝
也學習到原來CAD也可以像是寫程式依樣~輸入指令
頭暈目眩
avatar
it930
初級會員
初級會員

文章總數 : 47
年齡 : 33
來自 : 高雄
職業 : 設計
愛好 : ~看書~~運動~上網~
個性 : 隨和
使用年資 : 5年~
使用版本 : 2014
積分 : 2
經驗值 : 3129
威望值 : 9
注冊日期 : 2009-08-11
藍鵲241號
串連貼紙成功 女 雙子座 鼠

回頂端 向下

1頁(共2頁) 1, 2  下一步

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章