AutoLISP 绘制表情图案

AutoLISP 绘制表情图案,喜怒哀乐表情,代码如下。

(defun c:test()
  (setvar "cmdecho" 0)
  (princ "\n选取圆或[ENTER]自定圆心半径:")
  (setq en (entsel))
  (if (null en)
    (progn
      (setq srr (getvar "circlerad"))
      (setq cen (getpoint "\n中心点:"))
      (setq rr (getpoint cen (strcat "\n半径<" (rtos srr 2) ">:")))
      (if (null rr) (setq rr srr))
      (command "circle" cen rr)
      (setq en (entlast))
      )
    (progn
      (setq en (car en))
      (setq endata (entget en))
      (setq cen (cdr (assoc 10 endata)))
      (setq rr (cdr (assoc 40 endata)))
      )
    )
  (initget "A B C D")
  (setq facetype (getkword "\nA-喜,B-怒,C-哀,D-乐,<A>:"))
  (if (null facetype) (setq facetype "A"))
  (cond ((= facetype "A") (lsp_21a))
    ((= facetype "B") (lsp_21b))
    ((= facetype "C") (lsp_21c))
    ((= faceytpe "D") (lsp_21d))
    )
  (prin1)
  )
(defun lsp_21a()
  (setq eye_1 (polar cen (/ pi 3) (/ rr 2)))
  (setq eye_2 (polar cen (- pi (/ pi 3)) (/ rr 2)))
  (command "donut" 0 (/ rr 5) eye_1 eye_2 "")
  (setq mon_1 (polar cen 0 (* rr 0.7)))
  (setq mon_2 (polar cen pi (* rr 0.7)))
  (command "arc" mon_2 "e" mon_1 "a" 180)
  )
(defun lsp_21b()
  (setq eye_1 (polar cen (/ pi 2.5) (/ rr 4)))
  (setq eye_2 (polar eye_1 (/ pi 6) (/ rr 2)))
  (command "line" eye_1 eye_2 "")
  (setq en1 (entlast))
  (setq eye_3 (polar (polar eye_1 (/ pi 6) (/ rr 10)) (- (/ pi 3)) (/ rr 20)))
  (command "donut" 0 (/ rr 10) eye_3 "")
  (setq en2 (entlast))
  (command "mirror" en1 en2 "" cen (polar cen (/ pi 2) rr) "")
  (setq mon_1 (polar cen (* pi 1.25) rr))
  (setq mon_2 (polar cen (* pi 1.5) (/ rr 3)))
  (setq mon_3 (polar cen (* pi 1.75) rr))
  (command "arc" mon_1 mon_2 mon_3)
  )
(defun lsp_21c()
  (setq eye_1 (polar cen (/ pi 2.5) (/ rr 2)))
  (setq eye_2 (polar eye_1 (/ pi 4) (/ rr 4)))
  (setq eye_3 (polar eye_1 (- (/ pi 4)) (/ rr 4)))
  (command "pline" eye_2 eye_1 eye_3 "")
  (setq en1 (entlast))
  (command "line" eye_1 (polar eye_1 0 (/ rr 3)) "")
  (setq en2 (entlast))
  (command "circle" (polar eye_3 (- (/ pi 4)) (/ rr 6)) (/ rr 12))
  (setq mon_1 (polar cen (* pi 1.5) (/ rr 2)))
  (setq mon_2 (polar cen (* pi 1.25) rr))
  (setq mon_3 (polar cen (* pi 1.75) rr))
  (command "mirror" en1 en2 "" cen (polar cen (/ pi 2) rr) "")
  (command "pline" mon_2 "a" "a" -120 mon_1 "a" -120 mon_3 "")
  (setvar "circlerad" rr)
  )
(defun lsp_21d()
  (setq eye_1 (polar cen (/ pi 2.5) (/ rr 2)))
  (setq eye_2 (polar eye_1 (/ pi 4) (/ rr 4)))
  (setq eye_3 (polar eye_1 (- (/ pi 4)) (/ rr 4)))
  (command "pline" eye_2 eye_1 eye_3 "")
  (setq en1(entlast))
  (command "line" eye_1 (polar eye_1 0 (/ rr 3)) "")
  (setq en2 (entlast))
  (setq mon_1 (polar cen 0 rr))
  (setq mon_5 (polar cen pi rr))
  (setq s_dd (/ rr 2))
  (setq mon_4a (polar mon_5 0 s_dd))
  (setq mon_4b (polar mon_4a (* pi 1.5) rr))
  (setq mon_3a (polar mon_4a 0 s_dd))
  (setq mon_3b (polar mon_3a (* pi 1.5) rr))
  (setq mon_2a (polar mon_3a 0 s_dd))
  (setq mon_2b (polar mon_2a (* pi 1.5) rr))
  (command "line" mon_1 mon_5 "")
  (command "line" mon_3a mon_3b "")
  (command "line" mon_2a mon_2b "")
  (setq en3 (entlast))
  (command "trim" en "" (list en3 mon_2b) "")
  (command "mirror" en1 en2 en3 "" cen (polar cen (/ pi 2) rr) "")
  )
(princ "\n------>>TEST<<------")
(prin1)

代码完。

C表情缺少左边眼睛,D调情直接没反应。

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/267860.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

QT的组合键

https://www.cnblogs.com/Jace-Lee/p/5859293.html 转载于:https://www.cnblogs.com/132818Creator/p/8087536.html

python与7无关的数输出格式第一行为所有与7无关的数_70 道 NumPy 测试题

(给Python开发者加星标&#xff0c;提升Python技能)来源&#xff1a;机器之心本 NumPy 测试题旨在为大家提供参考&#xff0c;让大家可以使用 NumPy 的更多功能。问题共分为四个等级&#xff0c;L1 最简单&#xff0c;难度依次增加。机器之心对该测试题进行了编译介绍&#xff…

如何在 Windows Server 中配置权威时间服务器

如何在 Windows Server 中配置权威时间服务器 查看本文应用于的产品本页 简介o 配置 Windows 时间服务以使用内部硬件时钟 帮我修复此问题 我自己修复此问题o 配置 Windows 时间服务以使用外部时间源 帮我修复此问题 我自己修复此问题o 疑难解答 更…

spring指导的index.html在spring文件夹中的位置

转载于:https://www.cnblogs.com/whoknows1/p/8094359.html

根据端口查找是那个程序正在占用

1、先通过C:\Users\awflasher>netstat -ao 查看那端口对应的pid Local Address Foreign Address State PID TCP TCP 0.0.0.0:21 Pacers:0 LISTENING 511 TCP 0.0.0.0:80 Pacers:0 LISTENING…

springboot链接MySQL线程池_SpringBoot中的数据库连接池

内置的连接池目前Spring Boot中默认支持的连接池有dbcp,dbcp2, tomcat, hikari三种连接池。数据库连接可以使用DataSource池进行自动配置。由于Tomcat数据源连接池的性能和并发&#xff0c;在tomcat可用时&#xff0c;我们总是优先使用它。如果HikariCP可用&#xff0c;我们将使…

小白配置QConf遇到的问题

QConf地址&#xff1a;https://github.com/Qihoo360/QConf 环境&#xff1a;Debian 9.3.0 安装方式&#xff1a;QConf 简易部署和使用 由于用命令行安装以至于到cmake编译出错&#xff0c;所以选择了用rpm包安装。在Debian环境下&#xff0c;需要把rpm转换为deb。需要借助alien…

mysql rename所标时间_mysql rename命令

mysql 命令重命名表RENAME TABLE 句法RENAME TABLE tbl_name TO new_tbl_name[, tbl_name2 TOnew_tbl_name2,...]更名是以原子方式(atomically)执行&#xff0c;这就意味着&#xff0c;当更名正在运行时&#xff0c;其它的任何线程均不能该表。这使得以一个空表替换一个表成为可…

最近研究Rest,这个东西还是个雏形,给个好用的参考地址吧

http://www.ibm.com/developerworks/cn/education/java/j-rest/section5.html 另附&#xff0c;学习Restlet的网址&#xff1a; http://ajaxcn.iteye.com/category/64734 这个连接地址中的内容&#xff0c;很全&#xff0c;我们会继续研究&#xff0c;会有小例子&#xff0c;敬…

mysql打开网络访问权限_远程连接mysql 授权方法详解

今在服务器上 有mysql 数据库&#xff0c;远程访问&#xff0c;不想公布root账户&#xff0c;所以&#xff0c;创建了demo账户&#xff0c;允许demo账户在任何地方都能访问mysql数据库中shandong库。方案一&#xff1a;在安装mysql的机器上运行&#xff1a;1&#xff1a; 创建u…

《梦断代码》阅读笔记02

在第四章《乐高王国》中&#xff0c;有一段是Chandler的后台工作陷入了作出艰难技术决定的迷宫&#xff0c;而麦卡斯科猛然间发现自己正深处迷宫中央。麦卡斯科曾经在自己的“树龙”blog中记载开发新编程语言的项目&#xff0c;他加入OSAF后&#xff0c;又开始在blog上满怀热情…

PMP - 2011年6月考前辅导班

2011年6月份考试授课计划安排,欢迎合作。 5月1日 - 5月3日&#xff1a; 考试相关事项&#xff1b;项目管理框架概述&#xff1b;PMBOK知识体系串讲&#xff08;项目管理5大过程组和9大知识领域&#xff09; 5月14日-15日&#xff1a;综合知识案例讲解&#xff1b;考点、重点、难…

mysql命令行执行复杂sql_mysql命令行中执行sql的几种方式总结

1.直接输入sql执行MySQL> select now();---------------------| now() |---------------------| 2013-09-18 13:55:45 |---------------------1 row in set (0.00 sec)2.执行编写好的sql脚本mysql> source H:/1.sql---------------------| now() |---------------------|…

Spring集成Quartz定时任务框架介绍

一、增加所依赖的JAR包1、增加Spring的Maven依赖 <dependency><groupId>org.springframework</groupId><artifactId>spring-webmvc</artifactId><version>3.0.5.RELEASE</version></dependency>2、增加Quartz的Maven依赖 <…

检测机安装mysql_centos安装mysql的正确方法

1、官方安装文档2、下载 Mysql yum包下载到本地再上传到服务器&#xff0c;或者使用wget 直接下载wget http://repo.mysql.com/mysql57-community-release-el7-10.noarch.rpm3、安转软件源将platform-and-version-specific-package-name 替换为你下载的rpm名sudo rpm -Uvh plat…

再次分享一个多选文件上传方案

多选文件上传&#xff0c;已经非常多了&#xff0c;选择性多了可能有时候要比较下哪个更合适&#xff0c;结合到项目中使用更方便才是最重要的。很多的多选上传基本上都是调用的swf文件&#xff0c;确实用flash 或flex开发一个多选上传的功能很方便&#xff0c;比如flex里内置的…

2017软件工程实践总结

一、请回望暑假时的第一次作业&#xff0c;你对于软件工程课程的想象 1&#xff09;对比开篇博客你对课程目标和期待&#xff0c;“希望通过实践锻炼&#xff0c;增强计算机专业的能力和就业竞争力”&#xff0c;对比目前的所学所练所得&#xff0c;在哪些方面达到了你的期待和…

mysql use mysql_1、设置mysql远程访问执行mysql 命令进入mysql 命令模式,执行如下SQL代码mysql use mysql; mysql GRANT ALL ON ...

1、设置mysql远程访问执行mysql 命令进入mysql 命令模式&#xff0c;执行如下SQL代码mysql> use mysql;mysql> GRANT ALL ON *.* TO admin% IDENTIFIED BY admin WITH GRANT OPTION;# 这句话的意思 &#xff0c;允许任何IP地址(上面的 % 就是这个意思)的电脑 用admin帐户…

HTTP 头部解释,HTTP 头部详细分析,最全HTTP头部信息

HTTP 头部解释 1. Accept&#xff1a;告诉WEB服务器自己接受什么介质类型&#xff0c;*/* 表示任何类型&#xff0c;type/* 表示该类型下的所有子类型&#xff0c;type/sub-type。2. Accept-Charset&#xff1a; 浏览器申明自己接收的字符集Accept-Encoding&#xff1a; 浏览…

shell编辑crontab任务

crontab是Linux下执行定时任务的工具&#xff0c;之前偶尔需要用到时都是通过执行crontab -e命令或者通过root身份直接编辑/etc/cron.*/下的文件来添加定时任务。这段时间遇到了需要通过shell来自动添加或删除crontab的需求。在shell中无法通过crontab -e来与crontab编辑器交互…