基于pre se移动所有对象

Tripledot · 发表于 2022-7-5 17:42:49

有人能帮我把这两个Lisp程序组合起来吗。其目的主要是将基于预选层名称的所有对象移动到预先指定的距离

基于预选图层名选择对象

(defun c:Slayer (/)
(ssget "X" '((8 . "layername")))
 (princ)
)

按预先指示的3000距离移动选定对象

copy

(defun c:MUP ( / ss )
 (if (setq ss (ssget "_:L"))
   (command "_.move" ss "" "_non" '(0. 0. 0.) "_non" '(0. 3000. 0.))
 )
 (princ)
)

Lee Mac · 发表于 2022-7-5 17:52:45

copy

(defun c:mup ( / sel )
   (if (setq sel (ssget "_:L" '((8 . "layername"))))
       (command "_.move" sel "" "_non" '(0 0) "_non" '(0 3000))
   )
   (princ)
)

或，对于自动选择：

copy

(defun c:mup ( / sel )
   (if (setq sel (ssget "_X" (list '(8 . "layername") (if (= 1 (getvar 'cvport)) (cons 410 (getvar 'ctab)) '(410 . "Model")))))
       (command "_.move" sel "" "_non" '(0 0) "_non" '(0 3000))
   )
   (princ)
)

marko_ribar · 发表于 2022-7-5 17:58:24

我建议：

copy


(defun c:MUP ( / ss )
 (if (not (equal '(nil nil) (sssetfirst nil (ssget "_X" '((8 . "layername"))))))
   (setq ss (ssget "_:L"))
 )
 (if ss
   (command "_.move" ss "" "_non" '(0. 0. 0.) "_non" '(0. 3000. 0.))
 )
 (princ)
)

Tripledot · 发表于 2022-7-5 18:08:13

谢谢李和马尔科。3Lisp程序效果很好。
李感谢你的2个选项。
马克，你和李之间有什么不同？为什么你会提出这个建议。
谢谢你们俩。

marko_ribar · 发表于 2022-7-5 18:13:05

它将两个选项组合为单个sel。设置实际上，如果你仔细观察（ssget）过滤器，你不能指定“X:L”模式-它会给你一个错误，说错误的ssget模式。。。但通过我在示例中使用的技巧，您可以做到这一点，而无需获取sel。设置为“_X”模式，然后遍历它以删除那些可能位于锁定层上的实体。。。该技巧首次引入了来自autodesk的成员Kent Cooper Expert Elite。com论坛，所以很正常地感谢他对ALISP函数组合的研究和智能使用。。。

BIGAL · 发表于 2022-7-5 18:17:37

如果这是一直在做的事情，那么可以只键入MUP3000 MUP150等。我前一段时间发布的一个例程是基于捕捉“未知命令”的错误并将其与lisp操作一起使用。可能比Y3000 X2500更好。再次感谢李的帮助。”http://www.cadtutor.net/forum/showthread.php?93661-Lisp表示圆角半径/第3页如果有需求，我将添加此选项加Z。

我的0.05美元版本

copy


(defun c:mup ( / sel layername)
   (setq layername (vla-get-layer (vlax-ename->vla-object (car (entsel "pick object for layer")))))
   (ssget "_X" (if (= 1 (getvar 'cvport))(list (cons 8 layername) (cons 410 (getvar 'ctab))) (list (cons 8 layername)(cons 410 "Model"))))
       (command "_.move" sel "" "_non" '(0 0) "_non" '(0 3000))
   )
   (princ)
)

Tripledot · 发表于 2022-7-5 18:23:03

马尔科先生。再次测试，但我没有选择。它只是立即选择全部并完成命令。但这没关系，因为我主要希望它选择所有的方式如果需要选择李的其他版本就足够了。

谢谢你，马尔科先生

Tripledot · 发表于 2022-7-5 18:32:50

嗨，比格尔先生。测试了您的版本，并出现此错误

marko_ribar · 发表于 2022-7-5 18:38:08

我忽略了一些事情：

copy


...
 (if (not (equal '(nil nil) (sssetfirst nil (ssget "_X" '((8 . "layername"))))))
   (setq ss (ssget "_:L"))
 )
...

应该是：

copy


...
 (if (not (equal '(nil nil) (sssetfirst nil (ssget "_X"))))
   (setq ss (ssget "_:L"))
 )
...

选择所有实体后，下一步（ssget“_：L”）将仅获取解锁层上的实体。。。我假设“layername”层在创建选择之前是解锁和解冻的，所以在初始（ssget“\u X”（（8。“layername”））之后不需要（ssget“\u:L”），也不需要（ssget“\u A”（（8。“layername”）），就像我说的，它可能已经解冻了，因此李的版本可能是最适合您在当前选项卡上可能想要的版本…：

copy


...
 (setq ss (ssget "_X" (list '(8 . "layername") (cons 410 (if (= (getvar 'cvport) 1) (getvar 'ctab) "Model"))))
...

BIGAL · 发表于 2022-7-5 18:48:47

SSget修复了上面的问题，但我会使用Marko的代码。

[编程交流] 基于pre se移动所有对象

发表回复

精选推荐