acad中的Bezier工具！
你好我想问在acad的哪里可以找到贝塞尔工具？因为我有坐标，如果我画贝塞尔工具通过这个坐标，我得到了我的线！
坐标为：
-
-
-
-
-
特克斯！
编辑：
多恩
1） 通过这4个点绘制多段线
2） pedit型
3） 选择S（样条线）
3） 我们得到了贝塞尔线（T1 T2 T3 T4） 试试这个：
;|3D bezier curve
_____mfuccaro@hotmail.com___2008.10
|;
(defun c:bezier( / division result lp p)
(setq division 100)
(setq result nil)
(setq lp nil p t)
(while p
(setq p (getpoint "select point"))
(if p (setq lp (cons (trans p 1 0) lp)))
)
(setq r (/ 1.0 division))
(repeat division
(setq p (reverse lp))
(setq result (cons (car (r1 p r)) result))
(setq r (+ r (/ 1.0 division)))
)
(setq result (cons (car lp) (reverse result)))
(make3dpoly result)
(princ)
)
(defun div(a b r / i p)
(setq i -1 p nil)
(foreach x a
(setq p (cons (+ (* r (nth (setq i (1+ i)) a)) (* (- 1 r) (nth i b))) p))
)
(reverse p)
)
(defun parc1(p r / i l p1)
(setq i 0 l (length p) p1 nil)
(repeat (1- l)
(setq a (nth i p))
(setq b (nth (1+ i) p))
(setq p1 (cons (div a b r) p1))
(setq i (1+ i))
)
(reverse p1)
)
(defun r1(p r / p1)
(repeat (1- (length p))
(setq p1 (parc1 p r))
(setq p p1)
)
)
(defun make3dpoly (vertlist)
(entmake (list '(0 . "POLYLINE")'(66 . 1)'(100 . "AcDb3dPolyline")'(70 . ))
(foreach point vertlist
(entmake (list (cons 0 "VERTEX")'(100 . "AcDb3dPolylineVertex")'(70 . 32)(cons 10 point))))
(entmake '((0 . "SEQEND")))
)仅在WCS中测试！ 你好福卡罗
我已经在autocad中试用了下面提到的程序，但它不起作用。
输入命令bezier后。
它要求选择点，因此我们选择点它要求另一个n on n on n on。。。
命令提示符如下所示：
选择点选择点选择点选择点选择点选择点选择点选择点选择点选择点选择点选择点选择点选择点选择点选择点选择点
你能帮我查一下吗？让我给你带路。
我恭敬地请求你这样做。
您好，很抱歉回答得太晚。
我不再使用AutoCAD，但它应该在检测到空条目时结束输入。换言之：当它要求你一个新的点，只需按。就像在LINE命令中一样。
再次张贴，如果它不工作，我会找到一台计算机与AutoCAD，我会尝试解决这个问题。
嘿，伙计。。
非常感谢你。。它正在工作。
顺便说一句，我得到了问题的d解，但如果你能帮我学习编程背后的逻辑或你使用的算法。
我衷心地请求你做这件事。 我很高兴得到帮助，谢谢你回来。我现在很忙，我会在家里试着回答你的新问题。 仅供参考-2013年可以为Bezier曲线设置样条曲线，请搜索“Bezier”帮助。也就是2012年，刚刚确认。
样条曲线，方法=CV，阶数=3，拾取四个点。
页:
[1]