[求助]：在cad中能画螺旋线吗？

冰火 · 发表于 2004-4-3 01:14:42

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

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

×

在cad中能画螺旋线吗？

lsjjm · 发表于 2004-4-3 04:38:48

什么类型的螺旋线？有何具体要求？
请参考一个老版本的小程序：
(defun c:test ()
  (command "erase" "all" "")
  (setq oldblip (getvar "blipmode"))
  (setq oldecho (getvar "cmdecho"))
  (setvar "blipmode" 0)
  (setvar "cmdecho" 0)
  (setq p1 (getpoint "\nPick Point:") ang 0 diss 0.1)
  (setq p2 (polar p1 ang diss))
  (repeat 1000
(command "line" p1 p2 "")
(setq ang (+ ang 3) diss (+ diss 0.05))
(setq p1 p2)
(setq p2 (polar p2 (* ang 0.01745) diss))
  )
  (setvar "blipmode" oldblip)
  (setvar "cmdecho" oldecho)
  (command "zoom" "all")
)
(princ "Spiral.Lsp Loaded. Type SP to use.") (TERPRI) (PRINC)

zhaokun1452 · 发表于 2004-4-3 08:25:30

请问2楼的长老,你编的程序怎么用啊,应该存放在什么地方啊

alwaysbin · 发表于 2004-4-3 18:50:42

不知道楼主说的螺旋线是什么线？
cad是个非常强大的东西，只要你想得到，就能做得到。

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

[求助]：在cad中能画螺旋线吗？

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

相关帖子

浏览过的版块