CAD相交线的绘制方法（Lisp）

最新推荐文章于 2024-07-16 08:11:01 发布
最新推荐文章于 2024-07-16 08:11:01 发布
阅读量469 收藏
点赞数
CC 4.0 BY-SA版权
文章标签： lisp 开发语言
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/VcuOcaml/article/details/133026516
lisp 专栏收录该内容
60 篇文章 ¥59.90 ¥99.00
订阅专栏
本文介绍了如何通过Lisp编程语言在CAD软件中自动化绘制相交线。提供了一个示例Lisp代码，该代码计算并绘制两条线段的相交点，但未处理特殊情况如平行或共线线段。执行此代码可在AutoCAD中得到相交线段。

在CAD软件中，我们经常需要绘制相交线。相交线是指两条线段、直线或曲线在某一点相交的情况。本文将介绍一种使用Lisp编程语言在CAD软件中绘制相交线的方法。

为了绘制相交线，我们可以使用Lisp编程语言扩展CAD软件的功能，以便自动化地计算和绘制相交线。下面是一个示例Lisp代码，可用于在AutoCAD中绘制相交线：

(defun intersect-lines (p1 p2 p3 p4)
  (setq x1
了解本专栏 订阅专栏 解锁全文
CAD lisp程序
06-04
超级详细 (defun *error*(st) (if (and (/= st "Function cancelled") (/= st "quit / exit abort") ) (princ (strcat "错误: " st)) ) (setq *error* old_err) (princ) ) (defun sort (l / lt ltem vmax vmin l1 l2 l3 lt0 ltem0 ltem1 l30 vmax0 vmin0 l10 l20) (setq ltem (mapcar 'car l) ;ltem : 取出l的第一项形成的表 vmin (1- (apply 'min ltem)) ;vmin : 是一个比ltem中最小的数还小的数 ) (while (< vmin (setq vmax (apply 'max ltem))) ;从ltem中取出最大值 (setq l1 l l3 nil ltem (subst vmin vmax ltem)) ;去掉最大值 (while (setq l2 (assoc vmax l1)) ;取出最大值所对应的项 (setq l1 (cdr (member l2 l1))) ;处理相同的值 (setq l3 (cons l2 l3)) ) (progn (setq ltem0 (mapcar 'cadr l3) ltem1 (mapcar 'car l3) l30 (mapcar 'cdr l3) vmin0 (1- (apply 'min ltem0)) ) (while ( (car bp) (car sp)) ; (setq tem bp bp sp sp tem) ; ) (setq ss nil) (if (setq ss (ssget "c" bp sp)) (progn (setq n 0) (repeat (sslength ss) (setq el (entget (ssname ss n))) (if (and (= (dxf 0 el) "LINE") (or (= (dxf 8 el) "WALL") (= (dxf 8 el) "AXIS")) (setq ip (inters bp sp (dxf 10 el) (dxf 11 el))) ) ; ip 交点 (progn (setq lpt (cons ip lpt)) ) ) (setq n (1+ n)) ) ; repeat 找出所有的交点并形成表lpt (if (/= nil lpt) (setq lpt (sort lpt))) ) ) (setq pt0 '(0 0 0)) ;以下9行去掉相同的数据 (foreach pt lpt (if (< (distance pt0 pt) 0.000001) (princ "\n警告:墙线有重线") (setq lpt0 (cons
判断两条线段是否相交
肖泽云
07-31 7558
<br />判断两条线段是否相交，可以采用向量积的方式来判断，如下图所示：<br /> <br /><br /><br /> <br /><br />现定义一个函数初步判断两线段是否相交，如下代码：<br />        ///<summary><br />        ///初步根据外围框大致判断两条线段是否相交<br />        ///</summary><br />        ///<param name="line01Coords">线段1的坐标，长度为6</param><br /
lisp取两直线交点画圆_S16-1 直线和点
weixin_39548972的博客
01-02 1037
前言现在的几何学越来越偏向于抽象结构和坐标计算，因此我们直接从平面解析几何开始，然后再学习立体解析几何。直线表示法点我们已经学过，在二维平面上可以使用坐标(x,y)来表示，那么直线呢？通常来说，直线通过一个点和一个方向向量来确定。给定点(a,b)，方向向量(l,m)，我们有：​ 这是因为直线上的所有点(x,y)和点(a,b)组成的向量(x-a,y-b)应该和方向向量共线。这被称为点向式。我们也可...
直线与球体的交点lisp_CAD lisp求多段线与直线的交点，不用VLISP ,用autolisp
weixin_32466167的博客
01-15 1304
电脑系统【卸载或更改程序】，点击AutoCAD，添加功能【Express Tools】。(setq...(defun c:QS (/ DICEN) (setq DICEN (namedobjdict...一些提示吧，得到直线 用的是ssget，它建立一个选择集，然后在选择集中分别取各实体(sslen...用命令：VLISp就能出来autolisp的编辑界面，里面还有很全的调试工具，自己摸索吧。。...
AutoCAD AutoLisp 脚本编写
weixin_30363817的博客
10-13 2040
脚本调用 1. 可以修改 C:\Program Files\Autodesk\AcadM2011\Acadm 目录下的acad.lsp文件，载入脚本。AutoCAD 版本为2011 机械版，其它版本路径略有不同。 ;(load "Update_EL_block.lsp") 2. 脚本保存为文本格式，可以存放在上述目录中。 3. 使用 vl-load-com 载入 AutoCAD 自...
cad墙线打断lisp_晓东CAD家园-论坛-A/VLISP-[LISP程序]：工艺流程图交叉线打断-我们绘制工艺流程图时，交叉线经常要打断，一般都是竖断横不断。手工打断的话，间距不一样，很不美观，所...
weixin_36087469的博客
01-26 773
(defun C:LC (/ TMP PT PT1 PT2 SS PT3 PT4 I SI ENTI);;改动1：将space设置为全局变量，可以保存上次的输入(if (= SPACE NIL)(setq SPACE 4));;设置(if (setq TMP(getdist(strcat "\n请输入断开间距 :")))(setq SPACE TMP));;循环(whi...
lisp 读取样条曲线座标点_autolisp绘制样条曲线
weixin_39975744的博客
12-30 1074
利用AutoLisp、Microsoft VBA 程序语言实现 批量生成断面图及断面电子表格数据蒋济...(LeiJu-GaoCheng-list) ; 另一个为绘制断面曲线所需要的数据——累距、高差......在AutoCAD 中缓和曲线的几种画法 2011-06-25 20:32 在 AutoCAD 中画缓和曲线比较困难,目前常用的画法有 AutoLISP 程序法(需要已知曲线要素) 、坐标脚...
cad高程测绘图lisp_AUTOLISP程序生成CAD断面图
weixin_39537680的博客
12-21 1615
利用AutoLisp、MicrosoftVBA程序语言实现批量生成断面图及断面电子表格数据蒋济飞赵新萍(广西第二测绘院广西柳州545006)【摘要】本文主要讨论如何利用AutoCAD的二次开发语言AutoLisp和Excel中的MicrosoftVBA语言技术，利用地形图上的高程点数据批量生成断面图和断面数据表格。【关键字】断面图AutoLispMicrosoftVBA1引言Visual...
CAD LISP工具：计算等高线与多段线交点方法
通过以上知识点的分析，可以了解到在AutoCAD中使用LISP编程语言计算等高线与多段线交点的基本理论和实践方法，以及相关文件的使用和编程技巧。这有助于提高CAD绘图的自动化程度和工作效率，解决实际工程问题。
lisp自动获取三维模型重量和重心
01-03
直接在AUTOCAD加载运行后，输入命令自动获取三维模型重量和重心的小程序。
AutoLisp语言学习课件 Lisp AutoCAD
06-10
AutoCAD软件包中包含大多数用于产生图形的命令，但仍有某些命令末被提供。例如，AutoCAD中没有在图形文本对象内绘制矩形及作全局改变的命令。通过AutoLISP，你可以使用AutoLISP程序语言编制能够在图形文本对象内绘制矩形或作全局选择性改变的程序。事实上，可以用AutoLISP编制任何程序，或把它嵌入到菜单中，这样定制你的系统会取得更高的效率。
AUTOCAD中的几个LISP程序
11-25
机械制图中，常常得做许多大量的重复工作。下面这几个用Lisp编写得程序，是我画图时经常使用的，节省了我的不少时间，希望也能帮助广大使用AUTOCAD的工程师们。 实用lisp程序
CAD二次开发LISP程序源码 90个源码代码
01-06
CAD二次开发LISP程序源码 90个源码代码，使用AutoCAD加载就可以使用。学习资料例程！
1000个小CAD二次开发LISP程序源码
01-06
1000个小CAD二次开发LISP程序源码，开源代码，使用AutoCAD加载可以使用。
简单的AutoCAD LISP二次开发源程序
06-06
自已多年前写的简单的AutoCAD LISP二次开发源程序； 用于控制图层全开，或只开某个层或除选定图层外，关闭其他层，非常实用 还有几个功能是删除尺寸标注、文字、剖面等。
cass地籍参数设置快捷命令_南方cass快捷键命令大全
weixin_39853968的博客
11-28 6110
A —— 画弧(ARC)AA —— 给实体加地物名B —— 自由连接C —— 画圆(CIRCLE)COPYCLIP——从不同窗口复制局部CP —— 拷贝(COPY)D —— 绘制电力线DD —— 通用绘图命令DDPTYPE——改变点形状E —— 删除(ERASE)F —— 图形复制FF —— 绘制多点房屋G —— 绘制高程点H —— 线型换向I —— 绘制道路J —— 复合线连接K ——...
AutoCAD 命令大集：Lisp 编程详解
YdvCss的博客
09-19 2865
本文将详细介绍 AutoCAD 中的 Lisp 编程，并提供相应一种用于编写自定义功能的编程语言，广泛应用于 AutoCAD 等 CAD 软件中。Lisp 是一种基于符号处理的编程语言，具有强大的列表操作功能。在 AutoCAD 中，Lisp 语言被广泛应用于创建自定义命令和功能，以及一种用于编写自定义功能的编程语言，广泛应用于 AutoCAD 等 CAD 软件中。Lisp 是一种基于符号处理的编程语言，具有强大的一种用于编写自定义功能的编程语言，广泛应用于 AutoCAD 等 CAD 软件中。
AutoCAD软件二次开发：AutoLISP编程入门_
最新发布
kkchenjj的博客
07-16 2472
在AutoLISP中，使用defun来定义函数。"在指定点绘制一个指定半径的圆。这个函数接受一个点和一个半径作为参数，使用AutoCAD的command函数来绘制一个圆。使用command函数可以执行AutoCAD命令，通过定义函数并将其绑定到特定的命令名，可以创建自定义命令。(command "_.line" (getpoint "\n选择起点: ") (getpoint "\n选择终点: "))
bcb 编程 speedbutton glyph load_今天不想加班——Autolisp编程入门案例
weixin_39992462的博客
11-02 281
原创：王一一一一一 转载自微信公众号：非解构 ID：non-structure关于Autocad的lsp插件的魅力，设计师们应该已经在日常工作中体会到了，今天我们不仅要欣赏美，我们还要创造美。Lsp插件是基于Autocad采用Autolisp语言进行二次开发的脚本，Autolisp属于解释性语言，用户编写的程序源代码直接由解释器解释并执行，在执行这种语言编写的程序之前不需要中间步骤，用户可以...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符  | 博主筛选后可见
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值