一个更改尺寸类型的LISP程序
一个更改尺寸类型的lisp程序
autocad制图中经常用到标注尺寸，如果在标注尺寸前，预先对不同的标注尺寸样式进行命名，那么要修改尺寸标注的尺寸线状态、箭头规格、尺寸界线形状、文本位置和文本是一件很容易的事。
但是在实际制图过程中，经常发生预先没有对标注尺寸样式进行命名;或者，在某一个图中命名了标注尺寸样式，但当其图形文件被其它图(含有相同命名的标注尺寸样式)插入，并改变了比例时，图形中的尺寸标注会出现问题。同样的问题也存在于一张图中某些图形进行了比例缩放时。
此时如果把不恰当的尺寸标注一个个删除，再重新标注，显然是一种不值得提倡的方法。实际上，用lisp语言编一个程序，就很容易解决这个问题。
程序的流程是：选择要修改的尺寸标注，程序自动采用过滤方法将尺寸标注筛选出来，再选择要修改到的尺寸标注，程序读取尺寸申请辩识名，将要修改的尺寸标注关联表中相应项，逐个替换，再返回关联表即可。
chd.lsp(修改尺寸标注形式)源程序如下：
;;;
(defun c:chd(/ al a2 b1 b2 d1 d2 d3 n index)
(graphscr)
rompt \n请选取尺寸来修改：)
(setq al (ssget' (0.dimension))))
(prompt \n请选取要修改到的尺寸：)
(setq a2 (entsel))
(setq n (sslength al))
(setq index 0)
(setq b2 (entget (car a2)))
(setq d2 (assoc 3 b2))
(repeat n
(setq b1 (entget (ssname al index)))
(setq d1 (assoc 3 b1))
(setq d3 (subst d2 d1 b1))
(entmod d3)
(setq index (+ index 1))
)
(princ)
)
;;
程序的使用方法，在command提示符下，键入(load chd),或用下拉菜单中文件项应用程序对话框加载，再键入chd，然后再根据屏幕上的中文提示，进行选取，非常方便。
4G无线路由器应用领域
理想计划在2023年推首款纯电动车
新一代大众高尔夫7推出非接触接近检测和手势识别技术
苹果新机不再适配充电器，是为减少成本急于在5G时代站住脚跟
智能照明控制系统在民用照明节能中的应用
一个更改尺寸类型的LISP程序
假设每天定时关闭5G基站，将节约多少电费？
没有清晰的企业战略设想，数字化建设就犹如空中楼阁
英特尔发布Coffee Lake处理器系列，最多支持128GB ECC内存
AD9833型高精度可编程波形发生器设计方案
科技分享 | 智能语音导览有哪些好处，为什么展馆讲解员离不开它？
为什么连接器有金属镀金
YOLOv5网络结构训练策略详解
优艾智合获软银新一轮近亿元人民币领投
极米科技连续五年斩获CESInnovation Awards创新大奖
拜腾汽车与SK电讯达成合作，整合两方数字产品和服务
“蹭网一族”要当心 公共WiFi暗藏玄机
汽车电子电磁兼容标准概述分类 - 汽车电子EMC测试照片
晶圆代工还要再涨价？
一种简易的GPS信号模拟技术
autocad制图中经常用到标注尺寸，如果在标注尺寸前，预先对不同的标注尺寸样式进行命名，那么要修改尺寸标注的尺寸线状态、箭头规格、尺寸界线形状、文本位置和文本是一件很容易的事。
但是在实际制图过程中，经常发生预先没有对标注尺寸样式进行命名;或者，在某一个图中命名了标注尺寸样式，但当其图形文件被其它图(含有相同命名的标注尺寸样式)插入，并改变了比例时，图形中的尺寸标注会出现问题。同样的问题也存在于一张图中某些图形进行了比例缩放时。
此时如果把不恰当的尺寸标注一个个删除，再重新标注，显然是一种不值得提倡的方法。实际上，用lisp语言编一个程序，就很容易解决这个问题。
程序的流程是：选择要修改的尺寸标注，程序自动采用过滤方法将尺寸标注筛选出来，再选择要修改到的尺寸标注，程序读取尺寸申请辩识名，将要修改的尺寸标注关联表中相应项，逐个替换，再返回关联表即可。
chd.lsp(修改尺寸标注形式)源程序如下：
;;;
(defun c:chd(/ al a2 b1 b2 d1 d2 d3 n index)
(graphscr)
rompt \n请选取尺寸来修改：)
(setq al (ssget' (0.dimension))))
(prompt \n请选取要修改到的尺寸：)
(setq a2 (entsel))
(setq n (sslength al))
(setq index 0)
(setq b2 (entget (car a2)))
(setq d2 (assoc 3 b2))
(repeat n
(setq b1 (entget (ssname al index)))
(setq d1 (assoc 3 b1))
(setq d3 (subst d2 d1 b1))
(entmod d3)
(setq index (+ index 1))
)
(princ)
)
;;
程序的使用方法，在command提示符下，键入(load chd),或用下拉菜单中文件项应用程序对话框加载，再键入chd，然后再根据屏幕上的中文提示，进行选取，非常方便。
4G无线路由器应用领域
理想计划在2023年推首款纯电动车
新一代大众高尔夫7推出非接触接近检测和手势识别技术
苹果新机不再适配充电器，是为减少成本急于在5G时代站住脚跟
智能照明控制系统在民用照明节能中的应用
一个更改尺寸类型的LISP程序
假设每天定时关闭5G基站，将节约多少电费？
没有清晰的企业战略设想，数字化建设就犹如空中楼阁
英特尔发布Coffee Lake处理器系列，最多支持128GB ECC内存
AD9833型高精度可编程波形发生器设计方案
科技分享 | 智能语音导览有哪些好处，为什么展馆讲解员离不开它？
为什么连接器有金属镀金
YOLOv5网络结构训练策略详解
优艾智合获软银新一轮近亿元人民币领投
极米科技连续五年斩获CESInnovation Awards创新大奖
拜腾汽车与SK电讯达成合作，整合两方数字产品和服务
“蹭网一族”要当心 公共WiFi暗藏玄机
汽车电子电磁兼容标准概述分类 - 汽车电子EMC测试照片
晶圆代工还要再涨价？
一种简易的GPS信号模拟技术