分解最后一个选择
大家好，我试图创建一个lisp例程来运行中心线命令，然后选择刚刚生成的线并分解它。
我可以让它创建中心线，然后选择线
但是当我将分解线添加到其中时，它不会分解。。我错过了什么？
(defun c:clxo() (command "centerline" pause pause)
(setq sel1 (ssget "l"))
(sssetfirst nil sel1)
(command "explode")
(princ)
) 不能分解线型，是否要单个线条重复序列？可能有一种使用不同命令的方法。
最后一个对象的一种简单方法是使用（setq sel1（entlast））在您的情况下为什么不“分解”“last”“” 中心线是一种对象类型（以及线型..我知道有点混淆）。2017年，有一个名为“centerline”的默认命令
运行它后，单击一条线，再单击另一条线，它会在中心绘制一条线作为“中心线”。我的问题是，除非它分解并变成一条规则线，否则无法偏移该中心线（或进行一些其他修改）。
我想把这一切结合起来可以节省时间。即，运行“中心线”命令，然后分解该线。然后在它分解后，我可以运行这个双偏移lisp，我得到它在两侧等距偏移一条线
非常有趣。你让我打开2017并使用新的命令中心线。
话虽如此，我看到中心线命令要求用户选择第一条线，然后选择第二条线，并在它们之间放置一个中心线对象。我没有意识到的一种新的实体类型，并且无法抵消。有趣的
Command: CENTERLINE
Select first line:
Select second line:
Command:
Command: LI LIST 1 found
CENTER LINELayer: "0"
Space: Model space
Color: BYLAYER Linetype: "CENTER2"
Handle = 1010a33
Associative: Yes
Start Extension = 0.120000, End Extension = 0.120000
From point, X= 3576.995446Y= 1318.941228Z=0.000000
To point, X= 3838.233877Y= 1057.702796Z=0.000000
Length = 369.446933
Command: O OFFSET
Current settings: Erase source=NoLayer=SourceOFFSETGAPTYPE=0
Specify offset distance or <Through>:Specify second point:
Select object to offset or <Exit>:
Cannot offset that object.
因此，我想我会将其视为类似于将行添加到选择集以在之后生成多段线，并从旧代码中挖掘出一个片段，它可以工作：
(progn
(setq Center1 (entlast))
(setq ssCenterline (ssadd))
(ssadd Center1 ssCenterline)
(vl-cmdf "_.explode" ssCenterline)
)
天才非常感谢。现在，我只需要知道如何在分解后的行上运行这个双偏移命令。不确定如何继续下面的例行程序。。
4 偏移中有两个边的一件简单的事情是使用-ve值，只取起点和终点方向无所谓，使用极轴作为90线下的点，然后只做偏移pt val，然后偏移pt val，将出现左右。 劫持线程一秒钟-中心线命令（2017）非常适合创建两条斜线的平分线。它们被约束在两条线之间，因此如果拖动一条线的端点，中心线将保持居中。也可以在中心线和原始线之间平分，并且任何中心线在用于创建它们的对象之间保持居中。
现在回到常规编程。。。（双关语） 这是一些Lisp程序的地方有2个普林斯创建一个新的线中心。
旧螺纹类似“中心线”多选，但仅限于线实体
页:
[1]