荒野孤行 发表于 2015-5-25 20:49:21

快速绘制出金字塔

见图示，直接绘制一条线即可自动生成由圆堆叠成的金字塔。

;;;*****************金字塔 程序开始*************
(defun c:jzt ()
(setvar "osmode" 15359)
(setvar "cmdecho" 0)
(command "undo" "be")
(princ "\n★功能：绘制金字塔.\n")
(initget 1)
(setq pt1 (getpoint "\n起点:"))
(initget 1)
(setq pt2 (getpoint pt1 "\n终点:"))
(setq nn (getint "\n层叠数<10>:"))
(if (null nn)
    (setq nn 10)
)
(setq dd (distance pt1 pt2))
(setq ang (angle pt1 pt2))
(setq rr (/ (/ dd (1- nn)) 2))
(setq nn2 nn)
(setvar "osmode" 0)
(repeat nn
    (setq bas pt1)
    (repeat nn2
      (command "circle" bas rr)
      (setq bas (polar bas ang (* rr 2)))
    )
    (setq nn2 (1- nn2))
    (setq pt1 (polar pt1 (+ ang (/ (* 60 PI) 180)) (* rr 2)))
)
(command "undo" "e")(setvar "osmode" 15359)(princ))
;;;想看隐藏部分请回复。。。

**** Hidden Message *****

胖大海 发表于 2020-3-13 16:20:01

荒野孤行 发表于 2015-5-25 21:19
在新手面前装X用的。

在新手面前很X很X

飞沫s 发表于 2016-11-5 12:56:49

谢谢楼主 我马上就要用这个交作业了 哈哈哈哈 老师

clinber 发表于 2015-5-25 21:17:40

顶顶 虽然不知道干啥用

荒野孤行 发表于 2015-5-25 21:19:40

clinber 发表于 2015-5-25 21:17 static/image/common/back.gif
顶顶 虽然不知道干啥用

在新手面前装X用的。

clinber 发表于 2015-5-25 21:21:04

荒野孤行 发表于 2015-5-25 21:19 static/image/common/back.gif
在新手面前装X用的。

这样啊 不过真心觉得高大上 我才开始学习

fan_zh 发表于 2015-5-26 09:06:23

谢谢楼主的无私奉献!!!!!!

ynhh 发表于 2015-5-26 12:11:32

这些感觉不错啊

ucuc2003 发表于 2015-5-26 23:32:11

荒野孤行 发表于 2015-5-25 21:19 static/image/common/back.gif
在新手面前装X用的。

看起来就是很帅

伪书虫86 发表于 2015-5-27 08:17:02

最近产量很高麽

杜阳 发表于 2015-5-27 14:41:14

牛    啊   

heisedeye 发表于 2015-5-29 18:16:02

谢谢楼主分享
页: [1] 2 3 4 5
查看完整版本: 快速绘制出金字塔