cad指北针lisp_cad中可画任意位置,任意方向的指北针的LISP程序
2014-05-09 回答
写了一个,图如下: autolisp代码如下: (defun c:tes ( / &ang1 &ang2 &dis1 &ent1 &kw1 &p1 &p2 &p3 &p4 &p5 &pt1 &pt2 &r1 &r2 x) (setvar "cmdecho" 0) (setvar "blipmode" 0) (if (and (setq &p1 (getpoint "\n请指定圆心")) (setq &r1 (getdist &p1 "\n请输入圆半径")) ) (progn (setq &r2 (* &r1 2)) (entmake (list '(0 . "circle") (cons 10 &p1) (cons 40 &r1))) (setq &ent1 (entlast) &kw1 (ssadd) &kw1 (ssadd &ent1 &kw1)) (setq &p5 (cadr (grread t))) (if (= (distance &p1 &p5) 0) (setq &ang1 0) (setq &ang1 (angle &p1 &p5)) ) (setq &p2 (polar &p1 &ang1 &r2) &p3 (polar &p1 (+ &ang1 (* pi 0.8)) &r2) &p4 (polar &p1 (- &ang1 (* pi 0.8)) &r2)) (entmake (list '(0 . "lwpolyline") '(100 . "acdbentity") '(100 . "acdbpolyline") (cons 90 3) '(70 . 1) (cons 10 &p1) (cons 10 &p2) (cons 10 &p3))) (setq &ang2 (angle &p2 &p4) &pt1 (polar &p2 &ang2 &r2) &dis1 (distance &p1 &pt1) &pt1 (mapcar '(lambda (x) (* x 0.5)) (mapcar '+ &p1 &pt1))) (setq &pt2 (polar &p4 &ang2 (* &r2 -1)) &pt2 (mapcar '(lambda (x) (* x 0.5)) (mapcar '+ &p1 &pt2))) (entmake (list '(0 . "lwpolyline") '(100 . "acdbentity") '(100 . "acdbpolyline") (cons 90 4) (cons 10 &p2) '(40 . 0.0) (cons 41 &dis1) (cons 10 &pt1)(cons 10 &pt2) (cons 40 &dis1) '(41 . 0.0) (cons 10 &p4))) (setq &p4 (polar &p1 &ang1 (* &r2 -1)) &ang2 (+ &ang1 (* pi 0.5))) (entmake (list '(0 . "text") (cons 1 "n") (cons 10 &p4) (cons 40 (* &r1 0.8)) '(41 . 0.6) (cons 50 &ang2) '(72 . 4) (cons 11 &p4))) (while (setq &ent1 (entnext &ent1)) (setq &kw1 (ssadd &ent1 &kw1)) ) (command "rotate" &kw1 "" &p1 "r" &p1 &p2) ) ) (princ) )
cad指北针lisp_cad中可画任意位置,任意方向的指北针的LISP程序相关推荐
- 天正引出标注lisp_CAD中怎么画引出标注?
展开全部 做法标注.引出标注都是天正命令的名称,在CAD中全部是用多重引线来完成.32313133353236313431303231363533e78988e69d8331333433646436 ...
- bmp图片显示(任意位置任意大小)
文章目录 前言 图片显示 1.普通全屏(800*480)显示bmp 2.在任意位置显示任意大小bmp图片 头文件 前言 Linux系统,GEC6818,800*480,bmp图片 图片显示 由文件IO ...
- cad指北针lisp_用CAD里的LISP画图,题目如图片,编写一程序,可在任意位置任意方向绘制指定大小的指北针。...
写了一个,图如下: Autolisp代码如下:(defunc:tes(/&ang1&ang2&dis1&ent1&kw1&p1&p2&p ...
- CAD中怎么画指北针?CAD画指北针教程
指北针是一种用于指示方向的工具,广泛应用于各种方向判读,譬如航海.野外探险.城市道路地图阅读等领域.在进行CAD制图的过程中有些时候也会用到指北针,可是有些刚开始进行CAD学习的小伙伴并不知道怎么画指 ...
- CAD教程:CAD软件中怎么画任意梯段?
在使用正版CAD制图软件绘制建筑CAD图纸的过程中,如何使用浩辰CAD建筑软件中的任意梯段功能呢?接下来的CAD教程就让小编来给大家介绍一下正版CAD制图软件--浩辰CAD建筑软件中任意梯段功能的使用 ...
- CAD制图教程:CAD软件中怎么画圆弧梯段?
在使用国产CAD软件绘制建筑CAD图纸的过程中,有些时候会需要画圆弧梯段.但是有些小伙伴刚开始进行CAD制图初学入门学习不知道在浩辰CAD建筑软件中该如何绘制直线梯段?下面就让小编来给大家介绍一下国产 ...
- 建筑CAD制图教程:CAD软件中怎么画直线梯段?
在使用国产CAD软件绘制建筑CAD图纸的过程中,经常会需要画直线梯段.那么如何在浩辰CAD建筑软件中绘制直线梯段呢?接下来的建筑CAD制图教程就让小编来给大家介绍一下国产CAD制图软件--浩辰CAD建 ...
- cad中线段求和lisp_cad中连续线段变更圆滑弧形
下面我们就来看看如何在CAD中怎么把JPG图片插入页面中,并把图片中的图形做出线描的效果呢?这里我们用到CAD编辑工具来对此项功能以演示. 方法/步骤 首先我们要在电脑中安装CAD编辑工具来实现此操作 ...
- lisp画弯箭头_在cad中直接画箭头
在中CAD中直接画箭头的命令的一个方法!!! 众所周知,在天正中可直接绘制箭头,而在AutoCAD中不得.最近我发现一个在命令行直接输入命令就可画出你想要的尺寸的箭头的方法,具体实施如下: 1.首先拷 ...
最新文章
- 窗体和控件使用中的注意事项有哪些?
- 后端技术:Java 泛型 T,E,K,V的含义,看完本文你就明白了?
- 三十四 Python分布式爬虫打造搜索引擎Scrapy精讲—scrapy信号详解
- springboot 远程调用shell脚本,环境为windows
- asp.net调用js方法小结
- 85、android handler的警告Handler Class Should be Static or Leaks Occur
- ArcGIS Portal 10.4 本地坐标系的web 3d地形展示制作说明
- 反病毒软件技术简析与探索(2009年5月18日)
- [转]测试的三重境界
- Hive中数据的导入与导出
- ASP.NET的Application简介1
- 微型技术博客之匿名内部类
- 编写一个JSP页面,实现根据一个人的18位身份证显示出生日的功能,要求把表达式声明和Scriptlet全部用到,并把结果显示在表格中
- 黑色星期五:纳斯达克五大科技股市值单日蒸发约1000亿美元
- PDF转长图,用illustrator把PDF转长图,不需要代码
- 解决pads新建总是提示替换字体
- 如何优雅地使用Origin(小技巧)【推荐】
- i5四核八线程怎么样_四核八线程和六核六线程cpu相比哪个好?
- 人工智能换脸pythonapp_如何用小200行Python代码做一个换脸程序?
- 外盘国际期货招商:股票短线操作心态