AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
[討論]請問AutoLisp如何得到單一多線段的每個座標 Oooo-110 [討論]請問AutoLisp如何得到單一多線段的每個座標 Oo-2-110 [討論]請問AutoLisp如何得到單一多線段的每個座標 Ia15010 [討論]請問AutoLisp如何得到單一多線段的每個座標 Ziao1510 [討論]請問AutoLisp如何得到單一多線段的每個座標 BPl3tjj [討論]請問AutoLisp如何得到單一多線段的每個座標 Uos15010 [討論]請問AutoLisp如何得到單一多線段的每個座標 Uos15011

[討論]請問AutoLisp如何得到單一多線段的每個座標

向下

[討論]請問AutoLisp如何得到單一多線段的每個座標 Empty [討論]請問AutoLisp如何得到單一多線段的每個座標

發表 由 a14333683 于 2019-08-12, 16:32

如題
AutoLisp如何得到單一多線段的每個座標位置

[討論]請問AutoLisp如何得到單一多線段的每個座標 Su10
a14333683
a14333683
一般會員
一般會員

文章總數 : 20
年齡 : 36
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 3
使用版本 : 2018
經驗值 : 260
威望值 : 12
注冊日期 : 2019-04-16
男 摩羯座 狗

回頂端 向下

[討論]請問AutoLisp如何得到單一多線段的每個座標 Empty 回復: [討論]請問AutoLisp如何得到單一多線段的每個座標

發表 由 a14333683 于 2019-08-13, 12:08

我抓到群碼值了,但他有4個群碼值都是10要怎麼分開

[討論]請問AutoLisp如何得到單一多線段的每個座標 12312311
a14333683
a14333683
一般會員
一般會員

文章總數 : 20
年齡 : 36
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 3
使用版本 : 2018
經驗值 : 260
威望值 : 12
注冊日期 : 2019-04-16
男 摩羯座 狗

回頂端 向下

[討論]請問AutoLisp如何得到單一多線段的每個座標 Empty 回復: [討論]請問AutoLisp如何得到單一多線段的每個座標

發表 由 naruto018 于 2019-08-13, 17:41

參考看看
代碼:
;;;得到圖元串列內群組碼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
naruto018
中級會員
中級會員

文章總數 : 152
年齡 : 27
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 2019
威望值 : 306
注冊日期 : 2016-11-29
藍鵲726號
男 摩羯座 羊

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]請問AutoLisp如何得到單一多線段的每個座標 Uos15011 [討論]請問AutoLisp如何得到單一多線段的每個座標 Uos15010 [討論]請問AutoLisp如何得到單一多線段的每個座標 BPl3tjj [討論]請問AutoLisp如何得到單一多線段的每個座標 Ziao1510 [討論]請問AutoLisp如何得到單一多線段的每個座標 Ia15010 [討論]請問AutoLisp如何得到單一多線段的每個座標 Oo-2-110 [討論]請問AutoLisp如何得到單一多線段的每個座標 Oooo-110