leimc 发表于 2007-12-19 16:39

用LISP二次开发来绘制一个楼梯


这是教程里的一道题
(defun c:lt()
(setvar "cmdecho" 0)
(setq p1 (getpoint "\n插入点"))
(setq w (getreal "\n梯宽"))
(setq h (getreal "\n梯高"))
(setq n (getint "\n级数"))
(setq p2 (polar p1 0 w))
(setq p3 (polar p2 (/ pi 2) h))

(command "line" p1 p2 p3 "")

(setq w1 (/ w n))
(setq h1 (/ h n))
(setq pa p1)
(repeat n
(setq pb (polar pa (/ pi 2) h1))
(setq pc (polar pb 0 w1))
(command "line" pa pb pc "")
(setq pa pc)
(prin1)))
(prompt "\n命令：lt")

[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ]

cad 发表于 2007-12-19 16:44

不错，下次你可以将代码用这种形式发：

你编写的代码

这样代码就会进入一个专用文本框中，不会出现头像....等问题

leimc 发表于 2007-12-19 16:54

好的！我下次就这样做。

fffttt 发表于 2007-12-19 17:47

我总觉得直接画，要来得快些哦！:lol :lol

leimc 发表于 2007-12-19 20:28

ziheshi 发表于 2009-5-3 18:41

学习中,谢谢楼主了.

leimc 发表于 2011-10-8 13:20

回复 4# fffttt


    如果你一生中只绘制一次的图形，那自然是了
但如果你工作经常都要用到的模块,你就知道有多方便了。
这还是简单演示
对于常用的图形，我们会先绘制成块或者属性保存，而这却又比属性块还更强大、更方便。
页: [1]
查看完整版本: 用LISP二次开发来绘制一个楼梯