[求助]：急求一个lisp小程序

angelatwo · 发表于 2005-4-26 10:08:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

急求，毕业设计里需要lisp编程，本人刚接触lisp，那位大侠能给个提取数据的程序模板，比如画一条直线，提取起点和终点。另问必须在dxf文件中才能提取起点重点数据吗？

xiao_longxin · 发表于 2005-4-26 23:35:01

楼主说得好像听不太明白，请详细说明你的程序设计的目的和功用。

angelatwo · 发表于 2005-4-27 09:10:37

毕业设计需要，老师让我先熟悉一下lisp编程，最基本的，他说画一条直线一段圆弧，你能编程把你需要的数据（起点终点圆心坐标）提取出来，用于下一步数控编程。5.1之前，不然他说就来不及了，我肯定完成不了毕业设计。我现在非常着急！
现在有个新问题，我开题报告这样写道：该数控自动编程的软件编制可分为三大部分，读入DXF文件中的实体信息并生成链表；根据加工起点和加工方向进行实体信息排序；按照数控加工代码格式编写加工程序。前两部分是整个系统的重点。
DXF文件实体段中的实体信息可以通过编制程序对其进行检索得到，有几个核心问题需要解决：
（1）DXF文件中存有大量的信息，因此要对实体段有用的信息进行筛选。
（2）进行数控编程时需要的几何信息在DXF文件中有直接给出的，也有间接给出的，直接给出的可直接用，间接给出的需要进行换算得到。
在程序中创建结构体UserEntity,用来存放提取的实体信息，并将所得到的所有实体信息生成一个链表，以供后面的实体排序来读取。
我不知我问得问题和我的毕业设计有什么关系？望高人指点

xiao_longxin · 发表于 2005-4-27 21:58:58

呵呵，你的专业我不懂，不明白你的程序应该如何去设计

szhelen · 发表于 2005-4-28 08:57:58

用entsel选取直线和圆，用entget 取得实体数据表，例子如下：
直线数据：
(setq a (entsel))
(setq b (entget (car a))
(setq c1 (assoc 10 b))
(setq c2 (assoc 11 b))
c1为直线起点坐标，组码为10，c2为直线终点坐标，组码为11
圆数据：
(setq a (entsel))
(setq b (entget (car a))
(setq c (assoc 10 b))
(setq d (assoc 40 b))
c为圆心坐标，组码为10，d为圆心半径坐标，组码为40

angelatwo · 发表于 2005-4-28 12:36:19

谢谢五楼！

szhelen · 发表于 2005-4-28 15:46:30

能帮到你，我也很高兴

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：急求一个lisp小程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子