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程序。。。
 
它将打断指定半径圆内的所有线。（最多限制两个十字路口）。
 
；；李·麦克唐纳打破圆圈（李·麦克）05.06.09；；参数：；；pt~圆心；；rad ~圆半径；；（CirBrk’（1 2 3）5）；；限制条件：；；仅允许<3个十字路口。（defunCirBrk（pt rad/doc spc Cir Minp Maxp ptlst ss pts lst bPt（）[红色color=BLUE]setqvlst'（“CMDECHO”“OSMODE”ovar（mapcar'getvarvlst（mapcarsetvarvlst00（doc（vla get ActiveDocument（vlax get Acad Object（（（doc b（如果（=（doc b]）；Vport（vla get modelspacedoc（doc b]）（doc b]）[]（vla getBoundingBoxsetqCir（spc b]（vlax-3D-pointradMinpMaxp（setqptlst（mapcarb]（listMinp Maxpss（ssget“C”（）（ssdel（vla对象->enameCirss（如果（颜色=红色）（carpts（vla删除Cir（foreachBrk lst（cond（（

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

李
 
我遇到了一个保存问题，插入了块，行没有断开。。。。我正在使用AutCAD 2010
页: [1]
查看完整版本: 在交点上插入块