顧問教學
加入贊助
聯絡我們![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Aoe1-111](https://i.servimg.com/u/f67/12/31/59/66/aoe1-111.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[已解決]請問AutoLisp如何得到單一多線段的每個座標
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Empty](https://2img.net/i/empty.gif)
[已解決]請問AutoLisp如何得到單一多線段的每個座標
由 a14333683 2019-08-12, 16:32
如題
AutoLisp如何得到單一多線段的每個座標位置
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Su10](https://i.servimg.com/u/f11/20/06/27/37/su10.png)
AutoLisp如何得到單一多線段的每個座標位置
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 Su10](https://servimg.com/r/1120062737/su10.png)
a14333683 在 2019-08-23, 10:33 作了第 1 次修改
____________________________________________________________________________________
=============================================
新手上路，請前輩高抬貴手，高高舉起，輕輕放下
a14333683- 一般會員
- 文章總數 : 26
年齡 : 41
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 5
使用版本 : 2018
經驗值 : 1988
威望值 : 18
注冊日期 : 2019-04-16
回復： [已解決]請問AutoLisp如何得到單一多線段的每個座標
由 a14333683 2019-08-13, 12:08
我抓到群碼值了，但他有4個群碼值都是10要怎麼分開
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 12312311](https://i.servimg.com/u/f11/20/06/27/37/12312311.png)
![[已解決]請問AutoLisp如何得到單一多線段的每個座標 12312311](https://servimg.com/r/1120062737/12312311.png)
____________________________________________________________________________________
=============================================
新手上路，請前輩高抬貴手，高高舉起，輕輕放下
a14333683- 一般會員
- 文章總數 : 26
年齡 : 41
來自 : 宜蘭
職業 : 工程師
愛好 : 畫圖
個性 : 溫馴
使用年資 : 5
使用版本 : 2018
經驗值 : 1988
威望值 : 18
注冊日期 : 2019-04-16
回復： [已解決]請問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- 中級會員
- 文章總數 : 207
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4226
威望值 : 558
注冊日期 : 2016-11-29
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章