求大师看下代码哪错了啊~~~

flytoday

(defun C:FYYF (/ E ELIST I PT SS RAD)
  (if (setq SS (ssget '((0 . "LWPOLYLINE")))) ;_只选择矩形(方桩)
    (repeat (setq I (sslength SS)) ;_循环次数为桩的个数
      ;;桩的图元名E
      (setq E (ssname SS (setq I (1- I))))
      (setq ELIST (entget E))
      (setq PT1 (assoc 10 ELIST)
     pt2 (cdr (assoc 10 (vl-remove pt1 ELIST)))
     pt1 (cdr pt1)
     pt4 (cdr (assoc 10 (reverse ELIST)))
     pt (list (/ (+ (car pt2) (car pt4)) 2)
        (/ (+ (cadr pt2) (cadr pt4)) 2)
  ) ;_圆心坐标
     RAD (/ (distance pt1 pt2) 2) ;_圆半径
      )
      ;;绘制方桩
      (command "._CIRCLE" pt rad)
      (command "_layer" "m" "方圆变" "C" 240 "" "")
      ;(entdel E) ;_删除方桩，如果不删除在此行首加个半角分号
    )
  )
   (princ)
)
;;;======================子程序1开始============================
(defun get_pt (pt / data temp ptlist)
  (setq data pt)
  (foreach temp data
    (if (= 10 (car temp))
      (setq ptlist (cons (cdr temp) ptlist))
    )
  )
  (reverse ptlist)
)





总是有一个图层未改变。。。。。还有就是说我不想新建的"""方圆变"""这个层置于当前要怎么改啊,,
麻烦各位老师了谢谢~

Andyhon

2. 
   
3. 
   
4. (defun C:FYYF (/ E ELIST I PT SS RAD)
   
5.   (setq olyr (GetVar "Clayer"))
   
6.   (command "_layer" "m" "方圆变" "C" 240 "" "")
   
7.   (if (setq SS (ssget '((0 . "LWPOLYLINE")))) ;_只选择矩形(方桩)
   
8.     (repeat (setq I (sslength SS)) ;_循环次数为桩的个数
   
9.       ;;桩的图元名E
   
10.       (setq E (ssname SS (setq I (1- I))))
    
11.       (setq ELIST (entget E))
    
12.       (setq PT1 (assoc 10 ELIST)
    
13.             pt2 (cdr (assoc 10 (vl-remove pt1 ELIST)))
    
14.             pt1 (cdr pt1)
    
15.             pt4 (cdr (assoc 10 (reverse ELIST)))
    
16.             pt  (list (/ (+ (car pt2) (car pt4)) 2)
    
17.                       (/ (+ (cadr pt2) (cadr pt4)) 2)
    
18.                 ) ;_圆心坐标
    
19.             RAD (/ (distance pt1 pt2) 2) ;_圆半径
    
20.       )
    
21.       ;;绘制方桩
    
22.       (command "._CIRCLE" pt rad)
    
23.       
    
24.       ;; (entdel E) ;_删除方桩，如果不删除在此行首加个半角分号
    
25.     )
    
26.   )
    
27.   (SetVar "Clayer" olyr)
    
28.   (princ)
    
29. )
    
30. ;;;======================子程序1开始============================
    
31. (defun get_pt (pt / data temp ptlist)
    
32.   (setq data pt)
    
33.   (foreach temp data
    
34.     (if (= 10 (car temp))
    
35.       (setq ptlist (cons (cdr temp) ptlist))
    
36.     )
    
37.   )
    
38.   ;; (reverse ptlist) ;
    
39.   ptlist              ; 本程序直用即可
    
40. )
    

<br /> <br /> (defun C:FYYF (/ E ELIST I PT SS RAD)<br />   (setq olyr (GetVar "Clayer"))<br />   (command "_layer" "m" "方圆变" "C" 240 "" "")<br />   (if (setq SS (ssget '((0 . "LWPOLYLINE")))) ;_只选择矩形(方桩)<br />     (repeat (setq I (sslength SS)) ;_循环次数为桩的个数<br />       ;;桩的图元名E<br />       (setq E (ssname SS (setq I (1- I))))<br />       (setq ELIST (entget E))<br />       (setq PT1 (assoc 10 ELIST)<br />             pt2 (cdr (assoc 10 (vl-remove pt1 ELIST)))<br />             pt1 (cdr pt1)<br />             pt4 (cdr (assoc 10 (reverse ELIST)))<br />             pt  (list (/ (+ (car pt2) (car pt4)) 2)<br />                       (/ (+ (cadr pt2) (cadr pt4)) 2)<br />                 ) ;_圆心坐标<br />             RAD (/ (distance pt1 pt2) 2) ;_圆半径<br />       )<br />       ;;绘制方桩<br />       (command "._CIRCLE" pt rad)<br />       <br />       ;; (entdel E) ;_删除方桩，如果不删除在此行首加个半角分号<br />     )<br />   )<br />   (SetVar "Clayer" olyr)<br />   (princ)<br /> )<br /> ;;;======================子程序1开始============================<br /> (defun get_pt (pt / data temp ptlist)<br />   (setq data pt)<br />   (foreach temp data<br />     (if (= 10 (car temp))<br />       (setq ptlist (cons (cdr temp) ptlist))<br />     )<br />   )<br />   ;; (reverse ptlist) ; <br />   ptlist              ; 本程序直用即可<br /> )<br />

flytoday

谢啦谢谢~~~~~~~~~~~