明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4472|回复: 4

[提问] 如何获取矩形的四个顶点坐标

[复制链接]
发表于 2014-4-20 17:06 | 显示全部楼层 |阅读模式
如何获取矩形的四个顶点坐标
发表于 2014-4-20 19:41 | 显示全部楼层
;;获取矩形顶点;(setq plst (get_vertexs (car en))
(defun get_vertexs (en)
(mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en)))
)

点评

(defun get_vertexs (en) (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (member(assoc 10(entget en))(entget en)))) ) 不知道有没心要  发表于 2014-4-21 13:27
发表于 2014-4-21 13:30 | 显示全部楼层
kwok 发表于 2014-4-20 19:41
;;获取矩形顶点;(setq plst (get_vertexs (car en))
(defun get_vertexs (en)
(mapcar 'cdr (vl-remove-i ...

想了下,确实没必要,楼上这个应该是简洁和效率完美结合的,学习了
发表于 2014-4-21 13:46 | 显示全部楼层
本帖最后由 xyp1964 于 2014-4-21 13:55 编辑

如果是polyline实体就有问题了
还丢了Z轴数据
发表于 2014-4-21 19:21 | 显示全部楼层
;;取得多段线节点坐标,返回坐标以多段线的ocs表示
;;测试(if (setq lwp(car(entsel))) (vertexs lwp))
;;此函数无参数检验
(defun vertexs (entity / entdat zpos xyclst)
  ;;此位置可加入参数检验
  (setq entdat (entget entity)) ;_图元数据表
  (setq zpos (cdr (assoc 38 entdat))) ;_ocs的Z坐标
  (setq        xyclst (vl-remove-if-not
                 '(lambda (itm)
                    (= (car itm) 10)
                  )
                 entdat
               )
  )
  (mapcar '(lambda (xy)
             (list (cadr xy) (caddr xy) zpos)
           )
          xyclst
  )
)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 16:54 , Processed in 0.266666 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表