- 博客(4)
- 收藏
- 关注
RSS订阅原创 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
转载 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
转载 用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
原创 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
空空如也
下载哨兵数据的糟心事情！
2023-05-23
宝子们，为什么我拿idm下载哨兵数据都是网页？
2023-05-22
TA创建的收藏夹 TA关注的收藏夹
TA关注的人