求助ssget方面的问题，

alwaysbin

我想编一个工具，计算一个表格里的数字，
用户选择上一行的数字1，我把数字加入选择集，求出其坐标，
已知数字1和数字2的y坐标差7，请问如何把数字2加入到选择集中，
我试过很多方法都不行，请高手指教。
见图 。

wujin

表格里面的数字（-300Χ12）是不是字符串呀。是的话把它整体当成一个字符串就可以了，再作一下判断。这样就可以了
(defun c:test()
(setq #F "")
(while (or(= #F "T")(= #F ""))
(princ "\n请选择要加入的数字")
(setq SS (ssget '((0 . "text"))))
(if (not (member
           (setq TMP (cdr (assoc 1 (entget (ssname SS 0)))))

          t_list
         )
    )
  (setq t_list (append t_list (list TMP)))
)
(princ "\n继续选择吗?(Y or N)<Y>")
(setq #F (strcase (getstring)))
)
)

alwaysbin

我的意思是，我要自动把下面一行的数字加入到选择集中，相当于做一个循环，就不要用户选取了。
就是说，当用户选取第一行的数字以后，我怎么能够自动把第二行数字加入选择集，
是字符串。
请指教！！

王咣生

你通过数字1知道了数字2的坐标范围,可以这样实现:
(command "select" "c" p1 p2 "")
建立一个选择集,然后判断是否选中了数字2,是则将其加入选择数字1时的选择集.

wujin

用这个试试，如果不行把(+ 5 (car p1)) 里面的数值5改小或改大试试，再不行就把文件传上来看看。
(defun c:test ()
  (setq SS (ssget '((0 . "text"))))
  (setq p1 (cdr (assoc 10 (entget (ssname ss 0)))))
  (setq TMP (cdr (assoc 1 (entget (ssname SS 0)))))
  (setq t_list (append t_list (list TMP)))
  (setq pt2 (list (+ 5 (car p1)) (- (cadr p1) 7) (caddr p1)))
  (setq #F nil)
  (while (/= #F T)
    (if        (= (ssget pt2) nil)
      (setq #F T)
    )
    (if        (/= (ssget pt2) nil)
      (progn
        (setq ss (ssget pt2))
        (setq p1 (cdr (assoc 10 (entget (ssname ss 0)))))
        (setq pt2 (list (+ 5 (car p1)) (- (cadr p1) 7) (caddr p1)))
        (setq TMP (cdr (assoc 1 (entget (ssname SS 0)))))
        (setq t_list (append t_list (list TMP)))
      )
    )
   )
  (princ t_list)
  (princ "\n完成数据的收集")
  (princ)  
)

alwaysbin

感谢两位大侠的帮助，已经解决了，虽然还有点小毛病，但应该可以搞定。
谢谢！！