cad指北针lisp_用CAD里的LISP画图，题目如图片，编写一程序，可在任意位置任意方向绘制指定大小的指北针。...

写了一个，图如下：

Autolisp代码如下：(defunc:tes(/&ang1&ang2&dis1&ent1&kw1&p1&p2&p3&p4&p5&pt1&pt2&r1&r2x)

(setvar"cmdecho"0)

(setvar"blipmode"0)

(if(and(setq&p1(getpoint"

请指定圆心"))

(setq&r1(getdist&p1"

请输入圆半径"))

)

(PRogn

(setq&r2(*&r12))

(entmake(list'(0."CIRCLE")(cons10&p1)(cons40&r1)))

(setq&ent1(entlast)&kw1(ssadd)&kw1(ssadd&ent1&kw1))

(setq&p5(CADr(grreadt)))

(if(=(distance&p1&p5)0)(setq&ang10)(setq&ang1(angle&p1&p5)))

(setq&p2(polar&p1&ang1&r2)&p3(polar&p1(+&ang1(*pi0.8))&r2)&p4(polar&p1(-&ang1(*pi0.8))&r2))

(entmake(list'(0."LWPOLYLINE")'(100."AcDbEntity")'(100."AcDbPolyline")(cons903)'(70.1)(cons10&p1)(cons10&p2)(cons10&p3)))

(setq&ang2(angle&p2&p4)&pt1(polar&p2&ang2&r2)&dis1(distance&p1&pt1)&pt1(mapcar'(lambda(x)(*x0.5))(mapcar'+&p1&pt1)))

(setq&pt2(polar&p4&ang2(*&r2-1))&pt2(mapcar'(lambda(x)(*x0.5))(mapcar'+&p1&pt2)))

(entmake(list'(0."LWPOLYLINE")'(100."AcDbEntity")'(100."AcDbPolyline")(cons904)(cons10&p2)'(40.0.0)(cons41&dis1)(cons10&pt1)(cons10&pt2)(cons40&dis1)'(41.0.0)(cons10&p4)))

(setq&p4(polar&p1&ang1(*&r2-1))&ang2(+&ang1(*pi0.5)))

(entmake(list'(0."TEXT")(cons1"N")(cons10&p4)(cons40(*&r10.8))'(41.0.6)(cons50&ang2)'(72.4)(cons11&p4)))

(while(setq&ent1(entnext&ent1))(setq&kw1(ssadd&ent1&kw1)))

(command"ROTATE"&kw1""&p1"R"&p1&p2)

)

(PRinc)

)

cad指北针lisp_用CAD里的LISP画图，题目如图片，编写一程序，可在任意位置任意方向绘制指定大小的指北针。...相关推荐

cad抠图 lisp_用Autolisp对AutoCAD进行二次改造
刚开始工作时候,经常使用 AutoCAD2002 设计, 制作标题栏.画粗糙度符号是一个重复性的工作而 CAD 到又没有提供相关的命令可以让我们的操作一步到位,很不方便于是,我就利用在学校里所学的 ...
cad高程标注插件lisp_【源码】CAD高程转标高,CAD插件大全,小懒人CAD工具箱
[源码]CAD高程转标高,CAD插件大全,小懒人CAD工具箱 CAD,CAD插件,CAD标高 CAD快速标高插件 ;;;功能:高程点转标高 ;;;逆流而上的鱼制作 (defun c:tt();;; ( ...
customplot设置单个点的颜色_CAD教程，CAD大神总结CAD快捷键及一些参数设置大集合，码走...
嗨,我是爱踢汪.之前发过很多次快捷键整理的文章,近来有不少同学又问我有没有相关的好一些的资料,今天就再发一张快捷键表格,表格统计了一部分常用的命令快捷键.表格来源于部落窝QQ群里同学分享,希望对大家有 ...
CAD制图怎么使用CAD修剪命令呢？
在CAD制图中,我们往往需要不断的去学习不断的实践,才能更好的掌握好CAD制图技巧,今天呢,就和小伙伴们分享一下CAD基础制图技巧之如何使用CAD修剪命令!希望能够帮助到想要学习CAD制图的小伙伴们哦 ...
服务器共享cad修改不了,CAD图纸打开后无法编辑无法修改怎么办
每天积累一点,让自己更专业! 关注CAD制图有问必答昨天群里一位小伙伴提问有文件无法编辑修改,更可气的是无法炸开,本期来总结一下此类问题. 1.无法修改最简单的可能性就是快,直接X命令炸开即可: 2 ...
计算机中的cad是什么意思是,cad是什么意思 cad是什么软件
看着cad这几个英文字母,很多小伙伴可能都有点犯蒙,不知道cad是什么意思,下面我们就一起来看看cad的意思以及cad是什么软件吧. cad是什么意思 Cad的中文全称叫做计算机辅助设计(CAD-Co ...
cad版本转换APP下载,cad教程
1.我们先打开手机应用市场,在搜索栏里搜索"CAD转换器"下载安装至手机桌面,我们可以根据需求自行选择. 2.待安装成功后,我们退出安装界面.在手机桌面找到CAD转换器APP,轻触 ...
忻州计算机cad培训,忻州CAD三维建模培训cad三维制图教程
忻州CAD三维建模培训cad三维制图教程 (1)1 CAD三维建模 1． CAD三维建模首先应做什么? 答首先应当熟悉世界坐标系和三维空间的关系.其次是CAD的用户坐标系以及多个视图的使用技巧.另外 ...
CAD制图软件中CAD布局视口内容不显示怎么办？
有些人在使用浩辰CAD制图软件布局时延续了模型空间的使用方法,只利用视口来排图,因此就会出现由于一个CAD布局中有过多视口而导致一些视口内容不显示的状况.在浩辰CAD制图软件中CAD布局空间能同时显示 ...

cad指北针lisp_用CAD里的LISP画图，题目如图片，编写一程序，可在任意位置任意方向绘制指定大小的指北针。...

cad指北针lisp_用CAD里的LISP画图，题目如图片，编写一程序，可在任意位置任意方向绘制指定大小的指北针。...相关推荐

最新文章

热门文章