[求助]：读取LWPLYLINE组码

kevinchan · 发表于 2005-5-26 12:08:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我要读取多边形的顶点坐标,
((-1 . <图元名: 7ea77d68>) (0 . "LWPOLYLINE") (330 . <图元名: 7ef63cf8>) (5 .
"49CD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "内接多边形") (100 .
"AcDbPolyline") (90 . 5) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 1028.42
348.486) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1020.97 343.071) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 1023.81 334.31) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
1033.02 334.31) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1035.87 343.071) (40 .
0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))
也就是组码为10,可我每次只能读取一组,怎样才可以让P1,P2,P3为顶点坐标中为三个不同的顶点?
[PHP]
(defun c:test ()
(princ "\n读取正多边形图形DXF组码")
(setq en (entsel))
(setq endata (entget (car en)))
(setq p1 (cdr (assoc 10 endata)))
(setq p2 (cdr (assoc 10 endata)))
(setq p3 (cdr (assoc 10 endata)))
)
[/PHP]

xiao_longxin · 发表于 2005-5-26 18:49:44

(defun c:test (/ en endata p1 pp1 p2 pp2 p3 pp3)
(princ "\n读取正多边形图形DXF组码")
(setq en (entsel))
(setq endata (entget (car en)))
(setq pp1 (assoc 10 endata))
(setq p1 (cdr pp1)))
(setq endata (member pp1 endata))
(setq pp2 (assoc 10 endata))
(setq p2 (cdr pp2))
(setq endata (member pp1 endata))
(setq pp3 (assoc 10 endata))
(setq p3 (cdr pp3))
)

xyp1964 · 发表于 2005-5-26 18:57:26

试试test系列程序（实用程序汇总）下的test124－－多义线顶点坐标集(支持框选)

kevinchan · 发表于 2005-5-26 19:45:38

谢谢!这个蛮好!
[PHP]
(defun massoc (key alist / x nlist)
  (foreach x alist
(if (eq key (car x))
   (setq nlist (cons (cdr x) nlist))
)
  )
  (reverse nlist)
)
[/PHP]

狂刀 · 发表于 2005-5-26 22:58:21

(vl-remove-if '(lambda(x)(/= 10 (car x))) (entget (car(entsel))))

啵浪鼓 · 发表于 2005-5-27 00:08:22

狂刀的程序简短有力，挺好的！

不过，对于凸形或是其它非矩形的聚合线，第一组的10组码好像都没有个定数，也就是不能知道这10组码从哪开始从哪结束的？

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：读取LWPLYLINE组码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子