[编程申请]：求LSP程序，在图中所选线段的交点(非端点)处产生直径为1000的圆，能框选

lengliqun

求LSP程序，在图中所选线段的交点(非端点)处产生直径为1000的圆，能框选。

                               
登录/注册后可看大图

david96007

注意一次不要选太多!

2. 
   
3. 
   
4. (defun c:tt ()
   
5.   (setq        ss     (ssget '((0 . "line")))
   
6.         ss_len (sslength ss)
   
7.         i      0
   
8.   )
   
9.   (while (< i ss_len)
   
10.     (setq ent_i        (ssname ss i)
    
11.           j        (1+ i)
    
12.           i        (1+ i)
    
13.     )
    
14.     (while (< j ss_len)
    
15.       (setq ent_j (ssname ss j)
    
16.             j          (1+ j)
    
17.       )
    
18.       (setq sp_i (cdr (assoc 10 (entget ent_i)))
    
19.             ep_i (cdr (assoc 11 (entget ent_i)))
    
20.             sp_j (cdr (assoc 10 (entget ent_j)))
    
21.             ep_j (cdr (assoc 11 (entget ent_j)))
    
22.       )
    
23.       (setq cp (inters sp_i ep_i sp_j ep_j))
    
24.       (if cp
    
25.         (entmake (list '(0 . "CIRCLE")
    
26.                        '(100 . "AcDbEntity")
    
27.                        '(8 . "S")
    
28.                        (cons 10 cp)
    
29.                        '(40 . 500.0)
    
30.                  )
    
31.         )
    
32.       )
    
33.     )
    
34.   )
    
35. )
    

<br /> <br /> (defun c:tt ()<br />   (setq        ss     (ssget '((0 . "line")))<br />         ss_len (sslength ss)<br />         i      0<br />   )<br />   (while (< i ss_len)<br />     (setq ent_i        (ssname ss i)<br />           j        (1+ i)<br />           i        (1+ i)<br />     )<br />     (while (< j ss_len)<br />       (setq ent_j (ssname ss j)<br />             j          (1+ j)<br />       )<br />       (setq sp_i (cdr (assoc 10 (entget ent_i)))<br />             ep_i (cdr (assoc 11 (entget ent_i)))<br />             sp_j (cdr (assoc 10 (entget ent_j)))<br />             ep_j (cdr (assoc 11 (entget ent_j)))<br />       )<br />       (setq cp (inters sp_i ep_i sp_j ep_j))<br />       (if cp<br />         (entmake (list '(0 . "CIRCLE")<br />                        '(100 . "AcDbEntity")<br />                        '(8 . "S")<br />                        (cons 10 cp)<br />                        '(40 . 500.0)<br />                  )<br />         )<br />       )<br />     )<br />   )<br /> )<br />

david96007

看看能不能连续发贴?!

刚才系统出了问题,居然让我连续发贴了!
不过现在不能了!

lengliqun

可以用，谢谢热心的人。

li809

谢谢楼主了

sxlxf

可以用,若是要画直径为500的圆,是不是把500改为250就行了,我好菜,别笑我

david96007

40对应的是半径;
要改图层,可以改8对应的"s","s"是现在的图层,你可以指定自己的图层!如果图层不存在,则自动创建新图层!