乐筑天下

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

[编程交流] 我可以用自动化连接吗

[复制链接]

2

主题

17

帖子

15

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 12:20:39 | 显示全部楼层
但即使我可以打开两个端点的窗口并点击回车键将它们连接起来,也会节省大量时间。
回复

使用道具 举报

1

主题

316

帖子

311

银币

初来乍到

Rank: 1

铜币
29
发表于 2022-7-6 12:26:02 | 显示全部楼层
请尝试:
 
 
(defun c:连接(/end fuzz pt ron ss sset)(if(and(setq ss(ssget’((0.line)))(setq fuzz 0.20))(foreach x(setq sset(vl remove if‘listp(mapcar’cadr(ssnamex ss))))(foreach p(list(vlax curve getstartpoint x)(vlax curve getendpoint x))(foreach y sset(如果(和(不(等于(vlax曲线GetClosestPoint to y p)p 1e-11))(或(
回复

使用道具 举报

2

主题

17

帖子

15

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 12:28:44 | 显示全部楼层
哇,谢谢wizman!
 
你能告诉我一些关于这个代码的信息吗?我以前只使用过一个宏。
 
我会通过CUI命令添加这个吗?
回复

使用道具 举报

1

主题

316

帖子

311

银币

初来乍到

Rank: 1

铜币
29
发表于 2022-7-6 12:31:45 | 显示全部楼层
如何使用?只需复制并粘贴到记事本,然后另存为connect。lsp。然后键入命令行Appload,然后查找文件。要启动它,只需键入connect。如果我正确理解了您的问题,这个lisp将提示您选择所有行,然后如果间隙在0.20个单位以内,它将把每个顶部端点-底部层连接到其上方层的底部端点。
回复

使用道具 举报

8

主题

1133

帖子

1164

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 12:34:09 | 显示全部楼层
也许在自动化的今天,您已经忘记了Pedit命令。
 
这将连接两条非共线,将其中一条线延伸至与另一条线相交,然后生成一条多段线。
 
因为你的两条线在不同的角度,你永远不可能把它们都画成一条直线。
回复

使用道具 举报

8

主题

1133

帖子

1164

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 12:40:08 | 显示全部楼层
如果要将线保留在其现有图层中,则始终存在命令Fillet。
回复

使用道具 举报

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 12:42:06 | 显示全部楼层
这根线已经轻微断裂了。这里是一个相关线程的链接。
http://www.cadtutor.net/forum/showthread.php?t=44795
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-6 02:27 , Processed in 0.441483 second(s), 65 queries .

© 2020-2025 乐筑天下

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