Lisp尺寸标注增加前后缀_Lisp尺寸标注增加前后缀_lisp程序-标注尺寸对齐
命令:bzdq
;;;_______________________________________________________
;;; 标注对齐 langjs 2009.5.5
;;; (本程序仅适用于多个水平或垂直标注对齐)
;;;_______________________________________________________
(defun c:bzdq ()
(setq ss (ssget '((0 . "DIMENSION"))))
(setq p0 (getpoint"\n指定标注线位置,或<不改变>:"))
(if p0
(progn
(setq slen (sslength ss) I 0 )
(while (ssname ss I)
(setq ent (ssname ss I))
(setq ent (entget ent))
(jisuanshuju)
(gengxinbiaozhuxian)
(setq I (+ 1 I))
);end while
);end progn
(setq p0 '(0.0 0.0 0.0)) ;如无则付p0一个点防止下面程序出错
);end if
(setq p00 (getpoint"\n指定引出线位置,或<不改变>:"))
(if p00
(progn
(setq slen (sslength ss) I 0 )
(while (ssname ss I)
(setq ent (ssname ss I))
(setq ent (entget ent))
(jisuanshuju)
(gengxinchichunjiexian)
(setq I (+ 1 I))
)
);end progn
(exit)
);end if
(princ )
)
(defun jisuanshuju ();计算坐标点子程序
(setq p0x (car p0) p0y (cadr p0))
(setq p00x (car p00) p00y (cadr p00))
;;取得标注各关键坐标点值
(cond
((= (cdr (assoc 1 ent)) "<>{}{}")
(setq txt2 (cdr (assoc 42 ent)) p10 (cdr (assoc 10 ent)) p14 (cdr (assoc 14 ent)) p11 (cdr (assoc 11 ent)) p13 (cdr (assoc 13 ent)) ))
((= (cdr (assoc 1 ent)) "" )
(setq txt2 (cdr (assoc 42 ent)) p10 (cdr (assoc 10 ent)) p14 (cdr (assoc 14 ent)) p11 (cdr (assoc 11 ent)) p13 (cdr (assoc 13 ent)) ))
(t (princ ) )
)
(setq p10x (car p10) p10y (cadr p10) p14x (car p14) p14y (cadr p14) p11x (car p11) p11y (cadr p11) p13x (car p13) p13y (cadr p13) )
;;判断横、纵坐标并计算对齐后的关键标注坐标点值
(cond
((= (FIX (+ 0.5 P10x)) (FIX (+ 0.5 P14x))) (setq np10 ( list p10x p0y 0.0 ) np11 (list P11x (+ (- p11y p10y) p0y) 0.0 ) np13 (list P13x p00y 0.0 ) np14 (list P14x p00y 0.0 ) ) )
((= (FIX (+ 0.5 P10y)) (FIX (+ 0.5 P14y))) (setq np10 ( list p0x p10y 0.0 ) np11 (list (+ (- p11x p10x) p0x) P11y 0.0 ) np13 (list P00x p13y 0.0 ) np14 (list P00x p14y 0.0 ) ) )
(t (exit ) )
)
(princ )
)
(defun gengxinbiaozhuxian () ;;对齐标注线子程序
(setq ent (subst (cons 10 nP10 ) (assoc 10 ent) ent) )
(setq ent (subst (cons 11 nP11 ) (assoc 11 ent) ent) )
(entmod ent)
(princ )
)
(defun gengxinchichunjiexian ();;对齐引出线子程序
(setq ent (subst (cons 13 nP13 ) (assoc 13 ent) ent) )
(setq ent (subst (cons 14 nP14 ) (assoc 14 ent) ent) )
(entmod ent)
(princ )
)
Lisp尺寸标注增加前后缀_Lisp尺寸标注增加前后缀_lisp程序-标注尺寸对齐相关推荐
- Lisp尺寸标注增加前后缀_lisp程序-标注尺寸对齐
命令:bzdq ;;;_______________________________________________________ ;;; 标注对齐 langjs 2009.5.5 ;;; (本程序 ...
- 水杉软件没有注册能用吗?_打听一下刷手机号注册软件可以吗增加文章阅读量怎么增加...
打听一下刷手机号注册软件可以吗增加文章阅读量怎么增加 为培养求合作意识,总想着给分后面往人群提供营养.健康的意识,越来越多的电商平台不断要求用户在面前一定要吃过"韭菜大虾",让用户 ...
- 帝国CMS怎么新增加专题页面 帝国cms增加专题图文详解
帝国CMS的专题功能说明 (一).帝国CMS主要有以下两种用途: 1.将已有栏目下的信息进行再次分类.就像我们在论坛中看到的精华贴子,将精华的内容放到专题,方便用户查看.此类型一般采用列表式. 2.建 ...
- 【Kafka-分区增加副本】Kafka分区增加副本
[Kafka-分区增加副本]Kafka分区增加副本 1)前言 2)创建测试topic 3)增加副本 4)附录 1)前言 Kafka 中 topic 的每个分区可以设置多个副本.如果副本数为1,当该分区 ...
- allegro 增加或删除标注尺寸
allegro16.6 转载自https://baijiahao.baidu.com/s?id=1608426485813863606&wfr=spider&for=pc allegr ...
- Cadence Allegro如何增加或删除标注尺寸?
问题描述: Allegro在PCB中如何增加或删除标注尺寸? 解决方法: 一.添加标注尺寸的方法: 1.在Options侧边栏下打开Board Geometry --Dimension.如下图所示: ...
- linux 文件拆分 原后缀,Linux批量更改文件后缀-转载
一.rename解决 1. Ubuntu系统下 rename 's//.c//.h/' ./* 把当前目录下的后缀名为.c的文件更改为.h的文件 2. CentOS5.5系统下 rename . ...
- 将时间改为显示:几天前,几小时前,或者几分钟前
(原博客地址:http://blog.csdn.net/kenhins/article/details/38010811) 方法一: 个人做法是保存时间戳,然后在前端用jq插件做转换,比如 smart ...
- 前端运行python代码几种方式_前的解释|前的意思|汉典“前”字的基本解释
详细字义 ◎ 前 qián 〈动〉 (1) (本义:前进) (2) 同本义 [go forward;go ahead] 前,进也.--<广雅> 然而驱之不前,却之不止.--<韩非子· ...
最新文章
- 自动调度GPU的卷积层
- Spring_boot_pom.xml和启动方式
- Vs2005+VSS 2005 老是出问题
- spoj BCEASY - Bottom Coder (Easy)
- 国内唯一,阿里云入选全球区块链云服务报告,领先AWS、Google
- 「SNOI2019」
- 计算机网络:第一章 概述
- php trimmsg,c语言实现php的trim标签
- c#图片base64去转义字符_C#实现字符串与图片的Base64编码转换操作示例|chu
- 软件是否有必要进行性能测试
- linux下的RPC
- JavaScript基础三
- SSM-水果商城-项目展示-学习-1
- 第六章 输入输出系统-作业
- neutron用linux_bridge部署provider网络
- 克拉克变换(Clarke Transformation)
- python 高斯滤波
- C#显示和隐藏 Excel 工作表及工作表中的行与列
- CentOS 6.4x64编译安装DRBD及备节点同步后容量变小的处理
- 更改web.config,让godady的win主机启用gzip压缩