分解最后一个选择

masterfal · 发表于 2022-7-5 16:39:52

大家好，

我试图创建一个lisp例程来运行中心线命令，然后选择刚刚生成的线并分解它。

我可以让它创建中心线，然后选择线

但是当我将分解线添加到其中时，它不会分解。。我错过了什么？

(defun c:clxo  () (command "centerline" pause pause)
(setq sel1 (ssget "l")) 
(sssetfirst nil sel1)
(command "explode")
(princ)
)

BIGAL · 发表于 2022-7-5 16:47:36

不能分解线型，是否要单个线条重复序列？可能有一种使用不同命令的方法。

最后一个对象的一种简单方法是使用（setq sel1（entlast））在您的情况下为什么不“分解”“last”“”

masterfal · 发表于 2022-7-5 16:59:38

中心线是一种对象类型（以及线型..我知道有点混淆）。2017年，有一个名为“centerline”的默认命令

运行它后，单击一条线，再单击另一条线，它会在中心绘制一条线作为“中心线”。我的问题是，除非它分解并变成一条规则线，否则无法偏移该中心线（或进行一些其他修改）。

我想把这一切结合起来可以节省时间。即，运行“中心线”命令，然后分解该线。然后在它分解后，我可以运行这个双偏移lisp，我得到它在两侧等距偏移一条线

CHLUCFENG · 发表于 2022-7-5 17:04:35

非常有趣。你让我打开2017并使用新的命令中心线。

话虽如此，我看到中心线命令要求用户选择第一条线，然后选择第二条线，并在它们之间放置一个中心线对象。我没有意识到的一种新的实体类型，并且无法抵消。有趣的

copy


Command: CENTERLINE
Select first line:
Select second line:
Command:
Command: LI LIST 1 found
              CENTER LINE  Layer: "0"
                           Space: Model space
                  Color: BYLAYER    Linetype: "CENTER2"
                  Handle = 1010a33
            Associative: Yes
            Start Extension = 0.120000, End Extension = 0.120000
            From point, X= 3576.995446  Y= 1318.941228  Z=0.000000
            To point,   X= 3838.233877  Y= 1057.702796  Z=0.000000
            Length = 369.446933
Command: O OFFSET
Current settings: Erase source=No  Layer=Source  OFFSETGAPTYPE=0
Specify offset distance or [Through/Erase/Layer] <Through>:  Specify second point:
Select object to offset or [Exit/Undo] <Exit>:
Cannot offset that object.

因此，我想我会将其视为类似于将行添加到选择集以在之后生成多段线，并从旧代码中挖掘出一个片段，它可以工作：

copy


(progn
 (setq Center1 (entlast))
 (setq ssCenterline (ssadd))
 (ssadd Center1 ssCenterline)
 (vl-cmdf "_.explode" ssCenterline)
)

masterfal · 发表于 2022-7-5 17:13:33

天才非常感谢。现在，我只需要知道如何在分解后的行上运行这个双偏移命令。不确定如何继续下面的例行程序。。

copy

BIGAL · 发表于 2022-7-5 17:24:00

偏移中有两个边的一件简单的事情是使用-ve值，只取起点和终点方向无所谓，使用极轴作为90线下的点，然后只做偏移pt val，然后偏移pt val，将出现左右。

rkent · 发表于 2022-7-5 17:25:52

劫持线程一秒钟-中心线命令（2017）非常适合创建两条斜线的平分线。它们被约束在两条线之间，因此如果拖动一条线的端点，中心线将保持居中。也可以在中心线和原始线之间平分，并且任何中心线在用于创建它们的对象之间保持居中。

现在回到常规编程。。。（双关语）

BIGAL · 发表于 2022-7-5 17:32:24

这是一些Lisp程序的地方有2个普林斯创建一个新的线中心。

hanhphuc · 发表于 2022-7-5 17:40:28

旧螺纹类似“中心线”多选，但仅限于线实体

[编程交流] 分解最后一个选择

发表回复

精选推荐