CAD精确画抛物线的画法？如何画抛物线？

xhf0293

 发表于2021-02-20   |  只看该作者      

楼

3

CAD画抛物线方法

方法一：1.在EXCEL生成坐标X,Y列；X为分段值控制曲线精度，Y为公式计算的对应值； 2.假定EXCEL中X数值在A列，Y数值在B列，生成ACAD的PLINE绘图数据，方法如下： (1)在新的列单元（如C列）输入公式：=An&","&Bn（n为数据的行号），按次办法将An及Bn单元格中的数据在Cn单元格中形成(x,y)的形式。关键是生成逗号。 (2)拷贝Cn的公式(Cn单元格按CTRL拖动)，形成绘图数据列。 (3)拷贝绘图数据列（C列中的数据）。 3.在ACAD中执行PLINE命令，输入PL回车后的命令行处按鼠标的右键，选粘贴命令，将从EXCEL中拷贝的数据粘贴到此处。 4.完成（PL命令按x1,y1...x2,y2...xn,yn的形式绘制曲线。）方法二:直接画，先三点画一水平pline线，起、终对应抛物线端点，其中间点高为2倍抛物线的矢高即2f，同时将cad的splintype参数设为5。对该plnie进行编辑，选择spline项，生成的pline曲线即为您要的抛物线。注意，为了精度，可将splinesegs参数调高。方法三：(defun c:pwx () (setq pt1 (getpoint" The first point, please")) (setq pt2 (getpoint" The second point,please")) (setq pt3 (getpoint" The third point,please")) (setq n (getdist " Segment number")) (setq f (open "pwx.inp" "w")) (print (car pt1) f) (print (cadr pt1) f) (print (car pt2) f) (print (cadr pt2) f) (print (car pt3) f) (print (cadr pt3) f) (print fdx f) (close f) (command "shell" "pwx") (setq f (open "pwx.dat" "r")) (setq a (atof (read-line f))) (setq b (atof (read-line f))) (setq c (atof (read-line f))) (close f) (setq dx (- (car pt3) (car pt1))) ;(setq n (fix (/ (+ (abs dx) 0.5) fdx))) (setq ddx (/ dx n)) (command "pline" pt1) (setq i 1) (while (

举报 点评(0) 点赞(0)