myjping 发表于 2012-11-2 22:28:16

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

现在论坛上创建其它的基本上都有了，自么就缺这个呢，各位大侠伸伸手
下面的这个是建立复线的，我试了几次都改不成样条曲线的
(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 发表于 2012-11-4 13:51:15

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

myjping 发表于 2012-11-4 22:04:25

相当不错，谢谢大侠

zjh2785 发表于 2017-10-2 22:16:53

pt 是哪个点的坐标啊？

yoyoho 发表于 2017-10-3 09:21:34

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

ptn表内任何一点座标
页: [1]
查看完整版本: 如何通过点表用entmake创建样条曲线呢?