在交点上插入块

VisDak · 发表于 2022-7-5 19:49:03

大家好，

你好，我有一些积木，每次我插入它并定位到相交线，将积木旋转到所需的每个方向，然后修剪，

具有Lsp的任何人，将在交点上插入块，然后定位块（旋转），并自动修剪或打断相交线，

我刚刚在论坛上发现，块被插入然后修剪，但这只是我线被修剪，我需要的是两条相交的线被修剪，请如果你有，

非常感谢

Lee Mac · 发表于 2022-7-5 19:59:17

我相信这将是非常特定于块的-取决于块的大小、基点和名称，以及修剪的内容和程度。

用您提供的松散信息创建LISP非常困难。

VisDak · 发表于 2022-7-5 20:12:12

嗨，李，

这是我用的一个积木，水管配件，

以前我用的是论坛上的autolips，但这个lisp只对一条线进行修剪/打断，我需要修剪几条相交线，插入我创建的弯头配件块，

如果lsp将创建弯头或T形三通管件非块，通过简单的多段线管线插入，并自动使边缘具有管件，是否可能：o

谢谢
brtrim。图纸
配件。图纸
Intrim。lsp

BlackAlnet · 发表于 2022-7-5 20:22:24

你需要线的长度还是什么？如果没有，为什么不使用“无图”配置进行“清除”？？？

无论如何我做不到，这对我来说太难了，我试了一个小时，但它太复杂了。。。

The Buzzard · 发表于 2022-7-5 20:27:17

查看Afralisp上的本教程，了解自动断块。

http://www.afralisp.net/lispa/lisp52.htm

The Buzzard · 发表于 2022-7-5 20:38:28

以下是该教程的样例代码和样例块。
如本文所述，这是一个耗时的项目。
lisp52.zip

Lee Mac · 发表于 2022-7-5 20:43:51

这应该给你（或其他人）的帮助与Lisp程序。。。

它将打断指定半径圆内的所有线。（最多限制两个十字路口）。

[code]；；李·麦克唐纳打破圆圈（李·麦克）05.06.09；；参数：；；pt~圆心[Point]；；rad ~圆半径[Real]；；（CirBrk’（1 2 3）5）；；限制条件：；；仅允许<3个十字路口。（defun[color]CirBrk（pt rad/doc spc Cir Minp Maxp ptlst ss pts lst bPt（[/color b][color=BLUE BLUE vl load com][color]）[/color b][红色color=BLUE]setqvlst'（“CMDECHO”“OSMODE”ovar（[/color b]mapcar[/color b]'getvarvlst[color=RED红色）（mapcar[color]setvarvlst[color]00[color]（[color=BLUE setqdoc（vla get ActiveDocument（vlax get Acad Object[spc（[color=BLUE if[RED]（[color=BLUE zerop]（[color=BLUE vla get activespace]doc b[color=RE/color[/color（如果[color]（=（[color=BLUE vla get mspace][color]doc b]）[vlax true；Vport（vla get modelspacedoc[color]（[color=BLUE vla get paperspacedoc b]）（[color=BLUE vla get modelspacedoc b]）[/color b][]（vla getBoundingBoxsetqCir（[color=BLUE vla ADDCIRCE]spc b]（[color=BLUE BLUE]vlax-3D-pointradMinpMaxp（setqptlst[color=RED 4]（[/color b]mapcarb]（listMinp Maxpss（ssget[color]“C”（[color=BLUE car][ptlst[ptlst]）（ssdel[color]（vla对象->ename[color]Cirss（[color=BLUE b]如果[color]（[color=BLUE b]颜色=红色）[color=红色]（carpts（vla删除[color]Cir（foreachBrk lst（cond（（

KrisDizzle · 发表于 2022-7-5 20:54:40

李

我遇到了一个保存问题，插入了块，行没有断开。。。。我正在使用AutCAD 2010

[编程交流] 在交点上插入块

发表回复

精选推荐