设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：编了一个小程序，老是有问题，现在放上来请各位 ...
返回列表 发新帖
查看: 841|回复: 6

[求助] [求助]：编了一个小程序，老是有问题，现在放上来请各位指教

[复制链接]
hjqpdga
发表于 2004-9-12 09:47:05 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
一个画二段光滑连接曲线的程序，具体见附图

  3. (defun c:qx ()
  4. (setq b1 (getint "\n左端高 " ))
  5.   (setq b2 (getint "\n 中端高" ))
  6.   (setq alfal (getreal "\n左系数 " ))
  7.   (setq alfac (getreal "\n中系数 " ))
  8. (if (>= alfal alfac)
  9.   (setq alfal (getreal "\n错误，请重新输入左系数" ))
  10.   (setq alfac (getreal "\n请重新输入中系数" ))
  11.   (setq beamspan (getint "\n 长度" ))
  12.   (setq beamh (getint "\n高度范围" ))
  13.   (setq pt000 (getpoint "\n 坐标中心点" ))
  14.    (setq x0  (car pt000))
  15.    (setq y0  (cadr pt000))
  16.    (setq l1 (* alfal beamspan))
  17.    (setq l3 (* alfac beamspan))
  18.    (setq zbl l3)
  19. (setq zbpt1 (polar pt000 pi zbl))
  20. (setq zbpt2 (polar pt000 0 zbl))
  21. (command "Line" zbpt1 zbpt2 "")
  22. (setq zbpt1 (polar pt000 (/ pi 2) zbl))
  23. (setq zbpt2 (polar pt000 (* 3 (/ pi 2)) zbl))
  24. (command "Line" zbpt1 zbpt2 "")                  
  25.          (setq x (- 0 l3))
  26.                 (calc1)
  27.                (setq zbpt1 (list x1 y1 '0))
  28.         (command "pline")       
  29.                (setq x (+ x 1))
  30.                 (calc1)
  31. (setq zbpt2 (list x1 y1 '0))
  32.         (command zbpt2)
  33.         (setq zbpt1 zbpt2)
  34.         (command "")
  35.      (setq x (- l3 l1))
  36. (calc2)
  37. (setq zbpt1 (list x1 y1 '0))
  38.         (command "pline")       
  39.                (setq x (+ x 1))
  40.                 (calc1)
  41. (setq zbpt2 (list x1 y1 '0))
  42.         (command zbpt2)
  43.         (setq zbpt1 zbpt2)
  44.         (command "")
  45.      (setq x (- l3 l1))
  46. (setq zbpt2 (list x1 y1 '0))
  47. (command "Line" zbpt1 zbpt2 "")
  48. (princ)
  49. )
  50.         (defun calc1 ()
  51.           (setq dalt1 (- (+ b1 b2) beamh))
  52.            (setq ym1 (* l1 l3))
  53.           (setq y (-(* (/ dalt1 ym1) (* (+ x l3) (+ x l3))) dalt1))
  54.           (setq x1 (+ x x0))
  55.           (setq y1 (+ y y0))
  56.           )
  57. (defun calc2 ()
  58.          (defun calc2 ()
  59.             (setq dalt1 (- beamh (+ b1 b2)))
  60.            (setq xd2 (- l3 l1))
  61.          (setq y (*(/ dalt2 (* l3 xd2)) (* x x))
  62.           (setq x1 (+ x x0))
  63.           (setq y1 (+ y y0))
  64. )
setq, zbpt2, command

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

hyx_lyn
发表于 2004-9-12 11:04:52 | 显示全部楼层
(setq zbpt1 (polar bpt pi zbl))

在上面的表达式中一个变量pbt在前面没有定义

在程序当中左系数与中系数不能相同

相同的话会导致除数为0的错误

这一点需要进行判断

另L1可不可以比L3大这也和系数相关
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hjqpdga
 楼主| 发表于 2004-9-12 19:22:35 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
还是不行
，麻烦那位大虾给我这只菜鸟改一改，谢谢啦
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hyx_lyn
发表于 2004-9-14 16:51:21 | 显示全部楼层
先看看我改的程序，现在图是能画出来但和你所要求的不同

希望你能把设计思路说出来

  3. (defun c:qx ()
  4.   (setvar "cmdecho" 0)
  5.   (setq b1 (getint "\n左端高:"))
  6.   (setq b2 (getint "\n中端高:"))
  7.   (setq alfal (getreal "\n左系数:"))
  8.   (setq alfac (getreal "\n中系数:"))
  9.   (if (>= alfal alfac)
  10.     (progn
  11.       (setq alfal (getreal "\n错误，请重新输入左系数:"))
  12.       (setq alfac (getreal "\n请重新输入中系数:"))
  13.     )
  14.   )
  15.   (setq beamspan (getint "\n长度:"))
  16.   (setq beamh (getint "\n高度范围:"))
  17.   (setq pt000 (getpoint "\n坐标中心点:"))
  18.   (setq os (getvar "osmode"))
  19.   (setvar "osmode" 0)
  20.   (setq x0 (car pt000))                        ;取得中心点X轴坐标
  21.   (setq y0 (cadr pt000))                ;取得中心点Y轴坐标
  22.   (setq l1 (* alfal beamspan))                ;按系数计算L1
  23.   (setq l3 (* alfac beamspan))                ;按系数计算L3
  24.   ;;以下6行为以中心点画十字线
  25.   (setq zbpt1 (polar pt000 pi l3))
  26.   (setq zbpt2 (polar pt000 0 l3))
  27.   (command "Line" zbpt1 zbpt2 "")
  28.   (setq zbpt1 (polar pt000 (/ pi 2) l3))
  29.   (setq zbpt2 (polar pt000 (* pi 1.5) l3))
  30.   (command "Line" zbpt1 zbpt2 "")
  31.   ;;
  32.   (setq x (- 0 l3))
  33.   (calc1)
  34.   (setq zbpt1 (list x1 y1))                ;以X1、Y1组成ZBPT1点坐标
  35.   (command "pline")
  36.   (while (< x 0)
  37.     (setq x (+ x 1))
  38.     (calc1)
  39.     (setq zbpt2 (list x1 y1))
  40.     (command zbpt2)
  41.     (setq zbpt1 zbpt2)
  42.   )
  43.   (command "")
  44.   (setq x (- l3 l1))
  45.   (calc2)
  46.   (setq zbpt1 (list x1 y1))
  47.   (command "pline")
  48.   (while (> x 0)
  49.     (setq x (- x 1))
  50.     (calc2)
  51.     (setq zbpt2 (list x1 y1))
  52.     (command zbpt2)
  53.     (setq zbpt1 zbpt2)
  54.   )
  55.   (command "")
  56.   (setq x (- l3 l1))
  57.   (setq zbpt2 (list x1 y1))
  58.   (command "Line" zbpt1 zbpt2 "")
  59.   (setvar "osmode" os)
  60.   (princ)
  61. )
  62. ;;;-------------------------------------------------------------
  63. (defun calc1 ()
  64.   (setq dalt1 (- (+ b1 b2) beamh))
  65.   (setq ym1 (* l1 l3))
  66.   (setq y (- (* (/ dalt1 ym1) (* (+ x l3) (+ x l3))) dalt1))
  67.   (setq x1 (+ x x0))                        ;按中心点偏移
  68.   (setq y1 (+ y y0))                        ;按中心点偏移
  69. )
  70. ;;;-------------------------------------------------------------
  71. (defun calc2 ()
  72.   (setq dalt2 (- (+ b1 b2) beamh))
  73.   (setq xd2 (- l3 l1))
  74.   (setq y (* (/ dalt2 (* l3 xd2)) (* x x)))
  75.   (setq x1 (+ x x0))                        ;按中心点偏移
  76.   (setq y1 (+ y y0))                        ;按中心点偏移
  77. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hjqpdga
 楼主| 发表于 2004-9-15 09:16:20 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢大虾的帮助，感激涕零，希望晓东有更多的热心人。
这其实是一个预应力筋放样曲线，预应力筋主要是由四段光滑曲线组成，这个程序是反映一半预应力的放样过程，也就是二段曲线连接而成，曲线方程即calc1 和calc2。calc1 的区间范围为-l3~(l1-l3),calc2 的区间范围为-(l1-l3)~0.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hyx_lyn
发表于 2004-9-18 14:09:51 | 显示全部楼层
对于预应力筋不了解，所以对这个曲线方程理解的不是很好

希望能把这两个方程用数学公式写一下

还有一个坐标中心点是哪一点，两段曲线的接点是不是落在坐标中心点上

左系数、中系数是什么，在曲线中如何确定应为多少
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

liguochen
发表于 2004-9-22 14:55:58 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
还是四楼的高明，仔细看看if语句吧，一个if后面跟了哪么多赋值语句，最多执行前两个，后面的都不会执行，用了progn就可以了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-27 11:51 , Processed in 0.288043 second(s), 45 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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