自动绘制楼梯的代码，请高手指点错误？

chenlight · 发表于 2012-7-29 22:43:04

(defun c:7test2a()
  (initget "L l R r")
  (setq fx(getkword "请输入楼梯转动方向L or R:"));fx=方向
  (setq pa(getpoint "请输入左直角点："))
  (setq ww(getdist pa "\n请输入楼梯宽度："))
  (setq hh(getdist pa"\n请输入楼梯长度："))
  (setq n (getint "\n请输入楼梯阶数："))

  (setq dw (/ ww n))
  (setq dh (/ hh n))
  (setq pp pa)

  (command "pline" pp)

  (setq fx (strcat fx))

  (cond
   ((= fx "R");楼梯走向向右
   ((repeat n
      (setq p1 (polar pp (/ pi 2) dh))
      (setq p2 (polar p1 0 dw))
      (command p1 p2)
      (setq pp p2)
      )
   (command "")
      (setq pb(polar pa 0 ww))
      (setq pc(polar pb (/ pi 2) hh))
      (command "line" pa pb pc "")
   )
   )
((= fx "L");楼梯走向向左
   ((repeat n
      (setq p1 (polar pp (/ pi 2) dh))
      (setq p2 (polar p1 pi dw))
      (command p1 p2)
      (setq pp p2)
   )
   (command "")
      (setq pb(polar pa pi ww))
      (setq pc(polar pb (/ pi 2) hh))
      (command "line" pa pb pc "")
   )
)
)
  (prin1)
)
(prompt "\n<7test2a>自动楼梯绘制程序")
(prin1)

该贴已经同步到 chenlight的微博

xyp1964 · 发表于 2012-7-29 22:55:28

(defun c:tt ()
(initget "L l R r")
(setvar "osmode" 0)
(setq fx (getkword "请输入楼梯转动方向L or R: ")
pa (getpoint "请输入左直角点: ")
ww (getdist pa "\n请输入楼梯宽度: ")
hh (getdist pa "\n请输入楼梯长度: ")
n (getint "\n请输入楼梯阶数: ")
dw (/ ww n 1.)
dh (/ hh n 1.)
pp pa
fx (strcat fx)
rad (if (= fx "R") 0 pi)
)
(command "pline" pp)
(repeat n
(setq p1 (polar pp (/ pi 2) dh)
p2 (polar p1 rad dw)
pp p2
)
(command p1 p2)
)
(command "")
(setq pb (polar pa rad ww)
pc (polar pb (/ pi 2) hh)
)
(command "line" pa pb pc "")
(princ)
)

chenlight · 发表于 2012-7-30 12:34:01

经加载测试后非常好，感谢楼主

革天明 · 发表于 2012-7-30 16:39:35

姬无命（以下简称姬）：想怎么死，我成全你。

秀才：慢着，杀我可以，不过得先说明了，我到底死在谁的手里？

姬：废话，我呀。

秀才：我……是……谁……

姬：我怎么知道你是谁啊？

秀才（笑）：问题来了吧。

姬（一头雾水）：什么意思啊？

秀才：这得从人和宇宙的关系开始讲起了，在你身上一直以来就有一个问题缠绕着你。

姬：什么意思啊？

秀才：我，是谁？

姬：这，我已经知道了。

秀才：不，你不知道。你知道吗，你是谁？姬无命吗？不，这只是个名字，一个代号。你可以叫姬无命，我也可以叫姬无命，他们都可以。把代号拿掉之后呢，你又是谁？

姬：我不知道，我也不用知道。

秀才：好，好，那你再回答我另一个问题：我是谁？

姬：这个问题已经问过了。

秀才：不，我刚才问的是本我，现在问的是自我。

姬：这有什么区别吗？

秀才：举个例子，当我用我这个代号来进行对话的同时，你的代号也是我，这意味着什么呢？这是否意味着你就是我，而我也就是你……

姬：这个问题没什么意义。

秀才：那就问几个有意义的。我生从何来，死往何处？我为何要出现在这个世界上？我的出现对这个世界意味着什么？是世界选择了我，还是我选择了世界？

姬：够了……！

秀才：我和宇宙之间有必然的联系吗？宇宙是否有尽头？时间是否有长短？过去的时间在哪里消失？未来的时间又在何处停止？我在这一刻提出的问题还是你刚才提到的问题吗？

姬（头都大了）：我杀了你！

秀才高喊：是谁杀了我，而我又杀了谁？

姬（愣了）：是我杀了我？

秀才：回答正确！动手吧！

于是，一代绝顶高手姬无命就这样丧命了。

ZZXXQQ · 发表于 2012-7-30 23:20:32

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

86023383 · 发表于 2013-7-27 22:47:36

必须看看啊 ~~~~~~·

hooboxu · 发表于 2014-12-6 18:22:30

顶一下回去看。

xzs0829 · 发表于 2015-8-10 18:34:27

不错不错！！！

Cafemeow · 发表于 2017-8-30 23:36:48

看看，自卖自夸额

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

自动绘制楼梯的代码，请高手指点错误？

相关帖子

点评