“break”和entlast

Small Fish · 发表于 2022-7-6 10:49:52

也许很简单。。。
如果我使用命令“break”将一条线分成两个实体，
那么我如何将其捕获到两个新的独立变量中呢。
如果我使用（setq e1（entlast））它将只返回断点的一侧。
如何将两侧保存为两个单独的值。
正如我所说，这可能很容易解决，但它让我打败了。
谢谢

Lee Mac · 发表于 2022-7-6 11:00:01

只应创建一个实体，因此在中断之前指向原始实体的变量是另一个实体。

alanjt · 发表于 2022-7-6 11:06:06

执行break命令后，一个对象是您选择的对象，另一个对象是entlast。

alanjt · 发表于 2022-7-6 11:10:05

哎呀，忘记连接了。

如。

copy

(defun _Break (ent pt)
 (command "_.break" ent "_non" pt "_non" pt)
 (list ent (entlast))
)

copy

(_Break (car (entsel)) (getpoint))

Small Fish · 发表于 2022-7-6 11:17:41

谢谢，这很有道理，尽管我仍在努力编写一些代码。
真正的问题是修剪。在我的照片中，我打破了一条线，
插入特征线符号，然后修剪线（这就是我卡住的地方）

copy

 
(setq pt1 (getpoint "\nSpecify first point for breakline: "))
(setq pt2 (getpoint pt1 "\nSpecify second point for breakline: "))
(setq BrkScale 1)
(command "line" pt1 Pt2 "")
(setq e1 (entlast))
(setvar "OSMODE" 512) 
(setq ptBrk (getpoint "\nPick point for break symbol"))
(command "break" e1 ptBrk ptBrk)
(setq e2 (entlast))
(command ".INSERT"
 "BRKLINE2"
 ptBrk
 BrkScale;scale
 ""
 pt1 
 pt2 ;angle
 )
(setq e3(entlast))
(command ".TRIM" e3 "" e1 "");these are the
(command ".TRIM" e3 "" e2 "");problem lines