菜鸟来了，求帮忙怎么进行参数框选

HGHG011 · 发表于 2014-5-23 01:30

比如我想选择点（0,0）到点（100,100）的物体，就和手动一样，让你选择物体的时候点一下（0,0）再点一下（100,100），不知道我说的明白不明白
例如：(command "ERASE" "" p1 p2 "") 我重复五次， p1 p2每次(polar p1 0 1000) (polar p1 0 1000)，我就能同时删除等5个距离上面的物体了
说得比较啰嗦，不知道怎么表达好，求大神啊

ZZXXQQ · 发表于 2014-5-23 01:30

(defun c:tt ()
(setvar "CMDECHO" 0)
(setq pt (getpoint "\n框选中点: "))
(setq p1 (mapcar '- '(50 50)))
(setq p2 (mapcar '+ '(50 50)))
(command "_.ERASE" "W" p1 p2 "")
(setvar "CMDECHO" 1)
(princ)
)

HGHG011 · 发表于 2014-5-23 01:31

应该不算难题吧？

masterlong · 发表于 2014-5-23 05:11

真没看明白
框选or栏选？
第一次
p1手动指定？
P2=(polar p1 0 1000)？
重复时
P1还是手动指定？
P2=......

表述实在太乱了
依我看
你把你的语言组织清楚了
你的问题自己就解决掉了

HGHG011 · 发表于 2014-5-23 09:28

ZZXXQQ 发表于 2014-5-23 01:30

谢谢版主，其实就是想要 erase 后面的那个 w，再次感谢啦

HGHG011 · 发表于 2014-5-23 09:28

masterlong 发表于 2014-5-23 05:11
真没看明白
框选or栏选？
第一次

额，我的表述真的很乱，下次提问争取改进，不过也谢谢你~~

HGHG011 · 发表于 2014-5-23 10:00

ZZXXQQ 发表于 2014-5-23 01:30

再次麻烦版主
(defun c:tt ()
(setq p1 (getpoint "\n框选中点: "))
(setq p2 (getpoint "\n框选中点: "))
(command "_.ERASE" "c" p1 p2 "")
(princ)
)

上面的程序选择两个点的时候怎么实现图片中出现框选范围
版主受累了

edata · 发表于 2014-5-23 11:31

(defun c:tt ()
(if(setq ss(ssget))
(command "_.ERASE" ss "")
)
(princ)
)

ZZXXQQ · 发表于 2014-5-23 20:44

本帖最后由 ZZXXQQ 于 2014-5-23 20:45 编辑

HGHG011 发表于 2014-5-23 10:00
再次麻烦版主
(defun c:tt ()
(setq p1 (getpoint "\n框选中点: "))

(setq p1 (getpoint "\n框选角点: "))
(setq p2 (getcorner p1 "\n另一角点: "))

or

(setq ss (ssget))

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

[已解答] 菜鸟来了，求帮忙怎么进行参数框选

最佳答案

相关帖子

求问dcl问题，最近做了2个lisp都带dcl，但两不能同时启动

本帖子中包含更多资源

评分

浏览过的版块

[已解答] 菜鸟来了，求帮忙 怎么进行参数框选