样条曲线转圆的问题

hbgsw

问题介绍：目前工作中经常有Proe转CAD 的图纸，有些模型建模不标准，就存在有本应该为圆的图形，结果转换到CAD中后，就成了样条曲线，现需将样条曲线转换成为圆，先弄个简单的功能满足要求，我的思路如下：
1 获取样条曲线2个端点，（一个圆分成了2个样条曲线）
2 端点重复过滤
3 根据2个端点表，生成图层，中心点，半径 的表
4 entmake 重新生成圆。
目前卡壳在2和3处了，对于lambda和mapcar这2个函数运用实在不熟悉，请各位帮忙下，谢谢，附上图纸和截图。

   

hbgsw

已经自己解决了，虽然写的很烂，。

1. (defun c:2t (/ entss n lay ent cen x1 lst r)
   
2.      ;样条曲线线转圆弧或者圆
   
3.   (setvar "cmdecho" 0)
   
4.   (while (not (setq entss (ssget '((0 . "SPLINE"))))))
   
5.   (setq n   0
   
6. lay "0"
   
7. lst nil
   
8.   )
   
9.   (while (setq ent (ssname entss (setq n (1+ n))))
   
10.     (setq ent
    
11.        (mapcar
    
12.   'cdr
    
13.   (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget ent))
    
14.        )
    
15.    ent (list (car ent) (last ent));获得两个端点
    
16.     )
    
17.     (setq
    
18.       cen (mapcar '(lambda (x) (/ x 2))
    
19.     (apply '(lambda (x1 x2) (mapcar '+ x1 x2)) ent)
    
20.    )
    
21.     )
    
22.     (setq r (/ (distance (car ent) (cadr ent)) 2))
    
23.     (setq lst (cons (list cen ent r) lst));将中心点，两端点，半径形成表
    
24.   )
    
25.   (setq lst (delsame lst 0.001));重复过滤
    
26.   (hbg_entmake_layer "MARK")
    
27.   (command "CHPROP"  entss  ""    "la"      "MARK"
    
28.       "c"       "bylayer"  ""
    
29.      )
    
30.   (foreach x1 lst
    
31.     (setq cen (car x1)
    
32.    r   (caddr x1)
    
33.     )
    
34.     (hbg_entmake_circle lay cen r);生产新圆
    
35.   )
    
36.   (princ)
    
37. )
    
38. (defun delsame(l1 rcz / l2);;带容差去重(重复过的取第一次出现)，有时处理坐标点需要考虑容差,函数作者：llsheng_73
    
39.   (while l1
    
40.     (setq l2(cons(car l1)l2)l1(vl-remove-if'(lambda (x)(equal(car(car l1)) (car x) rcz))(cdr l1))))
    
41.   (reverse l2))
    

(defun c:2t (/ entss n lay ent cen x1 lst r)<br />      ;样条曲线线转圆弧或者圆<br />   (setvar "cmdecho" 0)<br />   (while (not (setq entss (ssget '((0 . "SPLINE"))))))<br />   (setq n   0<br /> lay "0"<br /> lst nil<br />   )<br />   (while (setq ent (ssname entss (setq n (1+ n))))<br />     (setq ent<br />        (mapcar<br />   'cdr<br />   (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget ent))<br />        )<br />    ent (list (car ent) (last ent));获得两个端点<br />     )<br />     (setq<br />       cen (mapcar '(lambda (x) (/ x 2))<br />     (apply '(lambda (x1 x2) (mapcar '+ x1 x2)) ent)<br />    )<br />     )<br />     (setq r (/ (distance (car ent) (cadr ent)) 2))<br />     (setq lst (cons (list cen ent r) lst));将中心点，两端点，半径形成表<br />   )<br />   (setq lst (delsame lst 0.001));重复过滤<br />   (hbg_entmake_layer "MARK")<br />   (command "CHPROP"  entss  ""    "la"      "MARK"<br />       "c"       "bylayer"  ""<br />      )<br />   (foreach x1 lst<br />     (setq cen (car x1)<br />    r   (caddr x1)<br />     )<br />     (hbg_entmake_circle lay cen r);生产新圆<br />   )<br />   (princ)<br /> )<br /> (defun delsame(l1 rcz / l2);;带容差去重(重复过的取第一次出现)，有时处理坐标点需要考虑容差,函数作者：llsheng_73 <br />   (while l1<br />     (setq l2(cons(car l1)l2)l1(vl-remove-if'(lambda (x)(equal(car(car l1)) (car x) rcz))(cdr l1))))<br />   (reverse l2))<br />

gowww

楼主，R角可以转吗？

hbgsw

想办法是可以的。

baby绑定命运线

支持个请问有完美的源码吗，，谢谢大佬；

qwsss31

不能运行，是需要再家个运行参数吗？