[求助]：怎样在Autocad里绘制函数图像，如正弦曲线？？

guohq · 发表于 2006-6-3 13:27:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

怎样在Autocad里绘制函数图像，如正弦曲线？？

qjcpj · 发表于 2006-6-3 13:30:19

使用lisp很容易解决，你在论坛上搜索一下，说不定...

guohq · 发表于 2006-6-3 13:41:04

俺不会LISP呀，

SGP007 · 发表于 2006-6-3 17:18:19

论坛上有做好的lsp，拿来用就行了。LSP可以用记事本打开，找到如defun c:hx()，dufun C：后面的hx就是加载后LSP的命令。先加载LSP，在工具里面“加载应用程序”

chydraulic · 发表于 2006-6-8 08:57:40

(defun c:sintest()

(setvar "cmdecho" 0)

(setq angs (getangle "区间起始角度<0>"))

(if (null angs)(setq angs 0))

(setq ange (getangle "区间终止角度<360>"))

(if (null ange)(setq ange (* pi 2)))

(setq angadd(getangle "计算增量<1>"))

(if (null angadd)(setq angadd (/ pi 180)))

(setq sinpt (getpoint '中心原点:"))

(setvar "cecolor" "3")

(command "pline")

(setq x angs)

(while (<= x ange)

(setq y (sin x))

(command (mapcar '+ sinpt (list x y)))

(setq x (+ x angadd))

(princ (angtos x))

)

(command "")

(setvar "cecolor" "1")

(command "line" sinpt (polar sinpt 0 (+ x 1)) "")

(command "line" sinpt (polar sinpt (* pi 0.5) 2) "")

(prin1)

)

账号		自动登录	找回密码
密码			立即注册

[求助]：怎样在Autocad里绘制函数图像，如正弦曲线？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子