快速绘制出金字塔

荒野孤行

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

1. ;;;*****************金字塔 程序开始*************
   
2. (defun c:jzt ()
   
3.   (setvar "osmode" 15359)
   
4.   (setvar "cmdecho" 0)
   
5.   (command "undo" "be")
   
6.   (princ "\n★功能：绘制金字塔.\n")
   
7.   (initget 1)
   
8.   (setq pt1 (getpoint "\n起点:"))
   
9.   (initget 1)
   
10.   (setq pt2 (getpoint pt1 "\n终点:"))
    
11.   (setq nn (getint "\n层叠数<10>:"))
    
12.   (if (null nn)
    
13.     (setq nn 10)
    
14.   )
    
15.   (setq dd (distance pt1 pt2))
    
16.   (setq ang (angle pt1 pt2))
    
17.   (setq rr (/ (/ dd (1- nn)) 2))
    
18.   (setq nn2 nn)
    
19.   (setvar "osmode" 0)
    
20.   (repeat nn
    
21.     (setq bas pt1)
    
22.     (repeat nn2
    
23.       (command "circle" bas rr)
    
24.       (setq bas (polar bas ang (* rr 2)))
    
25.     )
    
26.     (setq nn2 (1- nn2))
    
27.     (setq pt1 (polar pt1 (+ ang (/ (* 60 PI) 180)) (* rr 2)))
    
28.   )
    
29.   (command "undo" "e")(setvar "osmode" 15359)(princ))
    
30. ;;;想看隐藏部分请回复。。。
    

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

;;;*****************金字塔 程序结束*************

胖大海

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

在新手面前很X很X

飞沫s

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

clinber

顶顶 虽然不知道干啥用

荒野孤行

clinber 发表于 2015-5-25 21:17
顶顶 虽然不知道干啥用

在新手面前装X用的。

clinber

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

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

fan_zh

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

ynhh

这些感觉不错啊

ucuc2003

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

看起来就是很帅

伪书虫86

最近产量很高麽

杜阳

牛    啊   

heisedeye

谢谢楼主分享