[已解決][問題]小弟又來打擾了,詢問lisp自動裁線
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
a14333683- 一般會員
- 文章總數 : 26
年齡 : 41
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 5
使用版本 : 2018
經驗值 : 2157
威望值 : 18
注冊日期 : 2019-04-16
回復: [已解決][問題]小弟又來打擾了,詢問lisp自動裁線
因為不太清楚你的圖與表達的意思與需求,只能提供一點我的想法
有旁邊兩條線的圖元資料,可以嘗試使用trim,選取旁邊兩條線,在抓兩條線端點的座標相加除與二得到中點
就能把那條短的線段裁切掉
由於沒有看到你的lisp是如何寫的所以我沒辦法提供更多的建議
只能讓其他的高手來解答了
我假設那兩條線的圖元名稱為n1與n2來寫了一小段看看行不行
有旁邊兩條線的圖元資料,可以嘗試使用trim,選取旁邊兩條線,在抓兩條線端點的座標相加除與二得到中點
就能把那條短的線段裁切掉
由於沒有看到你的lisp是如何寫的所以我沒辦法提供更多的建議
只能讓其他的高手來解答了
我假設那兩條線的圖元名稱為n1與n2來寫了一小段看看行不行
- 代碼:
(command "trim" n1 n2 "" (list (/ (+ (cadr (assoc 10 (entget n1))) (cadr (assoc 10 (entget n2)))) 2)
(/ (+ (caddr (assoc 10 (entget n1))) (caddr (assoc 10 (entget n2)))) 2))
(list (/ (+ (cadr (assoc 11 (entget n1))) (cadr (assoc 11 (entget n2)))) 2)
(/ (+ (caddr (assoc 11 (entget n1))) (caddr (assoc 11 (entget n2)))) 2))
"")
Nyan- 一般會員
- 文章總數 : 5
年齡 : 28
來自 : 桃園
職業 : 測量
愛好 : 遊戲
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2010
經驗值 : 2090
威望值 : 44
注冊日期 : 2019-03-25
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章