[编程申请]：求助斜坡

cqxt00 · 发表于 2004-12-2 23:59:57

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

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

×

有没有那个高手能帮小弟编一个如图的程序
最好是用lisp
谢谢！！！！

zxq0220 · 发表于 2004-12-3 11:12:07

试一下下面的程序，看看是否能满足楼主的要求。
[php]
(DEFUN C:RULER ()
(SETQ L1 (GETDIST "\n短线长度 :")
   L2 (GETDIST "\n长线长度 :")
   D1 (GETDIST "\n线间隔 :")
   PT1 (GETPOINT"\n起点 :"))
(IF (/= PT1 nil)
  (WHILE (SETQ PT2 (GETPOINT PT1 "\n下一点 :"))
(SETQ DS1 (DISTANCE PT1 PT2)
      ANG (ANGLE PT1 PT2)
      AN1 (+ (/ PI 2) ANG)
      NN (FIX (/ DS1 D1 2))
      PT3 PT1)
(COMMAND "LINE" PT1 PT2 "")
(REPEAT NN
(SETQ PT3 (POLAR PT3 ANG D1)
      PT4 (POLAR PT3 AN1 L2))
(COMMAND "LINE" PT3 PT4 "")
(SETQ PT3 (POLAR PT3 ANG D1)
      PT4 (POLAR PT3 AN1 L1))
(COMMAND "LINE" PT3 PT4 "")
)
(SETQ PT1 PT2)
  )
)
(PRINC)
)
[/php]

zh_6531394 · 发表于 2004-12-4 09:11:35

很好用

cqxt00 · 发表于 2004-12-5 23:19:45

zxq0220
谢谢你的程序！
但是“短线长度”“长线长度”的长度是由底线来决定的。
能不能改一下！如图（下载）

zxq0220 · 发表于 2004-12-6 09:48:32

最初由 cqxt00 发布
[B]zxq0220
谢谢你的程序！
但是“短线长度”“长线长度”的长度是由底线来决定的。
能不能改一下！如图（下载） [/B]

看了您的图，我想知道：
1、短线是否是长线的一半？
2、长短线的间隔如何决定？
3、是否可以按双线（平行线）画出？
4、如果两条线不平行怎么办？

cqxt00 · 发表于 2004-12-6 19:51:02

zxq0220
当然不是平行的
就是这点有点困难！

dearjdz123 · 发表于 2004-12-6 20:05:04

怎么样到底是求斜坡坡度还是长度呀,能否明白一点

cqxt00 · 发表于 2004-12-6 21:30:29

zxq0220 、dearjdz123你好！
短线可以不管！
间距也可以不管
主要的是长线
请看图

zxq0220 · 发表于 2004-12-8 15:34:00

看了您的图样，随机性太强了。要写程序画这样的图可不太容易。

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

[编程申请]：求助斜坡

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

相关帖子

浏览过的版块

[编程申请]：求助 斜坡

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

相关帖子

浏览过的版块

[编程申请]：求助斜坡