求一个矩形的4个顶点坐标

bbs970056782 · 发表于 2019-7-20 02:20:16

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

×

怎么样可以获取一个矩形的4个顶点坐标

爱莫能助 · 发表于 2019-7-20 14:12:41

(setq p0 (Mapcar 'cdr (vl-remove-if-not '(Lambda (x) (= (car x) 10)) (entget (car (entsel "\n选择多段线:"))))));取多段线所有坐标点

bbs970056782 · 发表于 2019-7-20 02:22:33

自己顶，有人吗

azyg125 · 发表于 2019-7-20 03:14:48

命令行里键入list，选择矩形。
来自: 微社区

tzfcn · 发表于 2019-7-20 07:07:12

要求太简单，是标注还是赋值给变量？

yinchuan99001 · 发表于 2019-7-20 08:21:40

本帖最后由 yinchuan99001 于 2019-7-20 08:27 编辑

最好，上个图说明一下你的具体要求，这样大家好就事论事，进行学习探讨，你看可不可以。(entget (car (entsel)))看组码就得到坐标了。

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

[求助] 求一个矩形的4个顶点坐标