如何通过点表用entmake创建样条曲线呢?

myjping

现在论坛上创建其它的基本上都有了，自么就缺这个呢，各位大侠伸伸手
下面的这个是建立复线的，我试了几次都改不成样条曲线的
(defun entmake_pline (lst)
   (entmake (append    (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")(cons 90 (length lst)))
      (mapcar '(lambda (pt)(cons 10 pt)) lst ))
   ))

xyp1964

2. (defun Entmake-Spline (ptn / a)
   
3.   (entmake (append (list '(0 . "SPLINE")
   
4.                          '(100 . "AcDbEntity")
   
5.                          '(100 . "AcDbSpline")
   
6.                          '(71 . 3)
   
7.                    )
   
8.                    (mapcar '(lambda (pt) (cons 11 pt)) ptn)
   
9.            )
   
10.   )
    
11.   (entlast)
    
12. )

(defun Entmake-Spline (ptn / a)<br />   (entmake (append (list '(0 . "SPLINE")<br />                          '(100 . "AcDbEntity")<br />                          '(100 . "AcDbSpline")<br />                          '(71 . 3)<br />                    )<br />                    (mapcar '(lambda (pt) (cons 11 pt)) ptn)<br />            )<br />   )<br />   (entlast)<br /> )

myjping

相当不错，谢谢大侠

zjh2785

pt 是哪个点的坐标啊？

yoyoho

zjh2785 发表于 2017-10-2 22:16
pt 是哪个点的坐标啊？

ptn表内任何一点座标