设为首页收藏本站
切换到宽版

CAD设计论坛

 找回密码
 立即注册
CAD设计论坛»论坛 › AutoCAD专区 › AutoCAD二维设计（含画法几何） › 急救！
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
12下一页
返回列表 发新帖
查看: 3853|回复: 16

[求助] 急救！

[复制链接]
dpw
发表于 2010-11-14 14:24 | 显示全部楼层 |阅读模式
好久没在上面发帖了！最近在学习，没有时间，现在又一些问题想求助大家！ 。。。。。问题是我在用CAD2005做螺线是输入了! c! y& |6 ~6 x& d; e- x; n& f( P2 S
  1. (defunC:luoxian
    8 y9 F$ N$ e! }  l6 U+ {$ c
  2.      (\)3 f. R3 U5 ^6 k! }8 k
  3.      (setq b1 (getpoint"指定螺旋线基点：")). x$ s$ U1 O( @8 ^
  4.      (setq r(getreal"请输入螺纹平均半径："))
    ! S! n1 S5 M7 P4 V9 y% V! d
  5.      (setq disp (getreal"请输入螺纹节距："))" o  Q/ O5 F6 C* e: O2 R1 ~" V
  6.      (setq n (getint"请输入每圈细化段数:"))/ y- l) w$ O) V! y( e0 R
  7.      (setq delta(|(*2.0pi)n)); m/ X6 R- x' R! S; s
  8.      (setq j (|disp n))
    : ^: H7 }; ]) M; U- G# M- N
  9.      (setq bb (caddr b1))7 o" |' i/ e! T: m
  10.      (setq and 0)
    & E, g, H) P! S( ^( B
  11.      (setq jj 0)" F+ S6 M+ Z' q
  12.      (Command"UCS""o"b1)9 S2 p$ e  J+ ^0 y- C
  13.      (Command"3dpoly"(list r 0 0))7 ~; ^0 f4 B% m& w: q2 q9 i
  14.      (repeat n2 v* q4 Q; ~6 @6 P
  15.          (setq jj(+jj))
    ( p. \4 f$ t  L1 K/ @
  16.          (setq ang(+delta ang))
    ) p1 D, h/ U% ?- ]
  17.          (setq pt2(list(*r(cos ang))(* r(sin ang))(+0*((j jj))))
    , \- a( |/ p8 X$ f& \
  18.   (Command pt2)
    % ]7 J( v6 B" [- e, S
  19. )
    ; U6 g2 v) T9 ?+ H( V
  20.        (Command"")
    5 H2 {2 A$ F- s( B) n. Y" j4 s
  21.        )
复制代码
1 I6 o( s2 J4 X
这些命令时 ，加载后，在命令行中输入luoxian，它的提示是按f1帮助，这不是表明没加载成功吗，无法使用，但是我确实是加载成功了！我试了好几次都不行！求大家慷慨解囊1给些意见！谢谢！我的成长希望能得到大家的见证！
论坛操作帮助 | 常用工具软件下载 | 获取社区币方法 | 新手必看帖 | 什么是灌水? | 会员积分等级说明 | 免责声明 | 隐私声明 | 更多帮助…
回复

举报

Camello
发表于 2010-11-14 14:47 | 显示全部楼层
错误大多- e2 @. ]$ F6 l. {( _$ `+ v: }
请先调整出该有的空格 9 x# c2 J% s* y; ?1 x8 N
(defunC:luoxian ===> (defun C:luoxian7 w$ |) R2 l, I% J2 u
其下还有更多.....
# e7 k6 ?8 w- n6 B* O6 B* ^ (setq delta(|(*2.0pi)n)) !!??
6 V6 H. j7 s* X7 a9 O9 J* P7 D: Q4 Q& c3 e) O7 I4 S! w6 }
最好上传文件,被加料后想调试都难

本帖子中包含更多资源

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

x
论坛操作帮助 | 常用工具软件下载 | 获取社区币方法 | 新手必看帖 | 什么是灌水? | 会员积分等级说明 | 免责声明 | 隐私声明 | 更多帮助…
回复 支持 反对

举报

xhq1954425
发表于 2010-11-14 15:03 | 显示全部楼层
(+0*表示什么？(\)也没有这样写的呀？ (setq delta(|(*2.0pi)n))中许多必要的空格都没有……
( g7 a2 ~+ v; o/ q- [0 X  o差太多了。
论坛操作帮助 | 常用工具软件下载 | 获取社区币方法 | 新手必看帖 | 什么是灌水? | 会员积分等级说明 | 免责声明 | 隐私声明 | 更多帮助…
回复 支持 反对

举报

dpw
 楼主| 发表于 2010-11-15 15:45 | 显示全部楼层

回复 #2 Camello 的帖子

我会尽快在这几天把文件上传！先谢谢你！ 我是自学CAD的，希望您多加帮助！
回复 支持 反对

举报

dpw
 楼主| 发表于 2010-11-15 15:54 | 显示全部楼层

回复 #3 xhq1954425 的帖子

哦！关于空格我没注意！以后会注意的！谢谢！关于空格还有其他的要求吗?顺便问一下！您知不知道一些关于AUTOLISP的书，我这方面的知识缺的太很,最好是基础教程的！我自学的！ 先谢谢您了！以后还希望您多多指点！
回复 支持 反对

举报

dpw
 楼主| 发表于 2010-11-17 12:07 | 显示全部楼层
请大家看一下 哪里错了！谢谢了！

本帖子中包含更多资源

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

x
回复 支持 反对

举报

dpw
 楼主| 发表于 2010-11-17 12:11 | 显示全部楼层
这是什么意思？搞不懂？

本帖子中包含更多资源

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

x
回复 支持 反对

举报

xhq1954425
发表于 2010-11-17 13:30 | 显示全部楼层
是原文件存贮地址变更了，找不到了！
回复 支持 反对

举报

xhq1954425
发表于 2010-11-17 13:31 | 显示全部楼层
把它删掉，重新打开一个！
回复 支持 反对

举报

dpw
 楼主| 发表于 2010-11-17 14:17 | 显示全部楼层

回复 #9 xhq1954425 的帖子

我从新建个文件，但是加载后，还是不行！恼火！ 你可能把制造螺线的步骤展示一下！主要是加载lsp命令，然后实行！我在这老犯晕！我一下午都在线，我等你回贴！谢谢了！ 我急需学会这个，要不然后面的没法再做了！谢谢了！ 等你回帖！
回复 支持 反对

举报

xhq1954425
发表于 2010-11-17 18:31 | 显示全部楼层
我白天一点空余时间都没有，只是早晚上来看看8 n7 T+ p. m6 r% z! L

$ D( `  {# P% K- F' q# n$ W; J; f% h' G1 N/ n0 T* H

: Z5 m: C8 ~' U/ r7 G. E' h3 ][ 本帖最后由 xhq1954425 于 2010-11-17 18:36 编辑 ]

本帖子中包含更多资源

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

x
回复 支持 反对

举报

Camello
发表于 2010-11-17 22:12 | 显示全部楼层

回复 #7 dpw 的帖子

(setq j (/ disp n))5 D9 Q, W; D1 {( l+ }. g/ q/ r
==>
4 Q" d$ ?5 U; b, V# |. [$ ](setq j (/ disp n 1.0))
$ j- L9 ~% [% b
1 U" a/ ?& G  U6 A: O8 ~! Q( R' I6 H7 M4 A7 `' R2 @
(setq and 0)
1 N1 z7 Y& b+ \: H/ a- N9 i==>
! y  |# H6 R4 u  o' q; b. U(setq ang 0)
2 f/ k1 c; r4 x$ Z
  F- E( s& U1 \/ s, O, S(setq jj(+jj 1))
+ V2 ^- K) X  r  u==>% S, n" ^1 }- V0 J6 A2 P
(setq jj (1+ jj))
" v5 i6 ^% L( v8 D  O+ K  B. `8 a! b* m/ q$ y
... (+0*((j jj))))  !!???
回复 支持 反对

举报

dpw
 楼主| 发表于 2010-11-19 21:07 | 显示全部楼层

回复 #11 xhq1954425 的帖子

谢谢了！ 我在试试吧！
回复 支持 反对

举报

dpw
 楼主| 发表于 2010-11-19 21:20 | 显示全部楼层

回复 #12 Camello 的帖子

不行！改过了还是加载不成！程序没有其他的问题了吗？帮忙可能把制作螺线的命令完整步骤发过来！谢谢了！
回复 支持 反对

举报

Camello
发表于 2010-11-19 22:35 | 显示全部楼层
这句  ... (+0*((j jj)))) !!???  您改成什么了
回复 支持 反对

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-5-31 01:01

CAD设计论坛，为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表