[已解决]关于(Entsel)

hawnn · 发表于 2009-7-22 22:38:00

本帖最后由作者于 2009-7-25 22:47:14 编辑

在Lisp中,(entsel)如果选中一个对象则返回一个表,由点选对象时的光标坐标点及对象实体名但如果未选中一个实体则返回nil

我想问的是,有没有什么办法,在(entsel)没有点中任何对象的时候返回一个它的点座标,然后我就以个点为基础,用(getcorner)来获取范围

在CAD里,不管是移动,复制,或者其它命令,好像都可以这么用

luowy · 发表于 2009-7-22 23:44:00

你说的是getpoint么？

淮上 · 发表于 2009-7-22 23:53:00

移动,复制得到的是选择集，用函数ssget

至于你说的那种效果——可用grread来模仿

xchrimp · 发表于 2009-7-23 10:58:00

提示: 作者被禁止或删除内容自动屏蔽

mmmmmm · 发表于 2009-7-23 14:20:00

可以用GETPOINT代替ENTSEL，然后根据所得到的点，用(ENTSELP POINT)来判断是否有实体被点中。

xchrimp · 发表于 2009-7-23 15:08:00

提示: 作者被禁止或删除内容自动屏蔽

淮上 · 发表于 2009-7-23 20:12:00

(if (setq p1 (getpoint "\n请选择一个对象"))
(cond ((setq b (nentselp p1)) (car b))
        ((setq p2 (getcorner p1 "\n选择另外一个角点"))
         (if (setq b (ssget "c" p1 p2))(ssname b 0))
        )
)
)

hawnn · 发表于 2009-7-25 22:47:00

谢谢 xchrimp, 4楼是我想要的解决方案

mmmmmm · 发表于 2009-7-29 14:12:00

可以更简单的方法

(if (setq obj (entsel"\n Pick object:"))

(setq pt (cadr obj))

(setq pt (cadr (grread 5)))

)

xchrimp · 发表于 2009-7-29 14:48:00

提示: 作者被禁止或删除内容自动屏蔽

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

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	发表于 2009-7-23 10:58:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	发表于 2009-7-23 15:08:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	发表于 2009-7-29 14:48:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡