[编程申请]：将所有和圆相交的线段点延长至圆心？

nuance

修改前线的端点在圆上。
其中的线为单端LWPOLYLINE。

怎样贴图？没学会。

Dream.Fei

首先：

贴图：把图片以“附件”形式上传，它会自动显示出来的。

第二：

如果说线段可以延长到圆心的话，那从圆心出发画一条直线，再把那些要延伸的线段EX，应该可以的。 要不然就画直线啊。

zxq0220

2. 
   
3. (DEFUN C:TOCEN ()
   
4. (SETVAR "CMDECHO" 0)
   
5. (COMMAND ".UNDO" "BE")
   
6. (SETQ OLDOS (GETVAR "OSMODE"))
   
7. (SETVAR "OSMODE" 0)
   
8. (PRINC "\nSelect Circle(s) :")
   
9. (IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN
   
10.   (SETQ I -1)
    
11.   (REPEAT (SSLENGTH SS)
    
12.    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
    
13.          RR (CDR (ASSOC 40 ENT))
    
14.          PCC (CDR (ASSOC 10 ENT))
    
15.          J 0 CP (LIST))
    
16.    (REPEAT 180
    
17.     (SETQ CP (CONS (POLAR PCC (/ (* 2 J PI) 180) RR) CP)
    
18.           J (1+ J))
    
19.    )
    
20.    (SETQ S1 (SSGET "CP" CP)
    
21.          S1 (SSDEL (SSNAME SS I) S1)
    
22.          K -1)
    
23.    (REPEAT (SSLENGTH S1)
    
24.     (SETQ ENT1 (ENTGET (SSNAME S1 (SETQ K (1+ K))))
    
25.           ENM (CDR (ASSOC 0 ENT1)))
    
26.     (COND
    
27.      ((= ENM "LINE")
    
28.       (SETQ PT1 (CDR (ASSOC 10 ENT1)) PT2 (CDR (ASSOC 11 ENT1)))
    
29.      )
    
30.      ((= ENM "ARC")
    
31.       (SETQ PC (CDR (ASSOC 10 ENT1))
    
32.             R  (CDR (ASSOC 40 ENT1))
    
33.             PT1 (POLAR PC (CDR (ASSOC 50 ENT1)) R)
    
34.             PT2 (POLAR PC (CDR (ASSOC 51 ENT1)) R)
    
35.       )
    
36.      )
    
37.      ((OR (= ENM "LWPOLYLINE") (= ENM "SPLINE"))
    
38.       (SETQ PT1 (CDR (ASSOC 10 ENT1)) PT2 (CDR (ASSOC 10 (REVERSE ENT1))))
    
39.      )
    
40.      (T (SETQ PT1 nil PT2 nil))
    
41.     )
    
42.     (IF (AND PT1 PT2) (PROGN
    
43.      (SETQ PT (IF (< (DISTANCE PT1 PCC) (DISTANCE PT2 PCC)) PT1 PT2))
    
44.      (COMMAND "STRETCH" "C" PT PT "" PT PCC)
    
45.     ))
    
46.    )
    
47.   )
    
48. ))
    
49. (COMMAND ".UNDO" "E")
    
50. (SETVAR "OSMODE" OLDOS)
    
51. (SETVAR "CMDECHO" 1)
    
52. (PRINC)
    
53. )
    

<br /> (DEFUN C:TOCEN ()<br /> (SETVAR "CMDECHO" 0)<br /> (COMMAND ".UNDO" "BE")<br /> (SETQ OLDOS (GETVAR "OSMODE"))<br /> (SETVAR "OSMODE" 0)<br /> (PRINC "\nSelect Circle(s) :")<br /> (IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN<br />   (SETQ I -1)<br />   (REPEAT (SSLENGTH SS)<br />    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))<br />          RR (CDR (ASSOC 40 ENT))<br />          PCC (CDR (ASSOC 10 ENT))<br />          J 0 CP (LIST))<br />    (REPEAT 180<br />     (SETQ CP (CONS (POLAR PCC (/ (* 2 J PI) 180) RR) CP)<br />           J (1+ J))<br />    )<br />    (SETQ S1 (SSGET "CP" CP)<br />          S1 (SSDEL (SSNAME SS I) S1)<br />          K -1)<br />    (REPEAT (SSLENGTH S1)<br />     (SETQ ENT1 (ENTGET (SSNAME S1 (SETQ K (1+ K))))<br />           ENM (CDR (ASSOC 0 ENT1)))<br />     (COND<br />      ((= ENM "LINE")<br />       (SETQ PT1 (CDR (ASSOC 10 ENT1)) PT2 (CDR (ASSOC 11 ENT1)))<br />      )<br />      ((= ENM "ARC")<br />       (SETQ PC (CDR (ASSOC 10 ENT1))<br />             R  (CDR (ASSOC 40 ENT1))<br />             PT1 (POLAR PC (CDR (ASSOC 50 ENT1)) R)<br />             PT2 (POLAR PC (CDR (ASSOC 51 ENT1)) R)<br />       )<br />      )<br />      ((OR (= ENM "LWPOLYLINE") (= ENM "SPLINE"))<br />       (SETQ PT1 (CDR (ASSOC 10 ENT1)) PT2 (CDR (ASSOC 10 (REVERSE ENT1))))<br />      )<br />      (T (SETQ PT1 nil PT2 nil))<br />     )<br />     (IF (AND PT1 PT2) (PROGN<br />      (SETQ PT (IF (< (DISTANCE PT1 PCC) (DISTANCE PT2 PCC)) PT1 PT2))<br />      (COMMAND "STRETCH" "C" PT PT "" PT PCC)<br />     ))<br />    )<br />   )<br /> ))<br /> (COMMAND ".UNDO" "E")<br /> (SETVAR "OSMODE" OLDOS)<br /> (SETVAR "CMDECHO" 1)<br /> (PRINC)<br /> )<br />