乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 22|回复: 13

[编程交流] 更新LISp:排序和num

[复制链接]

15

主题

83

帖子

68

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2022-7-5 23:34:24 | 显示全部楼层 |阅读模式
大家好!!!
 
我从这个论坛收到了LISP,我只需要它的一个扩展版本,也就是说,我想从什么角度来计算,有人能帮我吗???
有没有可能增加计算方法,从(-)减去X轴到(+)加号,但它能在另一边,从+到-??对话框可以如下所示:
1、选择点
2、从什么角度出发?
3.X轴或Y轴上的计算方向(如果要从(-)到(+),则输入+;如果要从(+)到(-),则输入-)
4.将坐标导出到txt/xls文件
 
这个附加的lisp在几周前创建了Lee Mac。
 
或者只是从什么点开始编号,因为这会非常复杂。
ptSort。lsp
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 23:41:27 | 显示全部楼层
试试这个金色的:
 
[code](defun c:ptSort(/dp ss file tmp tmp2)(setq dp 2);;
回复

使用道具 举报

15

主题

83

帖子

68

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2022-7-5 23:46:49 | 显示全部楼层
谢谢李,这就是我需要的,你能做一件事吗;要查询从什么点开始编号,复杂吗??我将把这个lisp存档在这个论坛上,希望能帮助许多人谁的工作土地测量。。。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 23:51:11 | 显示全部楼层
 
它不应该太复杂。我走着瞧。
回复

使用道具 举报

15

主题

83

帖子

68

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2022-7-5 23:53:33 | 显示全部楼层
 
好的,谢谢你!!!
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 00:01:59 | 显示全部楼层
我已经使原始点收集自动,如果你想改变,请告诉我。
 
[code](defun c:ptSort(/dp ss file tmp tmp2)(setq dp 2);;
回复

使用道具 举报

5

主题

10

帖子

4

银币

初来乍到

Rank: 1

铜币
30
发表于 2022-7-6 00:06:10 | 显示全部楼层
一个问题是,我想从哪个区块开始计算,有人能帮我吗???
有没有可能增加计算的方式,从(-)减去X轴到(+)正是现在,但它能在另一边,从+到-??对话框可以如下所示:
1、选择块
2、从哪个街区开始?
3.X轴或Y轴上的计算方向(如果要从(-)到(+),则输入+;如果要从(+)到(-),则输入-)
4.将坐标导出到txt/xls文件
块图纸
回复

使用道具 举报

15

主题

83

帖子

68

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2022-7-6 00:09:53 | 显示全部楼层
 
嘿,伙计,Lisp程序的thx,但你能改变1。问题在你的第一个lisp是很好的查询,选择对象(点),然后问从什么点编号开始编号??
这是第一个lisp中的示例:
 
1、选择对象
2、保存到txt/xls文件(可以是txt,没问题,没关系)
3.指定坐标以按[X/Y]排序
4.指定排序方向[+/-]
5、从什么点数开始?
 
这是唯一的一个例子,如果它不复杂,你更知道如何做到这一点。。。o: )你发给我的第一个Lisp程序是这样的,唯一需要修复的是提出一个问题:从什么点开始?希望尽快收到你的来信。。。问题是这样的,因为我的多段线(30km)不是朝一个方向走,而是朝每个方向走,逐段编号也不是问题。。。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 00:14:08 | 显示全部楼层
 
啊,我现在明白了-我想我误解了你的第一个请求,是的,号码可以更改
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 00:18:01 | 显示全部楼层
这样地?
 
[code](defun c:ptSort(/dp ss file tmp tmp2 tmp3)(setq dp 2);;
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-11 00:22 , Processed in 0.565863 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表