SSGET-按坐标选择块

scubastu · 发表于 2022-7-6 12:20:00

以前可能有人问过这个问题，但我不能完全理解ssget函数及其所有选项。

我想在lisp中写入一个命令，以选择行末尾的一个块，该块是变量pt2。然后，我将块移动到一个新位置（在那里线的结束结束）。

提前感谢

SteveK · 发表于 2022-7-6 12:36:02

您好，如果您只是想在一个点上选择一个对象，请查看开发人员帮助中的nentselp函数。
如果你需要进一步的帮助，请告诉我。

我记得曾经尝试过ssget函数，但如果有人能纠正我的话，这可能是错误的。

(setq Ent (car(entsel))
    ss (ssget "_X" (list (-4 . "=[color=Red]1,1,1[/color]") (assoc 11 (entget Ent)))))

SteveK · 发表于 2022-7-6 12:51:38

续。
或者这个？
蓝色是dxf代码，红色是坐标。

或者，如果您想添加模糊因子：

copy

(setq pt2 (getpoint)
     fuz 1.0
     ss (ssget "_X" (list '(-4 . "<,<,<")(cons 11 (list (+ (car pt2) fuz)
                                                        (+ (cadr pt2) fuz)
                                                        (+ (caddr pt2) fuz)
                           ))
                           '(-4 . ">,>,>")(cons 11 (list (- (car pt2) fuz)
                                                        (- (cadr pt2) fuz)
                                                        (- (caddr pt2) fuz)
                           ))
             )))