求教：选择集按插入点位置返回选择集表（lisp）
本帖最后由 jack093 于 2012-12-7 18:14 编辑求教：将当前屏幕按x坐标分成100等分，所选对象按坐标点分别放到对应的选择集，返回选择集表（lisp）表处理效率太低
下面的程序
(defun ss_y_fun(ss /vh vy1 tempss m len tem n ns)
(setq vh(getvar "VIEWSIZE"))
(setq vy1(- (cadr (getvar "VIEWCTR")) (* 0.5 vh)))
(setq tempss nil m 0)
(while (< m 50)
(setq tempss (cons (ssadd) tempss))
)
(setq len (sslength ss))
(while (> len 0)
(setq tem (ssname ss (setq len (1- len))))
(setq n (fix(*(/(- (cadr (cdr (assoc 10 (entget tem)))))vy1) vh)50))
(if (< n 0)(setq n 0))
(if (> n 49)(setq n 49))
(setq m 0 ns nil)
(while (< m 50)
(if (= m n)
(setq ns (reverse(cons (ssadd tem(nth n tempss)) (reverse ns))))
(setq ns (reverse(cons (nth n tempss) (reverse ns))))
)
)
(setq tempss ns)
)
tempss
)
出现“超出选择集数量的最大范围”错误
这有的高手了，，，，我打酱油的
页:
[1]