支持一个,以前只知道用点对,强
非常非常好 学习了
本帖最后由 【KAIXIN】 于 2011-12-17 10:49 编辑
(defun c:test13()
(setq ss (ssget '((-4 . "<and")
(0 . "circle")
(-4 . ">")(40 . 800)
(-4 . "<")(40 . 8000)
(-4 . "and>"))
))
)
请教:800 和8000可不可以用表输入?
也就是说可不可以用输入来控制半径(这样方便选取样板圆)
ok
楼主有心的,这个东西不错,很齐全。
学习了,感谢楼主
这贴很好。解释地通俗易懂
【KAIXIN】 发表于 2011-12-17 10:47 static/image/common/back.gif
(defun c:test13()
(setq ss (ssget '((-4 . "")(40 . 800)
(-4 . ""))
(defun c:test13()
( setq r1(getreal))
( setq r2(getreal))
(setq ss (ssget (list '(-4 . "<and")
'(0 . "circle")
'(-4 . ">")(cons 40 (min r1 r2))
'(-4 . "<")(cons 40 (max r1 r2))
'(-4 . "and>"))
))
)
露水2 发表于 2011-12-19 14:36 static/image/common/back.gif
(defun c:test13()
( setq r1(getreal))
( setq r2(getreal))
谢谢!这个min max用的好
【KAIXIN】 发表于 2011-12-19 14:46 static/image/common/back.gif
谢谢!这个min max用的好
当有变量出现时用list 和cons就可以了