朋友们好，需要帮助！

DuanJinHui · 发表于 2022-7-5 18:39:24

朋友们好。

(setq pt1 (cadr (entsel "\nPick the obj:")))

上面的代码可以得到点坐标，是没有拾取任何东西都会返回“nil”

我想，如果没有pick，那么仍然返回pick点坐标，比如函数（getpoint）。

有什么好主意吗？

ReMark · 发表于 2022-7-5 18:46:04

更具描述性的线程标题也会有所帮助。

DuanJinHui · 发表于 2022-7-5 18:51:37

谢谢你的评论，但我不知道该怎么形容。我很抱歉。

Tharwat · 发表于 2022-7-5 18:56:19

也许是这个

copy


(if (not (setq pt1 (cadr (entsel "\nPick the obj:"))))
 (setq pt1 (cadr (grread t 15 0)))
)

satishrajdev · 发表于 2022-7-5 19:00:35

那么为什么不使用GETPOINT函数呢。

DuanJinHui · 发表于 2022-7-5 19:02:21

非常感谢你，塔瓦。非常好！

Tharwat · 发表于 2022-7-5 19:07:14

非常欢迎你。

DuanJinHui · 发表于 2022-7-5 19:12:57

嗨，塔瓦特先生。
（setq pt1（cadr（entsel“\n点击对象：”），
上面的代码有一个小缺陷。
坐标精度受缩放限制

如。
一条水平线，x坐标为“0.0”，我在这条线上使用（setq pt1（cadr（entsel“\n点击对象：”））拾取：

结果：（18.8774-0.00995981 0.0）

缩小。。。
再次测试，结果为：（20.8111 0.0871873 0.0）

有办法解决吗？

Lee Mac · 发表于 2022-7-5 19:17:34

使用getpoint/nentselp的组合

DuanJinHui · 发表于 2022-7-5 19:22:21

谢谢李，
你的意思是这样：

copy


(if        (and (setq p (getpoint "\nSelect: "))
(setq e (cadr(nentselp p)))
)
e
p
)

但我觉得这样做没有什么不同
仅（setq p（getpoint“\n选择：”））

[编程交流] 朋友们好，需要帮助！

发表回复

精选推荐