乐筑天下

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

[编程交流] 最低y值-坐标fo

[复制链接]
flopo

28

主题

76

帖子

48

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
140
发表于 2022-7-6 09:02:59 | 显示全部楼层
大家好，
我有一个lisp，点定义为j1，j2。。。。。。有时候我只能有j1。。。j6，有时是j1。。。我正试图这样计算y的最低点
  1. (SETQ PMIN (MIN (CADR J1) (CADR J2 )(CADR J3 )(CADR J4 )(CADR J5 )(CADR J6 )(CADR J7 )
  2.             (CADR J8 )(CADR J9 )(CADR J10 )))

 
当我只有j1。。。j5不工作（当然！！）。怎么做？要添加哪些条件才能使其生效？
...如果j6存在，那么。。。。
怎么做？谢谢
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 09:08:45 | 显示全部楼层
考虑使用MAPCAR函数。
 
下面是一个小示例，使用在WCS中绘制的矩形坐标，然后旋转5度（很明显，一个顶点是最低的）：
 
  2. (defun _LowYcoord  (pointList)
  3.  (car (vl-sort (mapcar 'cadr pointList) '<))
  4.  )
回复

使用道具 举报

flopo

28

主题

76

帖子

48

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
140
发表于 2022-7-6 09:11:42 | 显示全部楼层
轻微修改：
 
  2. _LOWYCOORD 
  3. _$ (_LowYcoord '((-11.1758 20.4623 0.00) (2.19028 21.6316 0.00) (3.11153 11.1017 0.00) (-10.2546 [color=red]9.93234[/color] 0.00)))
  4. 9.93234
  5. _$

 
*向艾伦致敬*
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 09:11:59 | 显示全部楼层
同上的问题。。。热到设定点？？
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 09:15:04 | 显示全部楼层
 
与上面的回答相同。。。
 
下面是控制台使用此函数的（其他）示例：
 
  1. (SETQ POINTLIST (LIST 'J1 'J2 'J3 'J4 'J5 'J6 'J7 'J8 'J9 'J10))
  4. (SETQ PCOTAMIN (car (vl-sort (mapcar 'cadr pointList) '<)))
回复

使用道具 举报

flopo

28

主题

76

帖子

48

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
140
发表于 2022-7-6 09:19:22 | 显示全部楼层
 
你好你好你好你好
 
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 09:23:38 | 显示全部楼层
回复

使用道具 举报

flopo

28

主题

76

帖子

48

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
140
发表于 2022-7-6 09:25:32 | 显示全部楼层
Same question as above...hot to set that point??
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 09:29:22 | 显示全部楼层
 
Same response as above...
 
Here's an(other) example from Console using this function:
 
  1. _LOWYCOORD _$ (setq J1 '(-11.1758 20.4623 0.00))(-11.1758 20.4623 0.0)_$ (setq J2 '(2.19028 21.6316 0.00))(2.19028 21.6316 0.0)_$ (setq J3 '(3.11153 11.1017 0.00))(3.11153 11.1017 0.0)_$ (setq J4 '(-10.2546 9.93234 0.00))(-10.2546 9.93234 0.0)_$ [color=blue](setq pointList '(J1 J2 J3 J4))[/color](J1 J2 J3 J4)_$[color=red] (setq pMin (_LowYcoord pointList))[/color](-10.2546 9.93234 0.0)_$
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:31:08 | 显示全部楼层
 

Hello... Hello.. Hello... Hello....
 
回复

使用道具 举报

12
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-7 09:25 , Processed in 0.946626 second(s), 70 queries .

© 2020-2025 乐筑天下

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