关于循环中的变量问题

aihuyujian

代码如下（不完整）
(defun c:bad()
  (princ "\n选取第一条直线")
（setq dx1 (entget (car (entsel '((0 . "line"))))))
  (setq d1 (assoc 10 dx1))
  (setq d2 (assoc 11 dx1))
  (princ "\n选取其他直线")
  (setq ss (ssget '((0 . "line"))))
        (setq s (sslength ss))
  (setq k 0 n 1)
  (while (< k s)
         (setq dx (entget (ssname ss k)))
               (setq d3 (assoc 10 dx))
      (setq d4 (assoc 11 dx))
      (set (read (strcat "jd" "n")) (inters d1 d2 d3 d4 nil))
      (setq n (1+ n)))
比如我想求多条直线与第一条直线的交点，不知道有几个，所以用jd n 来记录交点的坐标，接下来想要标注这些点间的尺寸也就是尺寸标注，怎么读取jd n的值并且标注，还有选第二次的其他直线时 怎么排除第一次选中的直线，想的头都大了还是解决不了，请版主和各位大虾帮帮忙修改修改代码，谢谢啦

xyp1964

2. 
   
3. (defun c:tt ()  (setq dx1 (entget (car (entsel "\n选取第一条直线: ")))
   
4.         p1  (cdr (assoc 10 dx1))
   
5.         p2  (cdr (assoc 11 dx1))
   
6.   )
   
7.   (princ "\n选取其他直线")
   
8.   (setq ss  (ssget '((0 . "line")))
   
9.         i   -1
   
10.         ptn '()
    
11.   )
    
12.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
13.     (setq dx  (entget s1)
    
14.           pt  (inters p1 p2 (cdr (assoc 10 dx)) (cdr (assoc 11 dx)) nil)
    
15.           ptn (cons pt ptn)
    
16.     )
    
17.   )
    
18.   (princ ptn)
    
19.   (princ)
    
20. )
    

<br /> (defun c:tt ()  (setq dx1 (entget (car (entsel "\n选取第一条直线: ")))<br />         p1  (cdr (assoc 10 dx1))<br />         p2  (cdr (assoc 11 dx1))<br />   )<br />   (princ "\n选取其他直线")<br />   (setq ss  (ssget '((0 . "line")))<br />         i   -1<br />         ptn '()<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq dx  (entget s1)<br />           pt  (inters p1 p2 (cdr (assoc 10 dx)) (cdr (assoc 11 dx)) nil)<br />           ptn (cons pt ptn)<br />     )<br />   )<br />   (princ ptn)<br />   (princ)<br /> )<br />

qiuhaitao110

在代码前加(setq jd_list '())
获得需要记录记录的值jd 将其加入列表中
(setq jd_list (cons jd jd_list))
如果jd是有顺序的，将其反转 (setq jd_list (reverse jd_list))
你要使用你的jd值时候用(nth i jd_list)
就可以取出你的jd值

aihuyujian

qiuhaitao110 发表于 2013-11-27 10:47
在代码前加(setq jd_list '())
获得需要记录记录的值jd 将其加入列表中
(setq jd_list (cons jd jd_list) ...

谢谢回答，你的方法跟版主的基本一样，非常感谢

aihuyujian

xyp1964 发表于 2013-11-26 23:14

谢谢版主，问题基本解决，版主的代码不啰嗦学习了