方法一：

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"\nThe first point, please"))

(setq pt2 (getpoint"\nThe second point,please"))

(setq pt3 (getpoint"\nThe third point,please"))

(setq n (getdist "\nSegment 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 (<= i n)

(setq x (+ (car pt1) (* ddx i)))

(setq y (+ (* a x x) (* b x) c))

(setq pt (list x y))

(command pt)

(setq i (1+ i))

(command "")

)

(defun break (message / loop)

(princ message) (setq loop t)

(while loop (princ "\n>:")

(setq query (read-line)) (if (/= query "")

(princ (eal (read query))) (setq loop nil)

) (princ)

)

网上有很多教程，楼主不妨下载一个现成的用用

评分

声明：当前内容由会员 helene 发布，仅代表其个人观不代表本站立场，仅学习交流之用、如有网友或海友版主评分、点评互动,不代表本站认可其内容或确认其权益归属, 本站仅提供存储空间，如此内容存在争议或侵犯您的权益，请联系我站在线客服删除处理 188-4091-1640 网站声明