[已解決]請問AutoLisp如何得到單一多線段的每個座標
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[已解決]請問AutoLisp如何得到單一多線段的每個座標
a14333683 在 周五 23 8月 2019 - 10:33 作了第 1 次修改
____________________________________________________________________________________
=============================================
新手上路,請前輩高抬貴手,高高舉起,輕輕放下
a14333683- 一般會員
- 文章總數 : 26
年齡 : 41
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 5
使用版本 : 2018
經驗值 : 2205
威望值 : 18
注冊日期 : 2019-04-16
回復: [已解決]請問AutoLisp如何得到單一多線段的每個座標
____________________________________________________________________________________
=============================================
新手上路,請前輩高抬貴手,高高舉起,輕輕放下
a14333683- 一般會員
- 文章總數 : 26
年齡 : 41
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 5
使用版本 : 2018
經驗值 : 2205
威望值 : 18
注冊日期 : 2019-04-16
回復: [已解決]請問AutoLisp如何得到單一多線段的每個座標
參考看看
- 代碼:
;;;得到圖元串列內群組碼10的點串列
;;;作者:許昱凱
;;;時間:20190813
;;;(K:getpoint 圖元串列)
(defun K:getpoint ( asslist / pt )
(while asslist
(if (eq (caar asslist) 10)
(setq pt (append pt (list (cdar asslist))))
);_if
(setq asslist (cdr asslist))
);_while
pt
) ;_結束
_$ (K:getpoint (entget(car(entsel))))
((3116.66 2117.02) (4017.84 2448.76) (3488.81 1803.51) (4565.11 2124.31) (4120.0 1555.61))
naruto018- 中級會員
- 文章總數 : 226
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4542
威望值 : 564
注冊日期 : 2016-11-29
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章