冲压模板自动标注LISP_自动标注.LSP
;;;自动标注 *
;;;=================================================================*
;;;思路:1.选择对象 *
;;; 2.指定基点 *
;;; 3.输入比例 *
;;; 4.获取特征点坐标 *
;;; 5.提炼 X 坐标,并排序 *
;;; 6.提炼 Y 坐标,并排序 *
;;; 7.标注 *
;;;=================================================================*
;;; 总控 zml84 于 2009-05-07 *
(defun C:TT ()
(if(and (setq SS (ssget)) ;_'((0 . "LINE,ARC,PLINE"))
(setq PT0 (getpoint "\n指定基点: "))
(setq SC (getreal "\n输入比例: "))
)
(progn
(setq LST_PT (TT-04 SS))
(setq LST_X(TT-05 LST_PT)
LST_Y(TT-06 LST_PT)
)
(TT-07 LST_X LST_Y PT0 SC)
)
)
(princ)
)
;;;=================================================================*
;;; 4.获取特征点坐标 *
(defun TT-04 (SS / LST_PT I ENT N PT)
(setq LST_PT '()
I 0
)
(repeat (sslength SS)
(setq ENT (entget (ssname SS I)))
(foreach N ENT
(if(<= 10 (car N) 19)
(setq PT (cdr N)
LST_PT (cons PT LST_PT)
)
)
)
(setq I (1+ I))
)
;;返回
(reverse LST_PT)
)
;;;=================================================================*
;;; 5.提炼 X 坐标,并排序 *
(defun TT-05 (LST_PT / LST_X PT X Y TMP)
(setq LST_X '())
(foreach PTLST_PT
(setq X(car PT)
Y(cadr PT)
)
(if (setq TMP (assoc X LST_X))
(setq LST_X (subst (append (list X Y) (cdr TMP)) TMP LST_X))
(setq LST_X (cons (list X Y) LST_X))
)
)
;;排序
(setq LST_X(mapcar'(lambda (E1)
(cons (car E1) (vl-sort (cdr E1) '
)
LST_X
)
)
(setq LST_X(vl-sort LST_X
'(lambda (E1 E2)
(< (car E1) (car E2))
)
)
)
;;返回
LST_X
)
;;;=================================================================*
;;; 6.提炼 Y 坐标,并排序 *
(defun TT-06 (LST_PT / LST_Y PT Y Y TMP)
(setq LST_Y '())
(foreach PTLST_PT
(setq X(car PT)
Y(cadr PT)
)
(if (setq TMP (assoc Y LST_Y))
(setq LST_Y (subst (append (list Y X) (cdr TMP)) TMP LST_Y))
(setq LST_Y (cons (list Y X) LST_Y))
)
)
;;排序
(setq LST_Y(mapcar'(lambda (E1)
(cons (car E1) (vl-sort (cdr E1) '
)
LST_Y
)
)
(setq LST_Y(vl-sort LST_Y
'(lambda (E1 E2)
(< (car E1) (car E2))
)
)
)
;;返回
LST_Y
)
;;;=================================================================*
;;; 7.标注 *
(defun TT-07 (LST_X LST_Y PT0 SC / TMP X Y PT STR X_LAST PT1)
;;标注 X
(setq X_LAST (caar LST_X))
(foreach TMP LST_X
(setq X (car TMP)
Y (cadr TMP)
PT (list X Y)
STR (rtos (* SC (- X (car PT0))))
)
(setq X_LAST (max X X_LAST)
PT1 (list X_LAST (- (cadr PT0) (* 1.0 SC))) ;_标注点
X_LAST (+X_LAST
(* 2 (getvar "dimtxt") (getvar "dimscale"))
)
)
(command "_dimordinate" "non" PT "x" "t" STR "non" PT1)
)
;;标注 Y
(setq Y_LAST (caar LST_Y))
(foreach TMP LST_Y
(setq Y (car TMP)
X (cadr TMP)
PT (list X Y)
STR (rtos (* SC (- Y (cadr PT0))))
)
(setq Y_LAST (max Y Y_LAST)
PT1 (list (- (car PT0) (* 1.0 SC)) Y_LAST) ;_标注点
Y_LAST (+Y_LAST
(* 2 (getvar "dimtxt") (getvar "dimscale"))
)
)
(command "_dimordinate" "non" PT "Y" "t" STR "non" PT1)
)
)
;;;=================================================================*
冲压模板自动标注LISP_自动标注.LSP相关推荐
- lisp调用qleader端点_标注时自动切换到DIM图层 lisp程序
标注时自动切换到DIM图层 [code=lisp](defun xlr-autolayer () ; (setvar "cmdecho" 0) ; (if (null (tbl ...
- 字体方向 道路标注_自动驾驶环境感知的“见闻色”——3D点云标注
点开网约车App.线上报名.待审核通过后,用户就能在规定的测试路段免费呼叫自动驾驶车辆进行试乘--前不久,滴滴出行首次面向公众开放自动驾驶服务. 这次行业事件再次激发了公众对于自动驾驶的热切期待与探索 ...
- NLP工具——doccano标注系统自动标注功能使用
NLP工具--doccano标注系统自动标注功能使用 0. 简介 1. doccano安装 2. 创建标注任务 3. 写一个命名实体识别的接口 4. 添加自动标注功能 5. 增加标注员用户 6. 数据 ...
- 淘宝自动发货助手插旗API接口,实现订单插旗颜色标注,自动发货接口
淘宝自动发货助手插旗API接口,实现订单插旗颜色标注,自动发货接口
- 深度了解自动泊车技术及相关数据标注方法|自动驾驶
顺列式驻车对许多驾驶员来说,是一件较难的事情,特别是在极其狭窄的地方,而自动泊车系统则可以大大简化泊车的过程,为驾驶员带来更加智能和便捷的体验. 就在不久前,威马汽车正式发布"公共停车场无人 ...
- 摹客标注:自动标注一键生成,手动标注自由补充
熬着夜手动做标注? 用工具自动标注,却被攻城狮追命连环call? 设计稿标注--其实--可以「自动+手动」! 摹客,「自动标注」一键生成,「手动标注」自由补充, 助你五星通过标注大关~ 「自动+手动」 ...
- 在基于图像的深度学习中如何做数据的自动标注以及自动标注的等级介绍
作者:Tobias Schaffrath Rosario 编译:ronghuaiyang 原文:在基于图像的深度学习中如何做数据的自动标注以及自动标注的等级介绍_ronghuaiyang的博客-CSD ...
- Revit二次开发 自动生成剖面楼梯标注
引用 revit坐标与屏幕坐标的转换 前置 关于Revit中楼梯竖向标注的问题记录及生成方式的解决方案 样式 内容 上面链接文件中提供了一种屏幕坐标转换为项目坐标的办法,原理时通过屏幕中的点与边界的比 ...
- 图像数据标注在自动驾驶场景中的应用及标注方法
在人工智能计算机视觉技术中,图像数据标注是选择图像中的对象并按照名称进行标记的过程,图像数据标注有着广泛的细分应用,例如,医疗成像分析被用来提高疾病的预测.诊断和治疗:自动驾驶汽车可以准确的识别图像中 ...
- project 模板_不会绘制横道图?18个施工进度计划横道图模板,可一键自动生成,方便快捷易操作,直观形象,相当好用...
横道图是通过条状图来显示项目,进度,和其他时间相关的系统进展的内在关系随着时间进展的情况,相当形象直观,在建筑广泛应用. 这18个施工进度计划横道图模板包括7个Excel模板和11个project模板 ...
最新文章
- UVa 11307 - Alternative Arborescence(dp)
- 【BZOJ】4259: 残缺的字符串 FFT
- 各种 分页存储过程整理
- 输入监听_更适合混音师的声卡 精准控制 多设备监听真的方便
- Passport用户认证
- SRS-DOLPHIN
- telnet不能用,提示:-bash: telnet: command not found
- python安装到桌面的路径是什么_Python 获取windows桌面路径的5种方法小结
- Java多线程学习三十六:主内存和工作内存的关系
- 如何套用模板绘制生产管理流程图
- AJAX请求 $.post方法的使用
- 【腾讯云的1001种玩法】 Laravel 整合微视频上传管理能力,轻松打造视频App后台...
- synchronized锁升级之偏向锁
- 中西医结合耳鼻咽喉科疾病 100254
- 麦克风声源定位原理_关于基于麦克风阵列的声源被动定位系统的设计
- 计算机系统漏洞及防范,计算机系统漏洞以及防范的措施.doc
- c++11伪随机数生成库:random
- ios 换电脑继续使用csr 证书等。
- 币小秘:币圈五度春秋几度忧愁?解读每位投资者心态
- eas报错日记_EAS新建数据中心报错