[討論]多邊形自動分割

看到一個軟體可以把CAD中的多邊形自動分割
其實分割頂多是一條虛線而已，手動連一連就好
可是他還會把分割的邊長標示出來
還會把分割後的四方型計算式及面積寫出來

建築繪圖的人應該都知道這是計算面積的方式
但每次為了變動的範圍必須重算
我試著使用動態圖塊製作
後續的計算式鏈結還不算困難
多邊型分割後的步驟"多邊型編號""分割後的邊長標示"動態圖塊都能辦到
利用CAD內建的表格把計算鏈結起來
唯獨"分割的虛線"以及"計算式"想要一口氣把四個步驟完成實屬不易

怕不清楚解析度大了一點

左圖為原有的多邊形，右圖為跑出來的結果
步驟:
1.點選多邊形
2.點選算式位置




請問LISP高手這樣的四個步驟可以寫得出來嗎?

感恩

措塞，發錯區了，蘋果爸、judyyai幫我轉一下

看來這真是不容易方式，都沒人回應><

mars 寫到:看來這真是不容易方式，都沒人回應><

這個我以前有用過，不過不是AutoCAD，是使用QUICKCAD內建的功能，在建築檢討法規計算面積很好用～

Tiger&蘋果爸 寫到:

mars 寫到:看來這真是不容易方式，都沒人回應><

這個我以前有用過，不過不是AutoCAD，是使用QUICKCAD內建的功能，在建築檢討法規計算面積很好用～

好像....很多附掛軟體都有這功能
目前編排整套的計算，唯一這個"列式"分割"無法一氣喝成
這套計算要能成功，CAD的內建計算還真是......屌

這真的蠻困難的，面積分割時狀況也很多，分割方式的計算需要花時間去想…

張譽璋 寫到:這真的蠻困難的，面積分割時狀況也很多，分割方式的計算需要花時間去想…

譽璋大
我已經平面寄給您
請您接收一下

譽璋大
剛剛詢問同事
對於分割來說目前使用這個軟體也是只能分為水平或垂直兩種
最後的分割還是經由人工來分割
也就是外框線以及外框內的虛線如果由人工畫好
其餘的"邊長、計算式"交由LISP跑出來可行嗎?
會不會容易得多?

這樣可行，如人工分割就不會太難，昨天已經將邊長輸出部份已經完成，再來是面積計算。

我來提供一個點線長並標註線長，並自動計算列出計算式
有3種類型
1.3角形 要點底、高
2.四邊形 點長、寬
3.梯形 要點 上底、下底、高
因為是拿以前的lisp來修改的，語法有很多不是很了解，經測試是可用的

http://pan.baidu.com/share/link?shareid=464833&uk=3341821895
http://pan.baidu.com/share/link?shareid=464835&uk=3341821895
http://pan.baidu.com/share/link?shareid=464843&uk=3341821895

▼備用載點：
Tr_3角算面積 https://www.box.com/s/mf6huds01ssc73nabnlw
sq_方形算面積 https://www.box.com/s/ea2m8y3pq7qm2lp3bgov
TT_梯形算面積 https://www.box.com/s/q5gemcfhsxpx7bl9aky4

---

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

hueigo 寫到:我來提供一個點線長並標註線長，並自動計算列出計算式
有3種類型
1.3角形 要點底、高
2.四邊形 點長、寬
3.梯形 要點 上底、下底、高
因為是拿以前的lisp來修改的，語法有很多不是很了解，經測試是可用的

試用過可以使用，謝謝hueigo無私分享～
此程式使用前需先使用 TEXTSIZE系統變數，設定文字高度。
再來可以執行：
「TR」指令 算三角形面積
「SQ」指令 算方形面積
「TT」指令 算梯形面積

註：程式預設以「公分」為計算單位，計算式則以「公尺」為單位。
▼LSP程式下載▼

可標示：圓形、弓形、扇形、三角形、矩形、平行四邊形及梯形。
三角形公式：海龍公式，Area=sqrt(s*(s-a)*(s-b)*(s-c))，s=(a+b+c)/2
弓形：Area=1/2*R^2*(θ-sinθ)，θ：圓心角，弳度。
扇形：Area=1/2*R^2*θ，θ：圓心角，弳度。
其他的就不說了，至於標示的部份可能就要自己動手囉！

Atsai 寫到:可標示：圓形、弓形、扇形、三角形、矩形、平行四邊形及梯形。
三角形公式：海龍公式，Area=sqrt(s*(s-a)*(s-b)*(s-c))，s=(a+b+c)/2
弓形：Area=1/2*R^2*(θ-sinθ)，θ：圓心角，弳度。
扇形：Area=1/2*R^2*θ，θ：圓心角，弳度。
其他的就不說了，至於標示的部份可能就要自己動手囉！

這個算面積程式可以幫助很大～感恩分享喔～

這個面積列式的功能，在建築法規檢討上用的比較多。
不過我的工作類別不是建築，而是土木，所以純粹就樓
主需求去寫而已。

除了前述的七種形式，其他的就會出現，〝請重選〞的
提示，不知道試用上是否還滿意。

感謝分享穫益良多，有下載分享之程式，但不知如何存檔使用，請位各先進指點迷津不勝感激

ronhwa0228 寫到:感謝分享穫益良多，有下載分享之程式，但不知如何存檔使用，請位各先進指點迷津不勝感激

執行cad後，點選功能表列的「工具」->「AutoLisp」->「載入應用程式」
出現「載入/缷載應用程式的對話框」，選擇「 bmz_標示面積公式.VLX」，載入。
於命寸列，輸入bmz，就可以了。

上面帖子的附檔還有些小錯誤，修正後的檔案在本帖下載！

謝謝hueigo無私分享～..我在鋼結構有用在 承造工務所中花紋鋼板或格子板 他是單位面積算重量的 很實用..以後在結算重量時就可大展身手了....

感謝大大分享

吳小魚 寫到:感謝大大分享

提醒你:
回覆文章不得少於10個字，請多點鼓勵與互動。少於10個字與以刪除。
http://autocad.bestoforum.net/forum-f14/topic-t7044.htm

Atsai 寫到:

可標示：圓形、弓形、扇形、三角形、矩形、平行四邊形及梯形。
三角形公式：海龍公式，Area=sqrt(s*(s-a)*(s-b)*(s-c))，s=(a+b+c)/2
弓形：Area=1/2*R^2*(θ-sinθ)，θ：圓心角，弳度。
扇形：Area=1/2*R^2*θ，θ：圓心角，弳度。
其他的就不說了，至於標示的部份可能就要自己動手囉！

給 Atsai 高手拍拍手.

這個程式說簡單嘛~~
其實不然, 它是有點難度的,
我也手癢寫一個來玩玩,
下載 https://dl.dropboxusercontent.com/u/17614336/softwares/CalMaster/ShapeArea.VLX

[quote="pizg"]

Atsai 寫到:
這個程式說簡單嘛~~
其實不然, 它是有點難度的,
我也手癢寫一個來玩玩,
下載 https://dl.dropboxusercontent.com/u/17614336/softwares/CalMaster/ShapeArea.VLX

pizg大哥，用2010載入執行會出現『SA ; 錯誤: 損壞的引數類型: stringp nil』
可不可以貼一下演示，看看操作的思路！

Atsai 寫到:

pizg 寫到:

Atsai 寫到:
這個程式說簡單嘛~~
其實不然, 它是有點難度的,
我也手癢寫一個來玩玩,
下載 https://dl.dropboxusercontent.com/u/17614336/softwares/CalMaster/ShapeArea.VLX

pizg大哥，用2010載入執行會出現『SA ; 錯誤: 損壞的引數類型: stringp nil』
可不可以貼一下演示，看看操作的思路！

已修訂問題, 請重新下載.

下載 https://dl.dropboxusercontent.com/u/17614336/softwares/CalMaster/ShapeArea.VLX
備用下載1： https://app.box.com/s/q4ijw8wqhgdlccm1bed86devdy4ewbm0
備用下載2： https://goo.gl/eJxRN6

我是先判斷圖形的形狀, 例如圓形, 扇形, 三角形, 矩形, 梯形...等等,
再依形狀選用適合的面積公式.

pizg 寫到:已修訂問題, 請重新下載.
下載 https://dl.dropboxusercontent.com/u/17614336/softwares/CalMaster/ShapeArea.VLX

請問這程式是否有試用期！
試用後顯示以下訊息：

代碼:

鍵入「SA」或「ShapeArea」開始執行。nil

指令: sa
試用期限已到，請聯絡 pizgchen@gmail.com

謝謝！

Tiger&蘋果爸 寫到:

pizg 寫到:已修訂問題, 請重新下載.
下載 https://dl.dropboxusercontent.com/u/17614336/softwares/CalMaster/ShapeArea.VLX

請問這程式是否有試用期！
試用後顯示以下訊息：

代碼:

鍵入「SA」或「ShapeArea」開始執行。nil

指令: sa
試用期限已到，請聯絡 pizgchen@gmail.com

謝謝！

請重新下載, 載入, 執行即可.

pizg 寫到:

Tiger&蘋果爸 寫到:

pizg 寫到:已修訂問題, 請重新下載.
下載 https://dl.dropboxusercontent.com/u/17614336/softwares/CalMaster/ShapeArea.VLX

請問這程式是否有試用期！
試用後顯示以下訊息：

代碼:

鍵入「SA」或「ShapeArea」開始執行。nil

指令: sa
試用期限已到，請聯絡 pizgchen@gmail.com

謝謝！

請重新下載, 載入, 執行即可.

pizg大大
我在想以前有執行過您的程式，後來試用期已經到了，就無法再使用。
現在這支程式裡應該有偵測到使用記錄，現在還是無法使用喔！
PS:使用2012版本。

Tiger&蘋果爸 寫到:

pizg 寫到:

Tiger&蘋果爸 寫到:

pizg 寫到:已修訂問題, 請重新下載.
下載 https://dl.dropboxusercontent.com/u/17614336/softwares/CalMaster/ShapeArea.VLX

請問這程式是否有試用期！
試用後顯示以下訊息：

代碼:

鍵入「SA」或「ShapeArea」開始執行。nil

指令: sa
試用期限已到，請聯絡 pizgchen@gmail.com

謝謝！

請重新下載, 載入, 執行即可.

pizg大大
我在想以前有執行過您的程式，後來試用期已經到了，就無法再使用。
現在這支程式裡應該有偵測到使用記錄，現在還是無法使用喔！
PS:使用2012版本。

呵~~我想您的推測是正確的,
所以我已修改部份程式碼,
請您可以放心使用此面積計算程式.