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線上個人顧問，是您學習路上最佳的良師益友，也是職場中最即時的支援後盾！

[分享]計算某某材質的斷面積及重量的AutoLisp Ioaoe110[分享]計算某某材質的斷面積及重量的AutoLisp 2020-310[分享]計算某某材質的斷面積及重量的AutoLisp Oiu15010[分享]計算某某材質的斷面積及重量的AutoLisp 2020-211[分享]計算某某材質的斷面積及重量的AutoLisp Ia15010[分享]計算某某材質的斷面積及重量的AutoLisp Aizyao10[分享]計算某某材質的斷面積及重量的AutoLisp Uos15010[分享]計算某某材質的斷面積及重量的AutoLisp BPl3tjj[分享]計算某某材質的斷面積及重量的AutoLisp Ziao1510
[分享]計算某某材質的斷面積及重量的AutoLisp Aoe15010[分享]計算某某材質的斷面積及重量的AutoLisp Oo-2-110[分享]計算某某材質的斷面積及重量的AutoLisp Zuoiy_10[分享]計算某某材質的斷面積及重量的AutoLisp Aizyao11[分享]計算某某材質的斷面積及重量的AutoLisp Iyb_1510[分享]計算某某材質的斷面積及重量的AutoLisp Aoe1-111[分享]計算某某材質的斷面積及重量的AutoLisp Uos15011[分享]計算某某材質的斷面積及重量的AutoLisp Aoe2da10[分享]計算某某材質的斷面積及重量的AutoLisp Aoe2da11[分享]計算某某材質的斷面積及重量的AutoLisp Aoe10

[分享]計算某某材質的斷面積及重量的AutoLisp

+5
likesela
shinjii
judyyai
机械工程师
CADkawaii
9 posters

AutoCAD顧問 :: 技術(發言等級:一般會員) ::   :: 進階討論

向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 CADkawaii 2009-05-21, 17:56

計算某某材質的斷面積及重量的AutoLisp ，這個Lisp以鋼材密度 7.85 來計算，你可以任意修改成你要計算的材質或輸出方式。

代碼:


(defun C:AreaCal (/ *error*
   olderr　OLC　OSM　OBM　ODM　oldsnp　dimscal　olayer　hh　click　en　aa　MxM　MxMtextout　pt　Prb　Txt　OTWeight　OTWeighttextout
   default
   Eobj)

  (setq   olderr *error*   )
  (setq *error* DectectError)
  (setq OLC (getvar "LIMCHECK"))
  (setq OSM (getvar "OSMODE"))
  (setq OCE (getvar "CMDECHO"))
  (setq OBM (getvar "BLIPMODE"))
  (setq ODM (getvar "DRAGMODE"))
  (setq oldsnp (getvar "snapmode"))
  (setq dimscal (getvar "dimscale"))
  (setq olayer (getvar "clayer"))
  (command "undo" "group")
  (setvar "snapmode" 0)
  (setvar "CMDECHO" 0)
;;;  **********************************
  (setq hh (* dimscal 3))
  (print "請點選欲計算面積封閉區域中的點")
  (setq click (getpoint))
    (CreateLayer "remark")
    (command "-Hatch" "prop" "solid" click "")
    (setq en (entlast))
    (changeObjLayer en "remark")
    (if(/= en nil)
       (progn
     (command "Area" "O" en)
     ;;(redraw en 3)
     (setq aa (getvar "area"))
    
     ;;米平方計算
     (setq MxM (/ aa 1000000.000000))
     (setq MxMtextout (rtos MxM 2 15))

     (setq pt(getpoint "\n 選取文字位置點: "))
     ;;***********Text Label***********
     (setvar "OSMODE" OSM)
    
     (setq dimscal (getvar "dimscale"))
     (setvar "TextSize" (* dimscal 3))
     (SETQ Prb (polar pt 0 (* 1.5 60 dimscal)))
     (setvar "DIMZIN" 8)
     (setq Txt (strcat "面積=" MxMtextout " M平方" ))
     (command "-MTEXT" pt "J" "ML" Prb Txt "")
 
     ;;(command "text" click hh 0 (strcat "面積=" MxMtextout " M平方" ) "")

     ;;CM平方計算
     (setq CMXCM (/ aa 100.000000))
     (setq CMXCMtextout (rtos CMXCM 2 15))

     ;;***********Text Label***********
     (setq pt (polar pt (* 1.5 pi) (* hh 2))) ;; 向下推一行
     (setq dimscal (getvar "dimscale"))
     (setvar "TextSize" (* dimscal 3))
     (SETQ Prb (polar pt 0 (* 1.5 60 dimscal)))
     (setvar "DIMZIN" 8)
     (setq Txt (strcat "鋼材斷面積=" CMXCMtextout " CM平方" ))
     (command "-MTEXT" pt "J" "ML" Prb Txt "")
     ;;(command "text" click hh 0 (strcat "面積=" CMXCMtextout " CM平方" ) "")
    
     (setq OTWeight (* aa 0.00785)) ;;密度
     (setq OTWeighttextout (rtos OTWeight 2 2))
     ;;***********Text Label***********
     (setq pt (polar pt (* 1.5 pi) (* hh 2)));; 向下推一行
     (setq dimscal (getvar "dimscale"))
     (setvar "TextSize" (* dimscal 3))
     (SETQ Prb (polar pt 0 (* 1.5 60 dimscal)))
     (setvar "DIMZIN" 8)
     (setq Txt (strcat "OT 每米重量=" OTWeighttextout "Kg" ))
     (command "-MTEXT" pt "J" "ML" Prb Txt "")

     ;;***********材料長度***********
     (setq OTL (getstring (strcat "請輸入材料總長(注意!!接近規格尺寸請輸入規格尺寸，以利計價 1mm = 0.001 單位M):")))
       (setq OTL (Atof OTL))

     (setq OTTTWeight (* aa 0.00785 OTL))
     (setq OTTTWeighttextout (rtos OTTTWeight 2 2))
     ;;***********Text Label***********
     (setq pt (polar pt (* 1.5 pi) (* hh 2)));; 向下推一行
     (setq dimscal (getvar "dimscale"))
     (setvar "TextSize" (* dimscal 3))
     (SETQ Prb (polar pt 0 (* 1.5 60 dimscal)))
     (setvar "DIMZIN" 8)
     (setq Txt (strcat "OT " (rtos OTL 2 5) "M 總重量=" OTTTWeighttextout "Kg" ))
     (command "-MTEXT" pt "J" "ML" Prb Txt "")
     (command "erase" en "")    
   )
    )
  (setvar "LIMCHECK" OLC)
  (setvar "OSMODE" OSM)
  (setvar "CMDECHO" OCE)
  (setvar "BLIPMODE" OBM)
  (setvar "DRAGMODE" ODM)
  (setvar "snapmode" oldsnp)
  (setvar "Clayer" olayer)
  (setq *error* olderr)
  (command "undo" "end")
  (prompt "\n  =^.^= Max T. =^.^= ")
)

(defun DectectError (s)
  (if (/= s "指令取消")
    (princ)
    (princ (strcat "\nError: " s))
  )               
  (setvar "LIMCHECK" OLC)
  (setvar "OSMODE" OSM)
  (setvar "CMDECHO" OCE)
  (setvar "BLIPMODE" OBM)
  (setvar "DRAGMODE" ODM)
  (setvar "snapmode" oldsnp)
  (setvar "Clayer" olayer)
  (setq *error* olderr)
  (command "undo" "end")
  (setvar "CMDECHO" OCE)
)         

;;********************** Create Temp Layer *******************************
(defun CreateLayer (TmpLayer)
  (setq SearchResault (tblsearch "layer" TmpLayer))
  (if (null SearchResault)
    (command "-layer" "n" TmpLayer "")
    (command "Clayer" TmpLayer "")
  )
)
;;;************************ changeObjLayer *********************************
(defun changeObjLayer (obj Layername)
  (command "chprop" obj "" "la" Layername "")
)



Tiger&蘋果爸 在 2010-01-14, 10:46 作了第 3 次修改 (原因 : 修正)
CADkawaii
CADkawaii
中級會員
中級會員

文章總數 : 76
年齡 : 53
來自 : 台北
職業 : 工
愛好 : 刺繡插花
個性 : 溫文儒雅
積分 : 7
經驗值 : 5543
威望值 : 52
發帖精華 : 1
注冊日期 : 2009-05-21
男 摩羯座 狗

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 机械工程师 2009-05-22, 22:27

初步看了下，很完整的程序，有出错处理，对学习lsp很有帮助的。
机械工程师
机械工程师
初級會員
初級會員

文章總數 : 35
年齡 : 46
來自 : china
職業 : live
個性 : good
積分 : 1
經驗值 : 5528
威望值 : 3
注冊日期 : 2009-03-26
男 天蝎座 蛇

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 judyyai 2009-05-22, 23:17

CADkawaii 寫到:計算某某材質的斷面積及重量的AutoLisp ，這個Lisp以鋼材密度 7.85 來計算，你可以任意修改成你要計算的材質或輸出方式。
Spoiler（用來隱藏帖子內容）:

感謝分享!積分 1

請問這是你自己寫的嗎?
若不是最好註明出處!比較妥當!

____________________________________________________________________________________
[分享]計算某某材質的斷面積及重量的AutoLisp Ioaoe110 [分享]計算某某材質的斷面積及重量的AutoLisp Zuoiy_10 [分享]計算某某材質的斷面積及重量的AutoLisp 2020-211 [分享]計算某某材質的斷面積及重量的AutoLisp Aizyao11 [分享]計算某某材質的斷面積及重量的AutoLisp Aoe10
[分享]計算某某材質的斷面積及重量的AutoLisp Aizyao10 [分享]計算某某材質的斷面積及重量的AutoLisp BPl3tjj.png [分享]計算某某材質的斷面積及重量的AutoLisp Ziao1510 [分享]計算某某材質的斷面積及重量的AutoLisp Oo-2-110 [分享]計算某某材質的斷面積及重量的AutoLisp Aoe1-111
judyyai
judyyai
管理顧問
管理顧問

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

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 CADkawaii 2009-05-23, 10:49

是阿，我還寫了不銹鋼，鋁材，玻璃等計算

(command "bpoly" click "")
(setq en (entlast))

重點就是用 boundary 指令將產生的 Poly 存起來，再用計算面積指令算面積，這個程式並不困難。

(if(/= en nil)
(progn
(command "Area" "O" en)
(redraw en 3)
(setq aa (getvar "area"))

本來想連續加總做大量計算，我發現會忘記自己點到哪了，不如把材料斷面先清點列表，再來算重量。

密度直接改7.93 可以計算不銹鋼#304 ，改7.98 可以計算 #316
其他材料如 metal sheet 要改一下輸出入方式，鋁材、玻璃則有各種密度。
CADkawaii
CADkawaii
中級會員
中級會員

文章總數 : 76
年齡 : 53
來自 : 台北
職業 : 工
愛好 : 刺繡插花
個性 : 溫文儒雅
積分 : 7
經驗值 : 5543
威望值 : 52
發帖精華 : 1
注冊日期 : 2009-05-21
男 摩羯座 狗

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 CADkawaii 2009-05-23, 15:29

机械工程师 寫到:初步看了下，很完整的程序，有出错处理，对学习lsp很有帮助的。

http://www.jefferypsanders.com/autolisp.html#NUM
jeffery 有很多完整的範例，我大部分都看他寫的，跟你分享。
CADkawaii
CADkawaii
中級會員
中級會員

文章總數 : 76
年齡 : 53
來自 : 台北
職業 : 工
愛好 : 刺繡插花
個性 : 溫文儒雅
積分 : 7
經驗值 : 5543
威望值 : 52
發帖精華 : 1
注冊日期 : 2009-05-21
男 摩羯座 狗

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 shinjii 2009-05-30, 22:27

沒學過這樣的功能
這lisp還真好用耶～！

謝謝大大無私的分享

____________________________________________________________________________________

shinjii
shinjii
中級會員
中級會員

文章總數 : 149
年齡 : 42
來自 : 台北
職業 : 朝全能的工程師邁進
愛好 : 騎鐵馬、爬文
個性 : 用平靜的心看待一切
使用年資 : 還太嫩...
使用版本 : 2008、2010、2012
積分 : 6
經驗值 : 5865
威望值 : 90
注冊日期 : 2009-05-20
藍鵲299號
2009聚會勳章 串連貼紙成功 男 射手座 雞

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 likesela 2009-06-02, 09:18

工作上很須要~謝謝
likesela
likesela
初級會員
初級會員

文章總數 : 16
年齡 : 42
來自 : albadl
職業 : l;jfa;slj
個性 : gl;ajsdf;lkas
積分 : 1
經驗值 : 5484
威望值 : -1
未回應主題 : 1
注冊日期 : 2009-05-15
男 水瓶座 狗

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 CADkawaii 2009-06-03, 17:38

修正一下

(defun C:AreaCal ( / *error*)

害羞 忘了宣告 *error* 要第一個宣告變數才有用
CADkawaii
CADkawaii
中級會員
中級會員

文章總數 : 76
年齡 : 53
來自 : 台北
職業 : 工
愛好 : 刺繡插花
個性 : 溫文儒雅
積分 : 7
經驗值 : 5543
威望值 : 52
發帖精華 : 1
注冊日期 : 2009-05-21
男 摩羯座 狗

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 CADkawaii 2009-06-06, 19:24

害羞 害羞 修正錯誤，改用 Hatch 來計算斷面積，對於中空圖形計算就不會出錯了，還有修改以前錯誤的寫法


代碼:

(defun C:AreaCal (/ *error*
   olderr　OLC　OSM　OBM　ODM　oldsnp　dimscal　olayer　hh　click　en　aa　MxM　MxMtextout　pt　Prb　Txt　OTWeight　OTWeighttextout
   default
   Eobj)

  (setq   olderr *error*   )
  (setq *error* DectectError)
  (setq OLC (getvar "LIMCHECK"))
  (setq OSM (getvar "OSMODE"))
  (setq OCE (getvar "CMDECHO"))
  (setq OBM (getvar "BLIPMODE"))
  (setq ODM (getvar "DRAGMODE"))
  (setq oldsnp (getvar "snapmode"))
  (setq dimscal (getvar "dimscale"))
  (setq olayer (getvar "clayer"))
  (command "undo" "group")
  (setvar "snapmode" 0)
  (setvar "CMDECHO" 0)
;;;  **********************************
  (setq hh (* dimscal 3))
  (print "請點選欲計算面積封閉區域中的點")
  (setq click (getpoint))
    (CreateLayer "remark")
    (command "-Hatch" "prop" "solid" click "")
    (setq en (entlast))
    (changeObjLayer en "remark")
    (if (= (cdr (assoc 0 (entget en))) "HATCH")
       (progn
     (command "Area" "O" en)
     ;;(redraw en 3)
     (setq aa (getvar "area"))
    
     ;;米平方計算
     (setq MxM (/ aa 1000000.000000))
     (setq MxMtextout (rtos MxM 2 15))

     (setq pt(getpoint "\n 選取文字位置點: "))
     ;;***********Text Label***********
     (setvar "OSMODE" OSM)
    
     (setq dimscal (getvar "dimscale"))
     (setvar "TextSize" (* dimscal 3))
     (SETQ Prb (polar pt 0 (* 1.5 60 dimscal)))
     (setvar "DIMZIN" 8)
     (setq Txt (strcat "面積=" MxMtextout " M平方" ))
     (command "-MTEXT" pt "J" "ML" Prb Txt "")
 
     ;;(command "text" click hh 0 (strcat "面積=" MxMtextout " M平方" ) "")

     ;;CM平方計算
     (setq CMXCM (/ aa 100.000000))
     (setq CMXCMtextout (rtos CMXCM 2 15))

     ;;***********Text Label***********
     (setq pt (polar pt (* 1.5 pi) (* hh 2))) ;; 向下推一行
     (setq dimscal (getvar "dimscale"))
     (setvar "TextSize" (* dimscal 3))
     (SETQ Prb (polar pt 0 (* 1.5 60 dimscal)))
     (setvar "DIMZIN" 8)
     (setq Txt (strcat "鋼材斷面積=" CMXCMtextout " CM平方" ))
     (command "-MTEXT" pt "J" "ML" Prb Txt "")
     ;;(command "text" click hh 0 (strcat "面積=" CMXCMtextout " CM平方" ) "")
    
     (setq OTWeight (* aa 0.00785)) ;;密度
     (setq OTWeighttextout (rtos OTWeight 2 2))
     ;;***********Text Label***********
     (setq pt (polar pt (* 1.5 pi) (* hh 2)));; 向下推一行
     (setq dimscal (getvar "dimscale"))
     (setvar "TextSize" (* dimscal 3))
     (SETQ Prb (polar pt 0 (* 1.5 60 dimscal)))
     (setvar "DIMZIN" 8)
     (setq Txt (strcat "OT 每米重量=" OTWeighttextout "Kg" ))
     (command "-MTEXT" pt "J" "ML" Prb Txt "")

     ;;***********材料長度***********
     (setq OTL (getstring (strcat "請輸入材料總長(注意!!接近規格尺寸請輸入規格尺寸，以利計價 1mm = 0.001 單位M):")))
       (setq OTL (Atof OTL))

     (setq OTTTWeight (* aa 0.00785 OTL))
     (setq OTTTWeighttextout (rtos OTTTWeight 2 2))
     ;;***********Text Label***********
     (setq pt (polar pt (* 1.5 pi) (* hh 2)));; 向下推一行
     (setq dimscal (getvar "dimscale"))
     (setvar "TextSize" (* dimscal 3))
     (SETQ Prb (polar pt 0 (* 1.5 60 dimscal)))
     (setvar "DIMZIN" 8)
     (setq Txt (strcat "OT " (rtos OTL 2 5) "M 總重量=" OTTTWeighttextout "Kg" ))
     (command "-MTEXT" pt "J" "ML" Prb Txt "")
     (command "erase" en "")    
   )
      (print "點選錯誤")
    )
  (setvar "LIMCHECK" OLC)
  (setvar "OSMODE" OSM)
  (setvar "CMDECHO" OCE)
  (setvar "BLIPMODE" OBM)
  (setvar "DRAGMODE" ODM)
  (setvar "snapmode" oldsnp)
  (setvar "Clayer" olayer)
  (setq *error* olderr)
  (command "undo" "end")
  (prompt "\n  =^.^= Max T. =^.^= ")
)

(defun DectectError (s)
  (if (/= s "指令取消")
    (princ)
    (princ (strcat "\nError: " s))
  )               
  (setvar "LIMCHECK" OLC)
  (setvar "OSMODE" OSM)
  (setvar "CMDECHO" OCE)
  (setvar "BLIPMODE" OBM)
  (setvar "DRAGMODE" ODM)
  (setvar "snapmode" oldsnp)
  (setvar "Clayer" olayer)
  (setq *error* olderr)
  (command "undo" "end")
  (setvar "CMDECHO" OCE)
)         

;;********************** Create Temp Layer *******************************
(defun CreateLayer (TmpLayer)
  (setq SearchResault (tblsearch "layer" TmpLayer))
  (if (null SearchResault)
    (command "-layer" "n" TmpLayer "")
    (command "Clayer" TmpLayer "")
  )
)
;;;************************ changeObjLayer *********************************
(defun changeObjLayer (obj Layername)
  (command "chprop" obj "" "la" Layername "")
)

CADkawaii
CADkawaii
中級會員
中級會員

文章總數 : 76
年齡 : 53
來自 : 台北
職業 : 工
愛好 : 刺繡插花
個性 : 溫文儒雅
積分 : 7
經驗值 : 5543
威望值 : 52
發帖精華 : 1
注冊日期 : 2009-05-21
男 摩羯座 狗

Tiger&蘋果爸 likes this post

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 DIGE 2009-09-02, 12:50

真的很好用
最近對LSP非常有興趣XD
DIGE
DIGE
初級會員
初級會員

文章總數 : 42
年齡 : 37
來自 : 台中市
職業 : 繪圖員
愛好 : 看書
個性 : 正常
使用年資 : 8
使用版本 : 2010
積分 : 1
經驗值 : 5530
威望值 : 11
注冊日期 : 2009-07-11
男 雙子座 虎

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 米虫 2009-11-26, 23:33

請問這lsp 可直接放cad中 就可執行嗎 還是每一次都要load進去
米虫
米虫
初級會員
初級會員

文章總數 : 139
年齡 : 47
來自 : 高雄市
職業 : 營造.鋼構.機械
愛好 : 羽球 四處晃
個性 : 溫良恭儉讓
使用年資 : 15年
使用版本 : 2004
積分 : 2
經驗值 : 5809
威望值 : 64
注冊日期 : 2009-06-23
串連貼紙成功 男 雙子座 龍

http://tw.myblog.yahoo.com/jw!Dij_IuqXE0bN3WWaZVM-/

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 Tiger&蘋果爸 2009-11-27, 10:40

米虫 寫到:請問這lsp 可直接放cad中 就可執行嗎  還是每一次都要load進去
可以參考以下二種方式將它自動掛入!

[教學]載入LISP應用程式 APPLOAD指令
https://www.autocad-tw.com/t111-topic

[影片]自訂CUI 載入LISP
https://www.autocad-tw.com/t3999-topic


Tiger&蘋果爸 在 2022-04-18, 17:21 作了第 1 次修改

____________________________________________________________________________________
👉[優惠]慶祝AutoCAD顧問十六週年の感謝有你(點我)👈
[分享]計算某某材質的斷面積及重量的AutoLisp Sesa2011 [分享]計算某某材質的斷面積及重量的AutoLisp Youtub11 [分享]計算某某材質的斷面積及重量的AutoLisp Oiea2011 [分享]計算某某材質的斷面積及重量的AutoLisp Oe20011 [分享]計算某某材質的斷面積及重量的AutoLisp Fbi20011 [分享]計算某某材質的斷面積及重量的AutoLisp Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21137
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88785
威望值 : 16961
注冊日期 : 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

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 米虫 2009-11-28, 01:44

謝謝囉 感謝蘋爸分享 讓我知道怎樣LOAD指令..手上有一些LSP可以用 我電腦指令要整理一番了
米虫
米虫
初級會員
初級會員

文章總數 : 139
年齡 : 47
來自 : 高雄市
職業 : 營造.鋼構.機械
愛好 : 羽球 四處晃
個性 : 溫良恭儉讓
使用年資 : 15年
使用版本 : 2004
積分 : 2
經驗值 : 5809
威望值 : 64
注冊日期 : 2009-06-23
串連貼紙成功 男 雙子座 龍

http://tw.myblog.yahoo.com/jw!Dij_IuqXE0bN3WWaZVM-/

回頂端 向下

[分享]計算某某材質的斷面積及重量的AutoLisp Empty 回復： [分享]計算某某材質的斷面積及重量的AutoLisp

發表 由 aaaaaa1111 2009-12-19, 22:28

非常感謝分享
aaaaaa1111
aaaaaa1111
一般會員
一般會員

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

回頂端 向下

回頂端

AutoCAD顧問 :: 技術(發言等級:一般會員) ::   :: 進階討論

 
這個論壇的權限：
您 無法 在這個版面回復文章
[分享]計算某某材質的斷面積及重量的AutoLisp Ioaoe110[分享]計算某某材質的斷面積及重量的AutoLisp 2020-310[分享]計算某某材質的斷面積及重量的AutoLisp Oiu15010[分享]計算某某材質的斷面積及重量的AutoLisp 2020-211[分享]計算某某材質的斷面積及重量的AutoLisp Ia15010[分享]計算某某材質的斷面積及重量的AutoLisp Aizyao10[分享]計算某某材質的斷面積及重量的AutoLisp Uos15010[分享]計算某某材質的斷面積及重量的AutoLisp BPl3tjj[分享]計算某某材質的斷面積及重量的AutoLisp Ziao1510
[分享]計算某某材質的斷面積及重量的AutoLisp Aoe15010[分享]計算某某材質的斷面積及重量的AutoLisp Oo-2-110[分享]計算某某材質的斷面積及重量的AutoLisp Zuoiy_10[分享]計算某某材質的斷面積及重量的AutoLisp Aizyao11[分享]計算某某材質的斷面積及重量的AutoLisp Iyb_1510[分享]計算某某材質的斷面積及重量的AutoLisp Aoe1-111[分享]計算某某材質的斷面積及重量的AutoLisp Uos15011[分享]計算某某材質的斷面積及重量的AutoLisp Aoe2da10[分享]計算某某材質的斷面積及重量的AutoLisp Aoe2da11[分享]計算某某材質的斷面積及重量的AutoLisp Aoe10