Autolisp:利用AuoCAD之Lisp编程案例之自动智能绘制枫叶玫瑰-阿里云开发者社区

开发者社区> 一个处女座的程序猿> 正文

Autolisp:利用AuoCAD之Lisp编程案例之自动智能绘制枫叶玫瑰

简介: Autolisp:利用AuoCAD之Lisp编程案例之自动智能绘制枫叶玫瑰
+关注继续查看

输出结果

https://img-blog.csdn.net/20180424162059103?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzQxMTg1ODY4/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70



实现代码


;风玫瑰程序: GXFMG.LSP       1989.1.

(defun dbh(a)

(* pi (/ a 180.0))

)

(defun C:FMG( )

(setq pt (getpoint "风玫瑰中心点—Jason niu:"))

(setq len (getdist "O-D1之距:"))

(setq d1 (polar pt (dbh 0) len))

(setq len (getdist "O-D2之距:"))

(setq d2 (polar pt (dbh 22.50) len))

(setq len (getdist "O-D3之距:"))

(setq d3 (polar pt (dbh 45.00) len))

(setq len (getdist "O-D4之距:"))

(setq d4 (polar pt (dbh 67.50) len))

(setq len (getdist "O-D5之距:"))

(setq d5 (polar pt (dbh 90.00) len))

(setq len (getdist "O-D6之距:"))

(setq d6 (polar pt (dbh 112.5) len))

(setq len (getdist "O-D7之距:"))

(setq d7 (polar pt (dbh 135.00) len))

(setq len (getdist "O-D8之距:"))

(setq d8 (polar pt (dbh 157.5) len))

(setq len (getdist "O-D9之距:"))

(setq d9 (polar pt (dbh 180.00) len))

(setq len (getdist "O-D10之距:"))

(setq d10 (polar pt (dbh 202.50) len))

(setq len (getdist "O-D11之距:"))

(setq d11 (polar pt (dbh 225.00) len))

(setq len (getdist "O-D12之距:"))

(setq d12 (polar pt (dbh 247.50) len))

(setq len (getdist "O-D13之距:"))

(setq d13 (polar pt (dbh 270.0) len ))

(setq len (getdist "O-D14之距:"))

(setq d14 (polar pt (dbh 292.50) len))

(setq len (getdist "O-D15之距:"))

(setq d15 (polar pt (dbh 315.00) len))

(setq len (getdist "O-D16之距:"))

(setq d16 (polar pt (dbh 337.50) len))

(command "line" d10 d2 \r)

(command "line" d11 d3 \r)

(command "line" d12 d4 \r)

(command "line" d14 d6 \r)

(command "line" d15 d7 \r)

(command "line" d16 d8 \r)

(command "line" d1 d2 d3 d4 d5 d6 d7 d8 d9 d10 d11 d12 d13 d14 d15 d16 d1 \r)

)


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
6 个 Linux 运维典型问题,大牛的分析解决思路在这里
  作为一名合格的 Linux 运维工程师,一定要有一套清晰、明确的解决故障思路,当问题出现时,才能迅速定位、解决问题,这里给出一个处理问题的一般思路:   重视报错提示信息:每个错误的出现,都是给出错误提示信息,一般情况下这个提示基本定位了问题的所在,因此一定要重视这个报错信息,如果对这些错误信息视而不见,问题永远得不到解决。查阅日志文件:有时候报错信息只是给出了问题的表面现象,要想更深入的了解问题,必须查看相应的日志文件,而日志文件又分为系统日志文件(/var/log)和应用的日志文件,结合这两个日志文件,一般就能定位问题所在。分析、定位问题:这个过程是比较复杂的,根据报错信息,结合日志
6 0
26个例子来搞懂数据库锁
  1 前言   数据库大并发操作要考虑死锁和锁的性能问题。看到网上大多语焉不详(尤其更新锁),所以这里做个简明解释,为下面描述方便,这里用T1代表一个数据库执行请求,T2代表另一个请求,也可以理解为T1为一个线程,T2 为另一个线程。T3,T4以此类推。下面以SQL Server(2005)为例。   2 锁的种类共享锁(Shared lock)。   例1:   ----------------------------------------   T1: select * from table (请想象它需要执行1个小时之久,后面的sql语句请都这么想象)   T2: upda
7 0
Java 性能优化:35个小细节,让你提升Java代码运行的效率
  代码优化,一个很重要的课题。可能有些人觉得没用,一些细小的地方有什么好修改的,改与不改对于代码的运行效率有什么影响呢?这个问题我是这么考虑的,就像大海里面的鲸鱼一样,它吃一条小虾米有用吗?没用,但是,吃的小虾米一多之后,鲸鱼就被喂饱了。   代码优化也是一样,如果项目着眼于尽快无BUG上线,那么此时可以抓大放小,代码的细节可以不精打细磨;但是如果有足够的时间开发、维护代码,这时候就必须考虑每个可以优化的细节了,一个一个细小的优化点累积起来,对于代码的运行效率绝对是有提升的。
12 0
打造高效交付团队心得
  我 15 年前创办第一家公司,到现在我还是不怎么管理。我怀疑很少有人能做到这一点。在我的公司 AngelList,我们需要的是一个自我管理的团队,并产出代码。   我们的做法如下。   保持小规模团队。所有的人都是干活的,没有指挥家。绝对没有中层管理人员,所有业务拓展都是通过 API 来完成。   外包一切非核心工作,克制住赚取最后一个铜板的冲动,老板也要做客户服务工作。
5 0
Java-Redis笔记
  Redis   1. 概念: redis是一款高性能的NOSQL系列的非关系型数据库   1.1.什么是NOSQL   NoSQL(NoSQL=Not Only SQL),意即“不仅仅是SQL”,是一项全新的数据库理念,泛指非关系型的数据库。   随着互联网web2.0网站的兴起,传统的关系数据库在应付web2.0网站,特别是超大规模和高并发的SNS类型的web2.0纯动态网站已经显得力不从心,暴露了很多难以克服的问题,而非关系型的数据库则由于其本身的特点得到了非常迅速的发展。NoSQL数据库的产生就是为了解决大规模数据集合多重数据种类带来的挑战,尤其是大数据应用难题。
7 0
国内讨论AI开源开放时,产业圈和学术界都在关注什么?
AI 技术需要开源、开放,对于这一点,产学研各界已经达成了共识,政府也在全力支持国内开源生态的建设。
8 0
ADO.Net简介 140
  ADO.NET是.Net中一组类库,通过这组类库可以让我们通过程序的方式访问数据库中数据;之前学习的都是在数据库管理器中通过设计器或者SQL语句进行增删改查等操作数据库中的数据,对于普通用户不可能每个人都必须学习SQL,才能查看使用数据库,我们使用ADO.Net中的类库通过搭建比如窗体程序,使普通用户通过窗体上的按钮就可以很方便地操作和使用数据库中的数据,比如去买火车飞机等票时,窗口的出票员他们不可能每个人都去学习过SQL的知识后才能上岗,他们也是通过窗体或者网页方式查询使用数据库的数据的   ADO.NET中最重要的两个类:1)Connection用来连接数据库 2)Command用
7 0
百度大脑十年丰绩大成:6.0全新发布,具备认知能力的终端虚拟人亮相
「智能时代的操作系统」飞桨和自研 AI 处理器百度昆仑都已就位,产业智能化时代正在到来。
8 0
万圣节定制「丧尸生成器」,编辑部亲测,效果鬼畜
get 了这个网站,今年万圣节 C 位就是你的!
6 0
c#实现简单Token口令验证
  最近一个项目发现手机验证码总是被人盗刷,一秒钟刷了1百多个,很明显这种行为是通过软件自动提交的,自动发帖机原理类似,解决这个问题目前有两个方案。   出现这个问题原因:请求手机验证码Api时没有任何带任何验证,只要请求了手机号正确就执行发送操作,软件或代码很容易伪造请求过程。   解决方案有很多种,可以选择下面一种或几种组合起来使用。   方案1:用户获取手机验证码时候弹出图片验证码,输入后再发送。
6 0
+关注
一个处女座的程序猿
国内互联网圈知名博主、人工智能领域优秀创作者,全球最大中文IT社区博客专家、CSDN开发者联盟生态成员、中国开源社区专家、华为云社区专家、51CTO社区专家、Python社区专家等,曾受邀采访和评审十多次。仅在国内的CSDN平台,博客文章浏览量超过2500万,拥有超过57万的粉丝。
1701
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
文娱运维技术
立即下载
《SaaS模式云原生数据仓库应用场景实践》
立即下载
《看见新力量:二》电子书
立即下载