怎样用CAD画带有函数的曲线???

adolphgy

假设一个函数X2+y2=25,要根据其绘出曲线,应该怎样操作呢??

CADghost

可以倒是可以,但是对于大部分函数都是趋近于无穷的,这样就很难完成了,你倒是可以给定一个区间来画出指定的图形 (defun c:tt_line () (setvar "osmode" 0) (Setvar "cmdecho" 0)
(princ "\n请指定X的定义域:")
(setq tt_mt (getreal "\n请指定X轴的最小单位:"))
(setq tt_mt (abs tt_mt))
(setq tt_x_min (getint "\n请指定X的最小值:"))
(setq tt_x_max (getint "\n请指定X的最大值:"))
(while (<= tt_x_max tt_x_min)
(princ "\n最大值必须大于且不等于最小值!")
(setq tt_x_min (getint "\n请指定X的最小值:"))
(setq tt_x_max (getint "\n请指定X的最大值:"))
)
(setq tt_nsp (/ (- tt_x_max tt_x_min) tt_mt))
(Setq nn 0)
(setq aaa (atoi (rtos tt_nsp 2 0)))
(Setq pt_x tt_x_min)
(command "line")
(repeat aaa
(Setq pt_x (+ nn pt_x))
(setq pt_y (sqrt (- 25 (* pt_x pt_x))))
(setq pt (list pt_x pt_y))
(setq nn tt_mt)
(command pt)
)
(command "") (command "line" ppy1 "0,0" ppx1 "")
(command "text" "J" "TR" ppx1 "" "" "x" "")
(command "text" "J" "TR" ppy1 "" "" "y" "") (princ)
)

CADghost

这个程序可不能分辨你的输入是否在X的定义域内 也就是说,你必须输入X的定义域之内的数 再来一个y=sinx函数的 (defun c:tt_line () (setvar "osmode" 0) (setvar "cmdecho" 0)
(princ "\n请指定X的定义域:")
(setq tt_mt (getreal "\n请指定X轴的最小单位:"))
(setq tt_mt (abs tt_mt))
(setq tt_x_min (getint "\n请指定X的最小值:"))
(setq tt_x_max (getint "\n请指定X的最大值:"))
(while (<= tt_x_max tt_x_min)
(princ "\n最大值必须大于且不等于最小值!")
(setq tt_x_min (getint "\n请指定X的最小值:"))
(setq tt_x_max (getint "\n请指定X的最大值:"))
)
(setq tt_nsp (/ (- tt_x_max tt_x_min) tt_mt))
(Setq nn 0)
(setq aaa (atoi (rtos tt_nsp 2 0)))
(Setq pt_x tt_x_min)
(command "line")
(repeat aaa
(Setq pt_x (+ nn pt_x))
(setq pt_y (sin pt_x)) ;关键是这句,你可以自已变成自己想要的公式 (setq pt (list pt_x pt_y))
(setq nn tt_mt)
(command pt)
)
(command "") (command "line" ppy1 "0,0" ppx1 "")
(command "text" "J" "TR" ppx1 "" "" "x" "")
(command "text" "J" "TR" ppy1 "" "" "y" "") (princ)
)

adolphgy

鬼哥,你的意思是一定要编程才能实现啊?这个对初学者来说似乎难了点~~555


这段语言应该用什么编辑??

CADghost

把这个程序下载到任意文件夹，然后直接拖到CAD的绘图窗口中，输入命令


tt_line

fufu79cn

5楼的你程序中的解释语句错了，请修改一下。问题不是很大但既然让人家下载就要能用，你说对吧。

CADghost

谢谢楼上的兄弟，确实疏忽了！ 文件中第二句应为 (princ "\n在命令行中输入命令：<tt_line>")

xushifu210

楼上，厉害。能否提个建议，怎么学AUTOLISP程序