乐筑天下

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

[编程交流] 两点中间

[复制链接]
viviancarvalho

8

主题

71

帖子

66

银币

初来乍到

Rank: 1

铜币
43
发表于 2022-7-6 10:01:25 | 显示全部楼层 |阅读模式
谁能帮我找到lisp中定义的两点之间的中点。
 
谢谢和问候
维维安
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 10:07:52 | 显示全部楼层 
  1. (defun AT:Midpoint (p1 p2)
  2.  ;; Midpoint between two points
  3.  ;; Alan J. Thompson, 04.23.09
  4.  (mapcar (function (lambda (a b) (/ (+ a b) 2.))) p1 p2)
  5. )
回复

使用道具 举报

ccowgill

4

主题

78

帖子

74

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 10:11:41 | 显示全部楼层
我在我的档案里有这个，我从来没有用过，我在起草时总是用MTP。
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 10:12:25 | 显示全部楼层 
  2. (defun c:FOO  (/ pt1 pt2 mid)
  3.  (if (and (setq pt1 (getpoint "\n  >>  Specify first point: "))
  4.           (setq pt2 (getpoint "\n  >>  Specify second point: ")))
  5.    (progn
  6.      (prompt "\n<<  The midpoint is: ")
  7.      (setq mid [color=blue](mapcar '*[/color]
  8. [color=blue]                        (mapcar '+ pt1 pt2)[/color]
  9. [color=blue]                        '(0.5 0.5 0.5))[/color]))))

 
-大卫
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 10:17:47 | 显示全部楼层
非常感谢大家。
 
当做
维维安
回复

使用道具 举报

viviancarvalho

8

主题

71

帖子

66

银币

初来乍到

Rank: 1

铜币
43
发表于 2022-7-6 10:20:59 | 显示全部楼层
如果它无法自行加载，您可以使用以下内容：
  1. ;;;MidPoint Between 2 Point Using CAL
  2. ;;;ARG -> 2 Points
  3. ;;;RET -> PointList
  4. (defun midpt (p1 p2)
  5.  (cal "(p1+p2)/2"))
回复

使用道具 举报

fuccaro

18

主题

434

帖子

422

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
94
发表于 2022-7-6 10:25:12 | 显示全部楼层
两点中间
  1. (if (not (member "geomcal.arx" (arx))) (arxload "geomcal"))

 
矩形的中间
  1.  
  2. (if not lisp
  3.     (while in active command)
  4.         <Shift+right click> <Ctrl+right click> [i]Mid between two points[/i]
  5. )

 
只是玩玩而已
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 10:29:20 | 显示全部楼层
 
我一直认为GEOMCAL是Autocad的最佳插件之一，但大多数插件（包括我自己）都忽略了它。它有一些非常简洁的功能。
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 10:32:49 | 显示全部楼层
两点中间
 
  1.  
  2. (if not lisp
  3.        (while in active command)<Ctrl+right click> [i]point filters [/i]
  4.            .xz mid mid)
  5. )

 
 
只是玩玩（2）
 
回复

使用道具 举报

GP_

8

主题

248

帖子

245

银币

初来乍到

Rank: 1

铜币
42
发表于 2022-7-6 10:35:57 | 显示全部楼层
“n”点的中点
 
  1. (if not lisp
  2.     (while in active command)
  3.         [b]M2P[/b] <click1> <click2> [i]Mid between two points[/i]
  4. )
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-6 01:50 , Processed in 0.534297 second(s), 73 queries .

© 2020-2025 乐筑天下

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