当前位置:首页 » 视频软件 » cad中怎样画不等长缓和曲线

cad中怎样画不等长缓和曲线

发布时间: 2022-05-25 18:16:26

① 在CAD里如何画缓和曲线,要求精度很高的那种能直接画的那种用SPLINE命令太不精确了

如果是想画精确的曲线,可采用圆弧命令来完成,圆弧命令在绘图工具栏下,有很多种画法,你按需输入即可;
还有一种是当曲线半径未知时,但知道再相切直线点,就可以利用倒角命令来操作了,输入倒角命令再输入倒角半径,分别点起两道线即可直接完成曲线。
或是:http://..com/question/55895218.html

② CAD问题!跪求解答_如何绘制缓和曲线(50外追加100分)

http://bbs2.zhulong.com/forum/detail2554515_1.html#
方法一:用Pline命令画2D图形上通过特殊点的折线,经Pedit命令中Fit或Spline曲线拟合,可变成光滑的平面曲线。用3Dpoly命令画3D图形上通过特殊点的折线,经Pedit命令中Spline曲线拟合,可变成光滑的空间曲线。

方法二:用Solids命令创建三维基本实体(长方体、圆柱、圆锥、球等),再经Boolean(布尔)组合运算:交、并、差和干涉等获得各种复杂实体,然后利用下拉菜单View(视图)/3D Viewpoint(三维视点),选择不同视点来产生标准视图,得到曲线的不同视图投影。

③ 用在cad中怎么绘制缓和曲线

方法一:

1、在CAD中画出切线长

2、运行程序: 在命令行中输入hh回车

3、选择两条切线,然后输入曲线半径如:2204.5回车

4、输入缓和曲线长,如270,绘图完成!


方法二:

用宏,网上有CAD画缓和曲线的宏代码。

用法:CAD工具→宏→加载工程→选择宏代码文件;工具→宏→宏→选择刚加载的宏→运行,按提示就可以了。

④ cad 怎么画缓和曲线

方法一:

1、在CAD中画出切线长

2、运行程序: 在命令行中输入hh回车

3、选择两条切线,然后输入曲线半径如:2204.5回车

4、输入缓和曲线长,如270,绘图完成!


方法二:

用宏,网上有CAD画缓和曲线的宏代码。

用法:CAD工具→宏→加载工程→选择宏代码文件;工具→宏→宏→选择刚加载的宏→运行,按提示就可以了。

⑤ CAD如何画不等长缓和曲线

哥统统地明白,大大地明白,你用样条曲线画,画完以后,你双击画的线,根据蓝色点点移动就可以了很简单的,实践去吧

⑥ cad怎么画缓和曲线

1.现做一个CAD脚本,会的人跳过(用Windows 文本 另存为“.scr”文件)
2.脚本编辑输入“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标……” 以此类推!点输的越密,线条越平滑。也可以用EXCEL算出各个点的坐标后粘贴进去,然后按照“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标……”格式编辑。
3.进入CAD,运行脚本,就行了!
注意:你可能输入了100个点,而出现的确只有几个点,这个很正常,你把图像删除了,多运行几次就行,一般不超过4次。

⑦ 在autoCAD中怎么画缓和曲线

您好,您这样:
一、在CAD中画出切线长
二、运行程序: 在命令行中输入hh回车
三、选择两条切线,然后输入曲线半径如:2204.5回车
四、输入缓和曲线长,如270,绘图完成!如图

记事本格式内容,新建的lisp语言,在CAD中要先加载
;;多义线摹拟缓和曲线。
;;输入起止直线、半径、缓和曲线长或设计车速。
;;命令:HH
(defun com_p()
(setq l 0)
(command "ucs" "o" (list (- 0 x1) 0 0))
(command "pline" (list 0 0 0) "w" "0" ""
(repeat 1000
(setq l (+ l (/ Ls 1000))
x (+ (- l (/ (* l l l l l) 40 C C)) (/ (* l l l l l l l l l) 3456 C C C C))
y (* id__ (+ (- (/ (* l l l) 6 C) (/ (* l l l l l l l) 336 C C C)) (/ (* l l l l l l l l l l l) 42240 C C C C C)))
);setq
(command (list x y 0))
);repaet
);command
(setq pt5 (trans (list x y 0) 1 0))
);com_p
(defun ll_v()
(setq V (getreal "\nGive Velocity:")
Ls1 (* V 0.85)
Ls2 (/ (* 0.0357 V V V) R)
Ls (max Ls1 Ls2 (/ R 9))
Ls (* (fix (/ Ls 10)) 10.0)
);setq
(if (> Ls R) (setq Ls R))
(ll_d)
);ll_v
(defun ll_d()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq C (* Ls R)
q (- (+ (- (/ Ls 2) (/ (* Ls Ls Ls) 240 R R)) (/ (* Ls Ls Ls Ls Ls) 34560 R R R R)) (/ (* Ls Ls Ls Ls Ls Ls Ls) 8386560 R R R R R R))
pt1 (cdr (assoc 10 (entget (car p1))))
pt2 (cdr (assoc 11 (entget (car p1))))
pt10(polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))
pt3 (cdr (assoc 10 (entget (car p2))))
pt4 (cdr (assoc 11 (entget (car p2))))
pt20(polar pt3 (angle pt3 pt4) (/ (distance pt3 pt4) 2))
p (+ (- (/ (* Ls Ls) 24 R) (/ (* Ls Ls Ls Ls) 2688 R R R)) (/ (* Ls Ls Ls Ls Ls Ls) 506880 R R R R R))
jd (inters pt1 pt2 pt3 pt4 nil)
alf1(angle pt10 jd)
alf2(angle pt20 jd)
alf (- (angle jd pt20) alf1)
);setq
(if (or (> alf pi) (and (< alf 0) (> alf (- 0 pi))))
(progn
(setq id__ -1)
(if (> alf pi) (setq alf (- (+ pi pi) alf)) (setq alf (abs alf)))
);progn
(progn
(setq id__ 1)
(if (<= alf (- 0 pi)) (setq alf (+ pi pi alf)))
);progn
);if
(setq x0 (/ (* (+ p R) (sin(/ alf 2.0))) (cos(/ alf 2.0)))
x1 (+ x0 q)
Cl (+ (* alf R) Ls)
E (- (/ (+ R p) (cos(/ alf 2))) R)
);setq
(command "ucs" "o" jd)
(command "ucs" "z" (/ (* 180 alf1) pi))
(com_p) (setq pt6 pt5)
(setq ppt1 (list x1 0 0))
(command "ucs" "")
(command "ucs" "o" jd)
(command "ucs" "z" (/ (* 180 alf2) pi))
(setq id__ (- 0 id__)) (com_p)
(setq ppt2 (list x1 0 0))
(command "ucs" "")
(if (> (abs(distance jd pt1)) (abs(distance jd pt2)))
(setq ptt1 pt1)
(setq ptt1 pt2)
);if
(setq ptt2 (polar jd alf1 (- 0 x1)))
(thh p1 ptt1 10)
(thh p1 ptt2 11)
(if (> (abs(distance jd pt3)) (abs(distance jd pt4)))
(setq ptt3 pt3)
(setq ptt3 pt4)
);if
(setq ptt4 (polar jd alf2 (- 0 x1)))
(thh p2 ptt3 10)
(thh p2 ptt4 11)
(if (= id__ 1) (command "arc" pt5 "e" pt6 "r" R) (command "arc" pt6 "e" pt5 "r" R))
(setq alfd (angf alf))
(setvar "osmode" os)
(command "cmdecho" "1")
(command "text" pause pause "" (strcat "偏角=" alfd))
(command "cmdecho" "0")
(command "text" "" (strcat "半径=" (rtos R 2 2)))
(command "text" "" (strcat "切线长=" (rtos x1 2 2)))
(command "text" "" (strcat "曲线长=" (rtos Cl 2 2)))
(command "text" "" (strcat "外距=" (rtos E 2 2)))
(command "text" "" (strcat "缓和曲线长=" (rtos Ls 2 2)))
);ll_d

(defun angf (alf)
(setq alff (angtos alf 1 4)
n 1
kk (strlen alff))
(repeat kk
(setq alfn (substr alff n 1))
(if (= alfn "d")
(setq nn n));if
(setq n (+ n 1))
);repeat
(strcat (substr alff 1 (- nn 1)) "%%" (substr alff nn))
);angf
(defun c:hh(/ p1 p2 pt1 pt2 pt3 pt4 pt5 pt6 pt10 pt20 id__ R V Ls E p3
r1 x y l x0 x1 C jd alf alf1 alf2 q p Cl Ls1 Ls2)
(command "ucs" "")
(setq p1 nil p2 nil)
(while (= p1 nil) (setq p1 (entsel "\n拾取第一条直线:")))
(redraw (car p1) 3)
(while (= p2 nil) (setq p2 (entsel "\n拾取第二条直线:")))
(redraw (car p2) 3)
(initget 1)
(setq R (getdist "\n请输入弯道半径R: "))
(initget 1 "Ls V")
(setq p3 (getdist "\n输入缓和曲线长度(Ls)或[设计速度(V)]: "))
(if (= p3 "V") (ll_v) (progn (setq ls p3) (ll_d)))
(princ)
);eline
(defun thh(len pt h)
(setq en_data (entget (car len))
old_data (assoc h en_data)
new_data (cons h pt)
en (subst new_data old_data en_data));setq
(entmod en)
);thh

⑧ CAD中缓和曲线怎么画

如果是不规则的曲线可以采用样条曲线命令,输入SPLINE命令后分别点起切点回车回车即可;
如果是想画精确的曲线,可采用圆弧命令来完成,圆弧命令在绘图工具栏下,有很多种画法,你按需输入即可;
还有一种是当曲线半径未知时,但知道再相切直线点,就可以利用倒角命令来操作了,输入倒角命令再输入倒角半径,分别点起两道线即可直接完成曲线。

⑨ CAD画图中如何绘制一条缓和曲线,要比较准确的!

楼主想做的话还是用Civil
3D吧,最新版本是2008。用里边的路线工具,可以直接绘制出想要的缓和曲线。其实这主要是用来绘制道路平曲线转弯处的缓和曲线的,不过楼主可以借用其中的这部分功能。
至于软件下载地址。。自己搜索吧,顺便说一句,这软件很大。

⑩ cad缓和曲线怎么画

用样条曲线画,缓和曲线的起点,终点,起点切线方向,终点切线方向,就可以了。
样条曲线特性不显示长度,拉伸能显示长度。