乐筑天下

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

[编程交流] 在每个角落插入圆/

[复制链接]
general marko

2

主题

15

帖子

13

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 20:35:37 | 显示全部楼层
好的，比格尔先生。我会等的。再次感谢你帮助我。
回复

使用道具 举报

general marko

2

主题

15

帖子

13

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 20:37:33 | 显示全部楼层
这是lisp例程将要做的事情的图片。通过选择闭合多段线，lisp将在其交点处插入圆，包括其端点。用户将定义圆的直径/半径。我还希望这将适用于生产线或系列生产线。再次感谢
210216hv4z78n22p777f8c.png
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 20:40:44 | 显示全部楼层
哇在线试试这个目前还没有测试没有cad
 
  3. ;original code by Jow Burke Autodesk forum
  4. (defun c:circonpline ( / Y ptlist nlist pt rad)
  5. (defun massoc (key alist / x nlist)
  6. (foreach x alist
  7. (if (eq key (car x))
  8. (setq nlist (cons (cdr x) nlist))
  9. )
  10. )
  11. (reverse nlist)
  12. ) ;end
  13. (setq ptlist (massoc 10 (entget(car(entsel "pick pline")))))
  14. (setq rad (getreal "\nEnter radius"))
  15. (setq len (length ptlist))
  16. (setq Y 0)
  18. (repeat len
  19. (setq pt (nth Y ptlist))
  20. (Command "circle" pt Rad)
  21. (setq Y (+ Y 1))
  22. )
  23. )
  24. (c:circonpline)
回复

使用道具 举报

general marko

2

主题

15

帖子

13

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 20:45:34 | 显示全部楼层
谢谢比格尔先生，但我很困惑，我应该合并你发布的第一个和第二个代码吗？不知道最终代码。对不起，刚刚开始学习。
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 20:47:08 | 显示全部楼层
抱歉，只是从第二个代码的工作，我将测试很快，使工作找到了一个更短的方式来做这件事。
回复

使用道具 举报

general marko

2

主题

15

帖子

13

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 20:51:10 | 显示全部楼层
非常感谢比格尔先生，不用说对不起。
我就等着。
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 20:55:19 | 显示全部楼层
感谢您在上面等待代码，删除了第一个代码帖子
回复

使用道具 举报

general marko

2

主题

15

帖子

13

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 20:55:59 | 显示全部楼层
是的，谢谢比格尔，代码成功了。但我可以再请你帮个忙吗？我希望在命令行中键入命令“circonpline”后，lisp能够正常工作。问题是，当我加载这个lisp例程时，它会自动运行lisp例程。你能再帮我一次吗？再次感谢比格尔爵士。
回复

使用道具 举报

general marko

2

主题

15

帖子

13

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 21:02:03 | 显示全部楼层
比加尔先生，我已经为我想要的编辑了Lisp程序。幸运的是我拿到了。再次感谢您的代码。
 
当做
马尔科
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 21:03:44 | 显示全部楼层
我们做了一些类似的事情，但在一次通过多个PLINE，这可以很容易地添加，所以只需要一个运行让我知道或有一个自己去使用SSGET
回复

使用道具 举报

12
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 01:02 , Processed in 0.481679 second(s), 72 queries .

© 2020-2025 乐筑天下

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