CAD去重实用脚本：LSP编程实现

4星 · 超过85%的资源 | 下载需积分: 45 | TXT格式 | 7KB | 更新于2024-09-19 | 155 浏览量 | 举报

1 收藏

在CAD环境中，删除重复实体是一个常见的操作，特别是在进行设计优化或清理工作模型时。本文档介绍了一段使用Lisp程序语言编写的CAD宏脚本，旨在帮助用户快速有效地在AutoCAD中删除冗余的几何对象。以下步骤详细解释了这段代码的功能和执行过程： 1. **获取当前时间（get-utime）**: 宏定义了一个函数get-utime，用于获取CAD中的系统时间，以毫秒为单位。这对于计时和任务记录很有用。 2. **关闭对象捕捉（command"osnap""off"）**: 在执行删除操作前，关闭对象捕捉功能，以确保不会因为捕捉到错误的对齐点而误删对象。 3. **设置新的层（command"layer""c"4"""")**: 创建一个新的图层，这可能用于存放识别后的非重复对象，或者根据需要进行分类。 4. **获取用户输入（getpoint和getcornerq1）**: 脚本请求用户选择一个基点（Box 1）和一个角点，作为判断重复对象的基础。 5. **计算线段长度（setqshulian）**: 确定选定线段的长度，并检查是否存在，如果没有，显示警告并退出。 6. **获取用户输入的间隔（setqqr）**: 请求用户指定检查重复对象之间的最小距离，例如1/10的图形单位。 7. **创建矩形（command"rectang"）**: 根据用户输入的间隔生成一个矩形，用于遍历和比较其他对象。 8. **遍历和比较对象（while循环）**: 使用嵌套循环遍历矩形内的所有点，计算每个点与基线的距离，如果距离小于用户指定的间隔，将该点视为潜在的重复部分。 9. **存储坐标和列表（setqxlist和setqklist）**: 保存符合条件的坐标值，形成列表，用于后续的重复检测。 10. **确定重复对象（if判断）**: 检查这些列表是否为空，如果不为空，则可能存在重复对象，接下来可以进一步处理。 11. **输出结果（如必要）**: 根据实际需求，可能将识别出的重复对象的信息或删除操作输出给用户。总结来说，这段Lisp脚本提供了一个自动化工具，用于在AutoCAD中通过用户交互的方式查找和删除特定区域内满足一定条件的重复几何实体。这对于提高工作效率和保持模型整洁性非常有帮助。用户可以根据自己的需求调整参数和执行流程，以便更精确地适应各种场景。

;huangsancai 2000
(defun get-utime ()
(* 86400 (getvar "tdusrtimer"))
)
;------------------------------
(defun c:sc()
(command "osnap" "off")
;-------------------------------
(command "layer" "c" 4 "" "" )
(setq bx (getint "\n 请输入欲删重叠层数[1]: "))
(if (= bx nil) (setq bx 1))
(setq q1 (getpoint "\n 请选择范围："))
(setq q2 (getcorner q1 ))
;-------------------------------
(setq shulian (ssget "c" q1 q2))
(if (= shulian nil) (progn (alert " SC提示:选择为空!") (exit)))
(setq shulian (itoa (sslength shulian)))
;------------------------------------------------------------
(setq r (getint "\n 缺省为1/请输入欲分范围均行列数[1~30]: "))
(if (= r nil) (setq r 1))
(setq t0 (get-utime))
(command "rectang" "w" r q1 q2 "")
(setq r1 (+ r 1))
(setq r2 (* r r1))
(setq r3 (- (* r r 2) 1))
(setq r4 (+ r 2))
(setq ax 0) ;计数器
;----------------------------------------
(setq x1 (/ (- (nth 0 q2) (nth 0 q1)) r))
(setq y1 (/ (- (nth 1 q1) (nth 1 q2)) r))