lisp pl线线段数_vlisp每日源码（标注多段线线长）

在多段线每段线中心标注本段线长

在多段线每段线中心标注本段线长利用lisp对表求值的函数mapcar 快速标注线长。并利用rem保证生成文字角度在[-45,135)之间。

(defun c:tt (/ ss ent lis);多段线每段线中心标注本段线长

(setq ss (ssget ":P:E" '((0 . "LWPOLYLINE"))))

(setq ent (ssname ss 0))

(mapcar '(lambda (x) (entmake (list '(0 . "TEXT") '(72 . 1) '(73 . 2) (cons 1 (car x)) (cons 10 (cadr x)) (cons 11 (cadr x)) (cons 40 2.5) (cons 50 (last x)))))

(mapcar '(lambda (x) (list (rtos (distance (car x) (cadr x)) 2 2) (mapcar '* '(0.5 0.5) (mapcar '+ (car x) (cadr x))) (- (rem (+ (angle (car x) (cadr x)) (* 0.25 pi)) pi) (* 0.25 pi))))

(mapcar 'list (setq lis (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 10 (car x))) (entget ent)))) (append (cdr lis) (list (car lis))))))

(princ)

)

lisp pl线线段数_vlisp每日源码（标注多段线线长）相关推荐

网游源码完整服务端_【每日源码】微人事是一个前后端分离的人力资源管理系统，项目采用SpringBoot+Vue开发。...
整体效果首先,不同的用户在登录成功之后,根据不同的角色,会看到不同的系统菜单,完整菜单如下: 不同用户登录上来之后,可能看到的会有差异,如下: 每个用户的角色是由系统管理员进行分配的,系统管理员给用 ...
3天的LaTeX学习笔记 ψ｀∇´ψ、白嫖2018年河南专升本高数试卷一个——源码
3天的LaTeX学习笔记 ψ｀∇´ψ.白嫖2018年河南专升本高数试卷一个--源码开始咯,助你迅速tex(科学与艺术)入门安装测试一下 LaTeX_笔记 ->可直接copy使用不要走开精 ...
C++判断一个数是否为armstrong number阿姆斯特朗数(附完整源码)
C++判断一个数是否为armstrong number阿姆斯特朗数算法 C++判断一个数是否为armstrong number阿姆斯特朗数算法完整源码(定义,实现,main函数测试) C++判断一个数 ...
C语言求一个数是否为armstrong阿姆斯特朗数(附完整源码)
是否为armstrong阿姆斯特朗数是否为armstrong阿姆斯特朗数算法完整源码(定义,实现,main函数测试) 是否为armstrong阿姆斯特朗数算法完整源码(定义,实现,main函数测试) ...
每日源码分析 - Lodash(remove.js)
本系列使用 lodash 4.17.4版本源码分析不包括引用文件分析一.源码 import basePullAt from './.internal/basePullAt.js'/*** Remo ...
仿qq空间源码_【每日源码】一个Go语言编写的百度网盘客户端，强力推荐
本月第7个源码推送仿 Linux shell 文件处理命令的百度网盘命令行客户端. 功能简介: 目录特色编译/交叉编译说明下载/运行说明 Windows Linux / macOS And ...
kafka源码_Kafka日志段源码解析
1 Kafka 日志结构 kafka 日志在磁盘上的组织架构如下: Kafka 日志对象由多个日志段对象组成,每个日志段对象在磁盘上创建一组文件,包括: 日志文件(.log) 索引文件(.index) ...
C++打印0到N的Catalan数卡特兰数(附完整源码)
打印0到N的Catalan数卡特兰数打印0到N的Catalan数卡特兰数算法的完整源码(定义,实现,main函数测试) 打印0到N的Catalan数卡特兰数算法的完整源码(定义,实现,main函数测 ...
深度解析leaf分布式id生成服务源码（号段模式）
原创不易,转载请注明出处文章目录前言 1.实现原理推演 1.1 基于mysql最简单分布式ID实现 1.2 flickr分布式id解决方案 1.3 号段+mysql 2.源码剖析 2.1初始化 2 ...

lisp pl线线段数_vlisp每日源码（标注多段线线长）

lisp pl线线段数_vlisp每日源码（标注多段线线长）相关推荐

最新文章

热门文章