[编程申请]：希望晓东编一个画旋转楼梯的lisp

unhack · 发表于 2002-11-4 11:04:03

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

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

×

希望晓东编一个画旋转楼梯的lisp,平时感觉画旋转楼梯的立面很麻烦，希望能帮忙解决一下

风子 · 发表于 2002-11-10 18:38:10

这还要晓东花？下载看看，把角度设成0度就好！

unhack · 发表于 2002-11-10 20:05:22

这个我有阿,它是画三维螺旋线的阿,不是螺旋楼梯

风子 · 发表于 2002-11-10 21:37:10

噢……不一样？

unhack · 发表于 2002-11-10 21:57:06

是阿,估计画螺旋楼梯难度比较大:(

cy956 · 发表于 2002-11-11 01:02:00

网上有3d螺旋梯的程序，你可以转为2d图，都hide好了。

unhack · 发表于 2002-11-11 11:13:45

楼上的你可以给我一个吗?

unhack · 发表于 2002-11-11 18:52:41

怎么没会应阿?
cy956你看到帖子,把它贴出来好不好?

cy956 · 发表于 2002-11-12 18:28:52

以前的找不到了，不过正好看到一个新的：

http://www.buildyw.com/dispbbs.asp?boardID=33&ID=625

原程序有误，在下面提示处改成现在这样:
(defun C:3DSP  (/    bli cmd cla blksp cp lp riser step
            wide  count hrl blk thi lp1 lp2 lp3 lp4
            case  el rp diag  al ang a    tr1 tl1
            os1 olderr)
  (setq olderr  *error*
      *error* 3dsp_err)
  (setq bli (getvar "blipmode")
      cmd (getvar "cmdecho")
      cla (getvar "clayer"))
  (setvar "blipmode" 0)
  (setvar "cmdecho" 0)
  (setq os1 (getvar "osmode"));;;<<------------错处,多了个os1
  (setvar "osmode" 0)
  (spinfo)
  (spcalc)
  (while (< count case) (sbuild))
  (command "layer" "s" "spiral" ""    ; draw ending face
         "3dface" "i" lp3 tr1 "i" tl1 "i" lp2 "")
  (setvar "cecolor" "bylayer")
  (setvar "blipmode" bli)
  (setvar "cmdecho" cmd)
  (setvar "clayer" cla)
  (if (not (equal blksp nil))
(close blksp))
  (setq blksp (open "blksp.lst" "w"))
  (write-line blk blksp)
  (close blksp)
  (setvar "osmode" os1)
  (setq *error* olderr)
  (princ))

unhack · 发表于 2002-11-12 22:18:13

恕我无知问一下，为什么原来的程序比你贴的这个多很多呢？

cy956 · 发表于 2002-11-12 22:40:37

你很细致。我还是把程序整个贴上吧。

Qlin · 发表于 2002-11-19 21:21:27

呵呵，这么多年前的程序，又给翻出来了:)

unhack · 发表于 2002-11-23 05:00:18

但是画出来的效果好像很差啊，圆形的旋转楼梯变成多边形了，栏杆也是一段一段的

Qlin · 发表于 2002-11-24 14:17:16

程序的思路是这样的：绘制单元体->拷贝->旋转
你可在单元体绘制部分编制更细致的代码.

unhack · 发表于 2002-11-24 22:57:25

希望会编程的朋友帮忙做一个完美点的。谢谢

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

[编程申请]：希望晓东编一个画旋转楼梯的lisp

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

相关帖子