[求助]：如何提取矩形边界顶点坐标

yanxinbo67 · 发表于 2004-6-24 15:44:48

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

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

×

用entget选取由boundary生成的矩形边界后，显示如下：
选择对象: ((-1 . <图元名: 40065d98>) (0 . "LWPOLYLINE") (330 . <图元名:
40065cf8>) (5 . "33") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10
261.031 247.975) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 45.3518 247.975) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 45.3518 182.519) (40 . 0.0) (41 . 0.0) (42 .
0.0) (10 261.031 182.519) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

上面结果中，四个数组为矩形四个顶点坐标，取码值全是10
(10 261.031 247.975)
(10 45.3518 247.975)
(10 45.3518 182.519)
(10 261.031 182.519)

用函数ASSOC 提取顶点数据，结果仅是第一个顶点坐标，其余几个怎样提取出来
(10 261.031 247.975)

aidraft · 发表于 2004-6-24 19:10:23

一个个提取
(DEFUN GETPTS (ENT / PTLST)
  (SETQ PTLST '())
  (MAPCAR '(LAMBDA (X)
      (IF (= (CAR X) 10)
         (SETQ PTLST (APPEND PTLST (LIST (CDR X))))
      )
   )
   ENT
  )
  PTLST
)

zgq_gev · 发表于 2004-6-24 22:10:32

提取完一个便将其替换如（a 261.031 247.975) 然后继续提取

lsjjm · 发表于 2004-6-25 04:10:29

也可使用内部函数: (acet-geom-vertex-list ent)

yanxinbo67 · 发表于 2004-6-25 11:08:15

谢谢大家，同时我想请教二楼楼主，你用的这几个函数我不经常用，你能否把程序写的完整些，并且加上选取命令(setq ent (entget(car(entsel))))，我直接这样加上好象不行。

maoding · 发表于 2004-6-26 08:53:03

谢了
我又学了几招

lsjjm · 发表于 2004-6-27 07:59:12

最初由 yanxinbo67 发布
[B]...你用的这几个函数我不经常用，你能否把程序写的完整些，并且加上选取命令(setq ent (entget(car(entsel))))，我直接这样加上好象不行。 [/B]

(defun listvers ( / pts)
  (foreach i (entget (car (entsel)))
(if (= (car i) 10)
   (setq pts (cons (cdr i) pts))
)
  )
  (reverse  pts)
)

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

[求助] [求助]：如何提取矩形边界顶点坐标

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

相关帖子

浏览过的版块