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

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


比如我想选择 点（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:01

(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:08

应该不算难题吧？

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

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

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

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

ZZXXQQ 发表于 2014-5-23 01:30 static/image/common/back.gif


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

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

masterlong 发表于 2014-5-23 05:11 static/image/common/back.gif
真没看明白
框选or栏选？
第一次


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

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

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

ZZXXQQ 发表于 2014-5-23 01:30 static/image/common/back.gif


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


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

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

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

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

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

HGHG011 发表于 2014-5-23 10:00 http://bbs.mjtd.com/static/image/common/back.gif
再次麻烦版主
(defun c:tt ()
(setq p1 (getpoint "\n框选中点: "))


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

or

(setq ss (ssget))
页: [1]
查看完整版本: 菜鸟来了，求帮忙 怎么进行参数框选