![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
autolisp
文章平均质量分 68
张黎君
被世界温柔的对待了,也想温柔的对待世界
展开
-
用autolisp绘制花园瓷砖
从图书馆借了一本机械工业出版社出版的《AUTOCAD 二次开发实用教程》书中有关于绘制圆形瓷砖,笔者自己试了试,改了改(defun c:circletile() (setq bp (getpoint "\n the garden of initial point:")) (setq a (getangle "\n the angle of garden load:")) (if (n...转载 2019-05-19 17:05:07 · 216 阅读 · 0 评论 -
autolisp写出hello world
第一次写博客被世界温柔的对待了,也想要回馈给世界!最近涉及CAD二次开发,学习autolisp的相关程序,和大家一起学习,望大家批评指正!(一)使用autolisp写出hello world (defun hello() (write-line "Hello World!") (princ) )加载程序,在CAD的命令行输入(hello)回车,就会有输出“H...原创 2019-05-17 21:43:34 · 408 阅读 · 0 评论 -
autolisp:绘制一个简单的刨面图
(defun c:xunhuan();绘制刨面图 (setvar "cmdecho"0) (setq cta(getreal"\n指定倾角:")) (setq cta(/ (* PI cta) 180)) (setq n(getint"\n input the number of while:")) (setq po(getpoint"\n the left point:"))...转载 2019-05-30 09:48:27 · 919 阅读 · 0 评论 -
autolisp:判断一个四边形的凹凸性
(defun c:convex() (setq p1(getpoint"\n input p1:")) (setq p2(getpoint"\n input p2:")) (setq p3(getpoint"\n input p3:")) (setq p4(getpoint"\n input p4:")) (setq p1x (car p1) p1y (cadr...原创 2019-05-30 09:49:49 · 544 阅读 · 0 评论