设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [求助]关于相贯线的问题
12下一页
返回列表 发新帖
查看: 2311|回复: 16

[求助]关于相贯线的问题

  [复制链接]
gzqk
发表于 2006-9-11 10:00 | 显示全部楼层 |阅读模式
异径管相交怎么样画相贯线的展开图啊？我搜索论坛看到有个程序可以自动画的，但是下载不到，请高手出马指点，急需
回复

使用道具 举报

gzqk
 楼主| 发表于 2006-9-11 11:08 | 显示全部楼层

没有人说话

回复 支持 反对

使用道具 举报

gzqk
 楼主| 发表于 2006-9-13 09:07 | 显示全部楼层

没人来还是没人会？晕

回复 支持 反对

使用道具 举报

ZZXXQQ
发表于 2006-9-13 14:21 | 显示全部楼层
  2. (DEFUN C:XGX ()
  3. (SETQ OLDOS (GETVAR "OSMODE"))
  4. (SETVAR "OSMODE" 0)
  5. (SETVAR "CMDECHO" 0)
  6. (SETQ D (GETDIST "\nDiamter of D= ")
  7.       DS (GETDIST "\nDiamter of d= "))
  8. (WHILE (> DS D)
  9. (PROMPT "\nThe d must less than D! ")
  10. (SETQ DS (GETDIST "\nReinter Diamter of d= "))
  11. )
  12. (SETQ B (GETREAL "\nAngle of the pipe (DEG) B= <90> "))
  13. (WHILE (= B 0)
  14. (PROMPT "\nThe angle B must begger than 0")
  15. (SETQ B (GETREAL "\nAngle of the pipe (DEG) B= <90> "))
  16. )
  17. (PROMPT "\nEnter Length of small pipe L= <")
  18. (PRINC (* 3 DS))
  19. (SETQ L (GETDIST "> "))
  20. (SETQ L (IF (= L nil) (* 3 DS) L))
  21. (SETQ B (/ (* (IF (= B nil) 90 B) PI) 180)
  22.       ANG (- B PI) AL1 (/ PI 2) AL2 (- AL1)
  23.       A 0 TA (/ (* 5 PI) 180)
  24.       RS (* DS 0.5) R (* D 0.5)
  25.       LSTEP (* TA RS)
  26.       PT (GETPOINT "\nInsert Point : ")
  27.       PT1 (POLAR PT PI (* RS PI))
  28.       PT2 (POLAR PT1 AL1 L))
  29. (SETQ A (+ A TA) RA (* (SIN A) RS))
  30. (COMMAND "PLINE" PT2 "A")
  31. (SETQ PT3 (POLAR PT2 0 LSTEP)
  32.        PT2 (POLAR PT3 AL1 (/ (- R (SQRT (- (* R R) (* RA RA)))) (SIN B))))
  33. (COMMAND "S" PT2)
  34. (REPEAT 71
  35.   (SETQ A (+ A TA) RA (* (SIN A) RS))
  36.         PT3 (POLAR PT3 0 LSTEP)
  37.         PT2 (POLAR PT3 AL1 (/ (- R (SQRT (- (* R R) (* RA RA)))) (SIN B))))
  38.   (COMMAND PT2)
  39. )
  40. (SETQ PT3 (POLAR PT3 AL2 L))
  41. (COMMAND "L" PT3 PT1 "C")
  42. (SETVAR "OSMODE" OLDOS)
  43. (SETVAR "CMDECHO" 1)
  44. (PRINC)
  45. )
复制代码
回复 支持 反对

使用道具 举报

gzqk
 楼主| 发表于 2006-9-13 14:39 | 显示全部楼层
有高手现身了，多谢多谢，我先看看，有问题继续请教，请不要嫌烦，呵呵
回复 支持 反对

使用道具 举报

gzqk
 楼主| 发表于 2006-9-13 14:52 | 显示全部楼层
我没办法看到自己的论坛短信的？怎么回事？谁来说说啊
回复 支持 反对

使用道具 举报

gzqk
 楼主| 发表于 2006-9-13 15:06 | 显示全部楼层

能不能留个QQ之类的啊？有问题请教，呵呵

回复 支持 反对

使用道具 举报

ZZXXQQ
发表于 2006-9-15 08:59 | 显示全部楼层
多个右括弧，改了一下。
  2. (DEFUN C:XGX ()
  3. (SETQ OLDOS (GETVAR "OSMODE"))
  4. (SETVAR "OSMODE" 0)
  5. (SETVAR "CMDECHO" 0)
  6. (SETQ D (GETDIST "\nDiamter of D= ")
  7.       DS (GETDIST "\nDiamter of d= "))
  8. (WHILE (> DS D)
  9. (PROMPT "\nThe d must less than D! ")
  10. (SETQ DS (GETDIST "\nReinter Diamter of d= "))
  11. )
  12. (SETQ B (GETREAL "\nAngle of the pipe (DEG) B= <90> "))
  13. (WHILE (= B 0)
  14. (PROMPT "\nThe angle B must begger than 0")
  15. (SETQ B (GETREAL "\nAngle of the pipe (DEG) B= <90> "))
  16. )
  17. (PROMPT "\nEnter Length of small pipe L= <")
  18. (PRINC (* 3 DS))
  19. (SETQ L (GETDIST "> "))
  20. (SETQ L (IF (= L nil) (* 3 DS) L))
  21. (SETQ B (/ (* (IF (= B nil) 90 B) PI) 180)
  22.       ANG (- B PI) AL1 (/ PI 2) AL2 (- AL1)
  23.       A 0 TA (/ (* 5 PI) 180)
  24.       RS (* DS 0.5) R (* D 0.5)
  25.       LSTEP (* TA RS)
  26.       PT (GETPOINT "\nInsert Point : ")
  27.       PT1 (POLAR PT PI (* RS PI))
  28.       PT2 (POLAR PT1 AL1 L))
  29. (SETQ A (+ A TA) RA (* (SIN A) RS))
  30. (COMMAND "PLINE" PT2 "A")
  31. (SETQ PT3 (POLAR PT2 0 LSTEP)
  32.        PT2 (POLAR PT3 AL1 (/ (- R (SQRT (- (* R R) (* RA RA)))) (SIN B))))
  33. (COMMAND "S" PT2)
  34. (REPEAT 71
  35.   (SETQ A (+ A TA) RA (* (SIN A) RS)
  36.         PT3 (POLAR PT3 0 LSTEP)
  37.         PT2 (POLAR PT3 AL1 (/ (- R (SQRT (- (* R R) (* RA RA)))) (SIN B))))
  38.   (COMMAND PT2)
  39. )
  40. (SETQ PT3 (POLAR PT3 AL2 L))
  41. (COMMAND "L" PT3 PT1 "C")
  42. (SETVAR "OSMODE" OLDOS)
  43. (SETVAR "CMDECHO" 1)
  44. (PRINC)
  45. )
复制代码

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

gzqk
 楼主| 发表于 2006-9-15 10:56 | 显示全部楼层

多谢ZZXXQQ，现在还有两个问题请教：

1、(PROMPT "\nEnter Length of small pipe L= <")

是指小管长度？小管长度和相贯线有什么关系？

 2、PT (GETPOINT "\nInsert Point : ")

插入点是什么？这一点的坐标怎么定？整个坐标系的圆点怎么定？不是很明白，需要你的解答。

谢谢，希望继续指教，不弄明白这程序没法在实际中应用啊

回复 支持 反对

使用道具 举报

gzqk
 楼主| 发表于 2006-9-15 10:57 | 显示全部楼层

如果有时间你可以发邮件或者QQ我，我的邮箱：grames@21cn.com

QQ:368822

非常感谢，急死了现在

回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-5-10 13:41 , Processed in 0.158175 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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