基于位置选择对象

Stermaj · 发表于 2022-7-6 14:42:36

我在autocad中有一个模型，我想让autolisp选择一组由相对于WCS的位置或自定义UCS定义的块，然后将它们相对于当前UCS旋转90度。我试图使用SSGET来选择块，但我似乎无法正确地获得语法。例如，我希望能够让autocad选择其基点位于Z>0的所有对象。

我能够在filters和qselect中定义选择集，但我看不出有任何方法可以让autocad通过命令提示符运行这些函数，从而使这些工作徒劳无功。
任何帮助都将不胜感激。

Lee Mac · 发表于 2022-7-6 14:47:49

也许：

copy


(defun c:selObj (/ ss ent)
 (if (setq ss (ssget "X" (list (cons 0 "INSERT")
                               (if (getvar "CTAB")(cons 410 (getvar "CTAB"))
                                 (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
     (foreach ent (mapcar 'cadr (ssnamex ss))
       (if (not (> (cadddr (assoc 10 (entget ent))) 0))
         (ssdel ent ss)))
     (if (not (zerop (sslength ss)))
       (command "_rotate" ss "" pause pause)))
   (princ "\n<!> No Blocks Found <!>"))
 (princ))

Stermaj · 发表于 2022-7-6 14:51:31

哇，这正是我需要它做的。非常感谢你的帮助！

Lee Mac · 发表于 2022-7-6 14:54:00

没有问题，

如果你对代码有任何问题，就大声说出来

李

Stermaj · 发表于 2022-7-6 14:56:13

我修改了每个轴的代码，将CADDRR更改为CADDR和CADR，以便在必要时对每个轴使用它。我注意到，如果一个块被一个函数移动，比如说，在z轴下方，再次运行代码仍然会选择该块，即使其z位置现在为负。我是否遗漏了一些可以清除列表并让其重新扫描以确定哪些块符合要选择的标准的内容？

Lee Mac · 发表于 2022-7-6 14:59:22

我不太明白-选择集是局部的，因此在函数完成时设置为零。

Stermaj · 发表于 2022-7-6 15:02:08

我正在制作rubiks立方体的动画，我正在编写旋转边的命令。基本上，我加载了两个lisp文件，然后手动运行每个命令。运行oranger函数会旋转z轴（立方体的橙色一侧）上高于10的所有块，然后我运行redr，它会旋转y轴（立方体的红色一侧）上低于-10的块。如果我再次运行oranger，它会选择与oranger第一次运行时相同的块集，即使redr切换了块。这对立方体意味着，由于某些原因，一些不再位于橙色面上的块仍在被选择，而橙色面上的其他块则没有。确实被选中的块最终会在静止的块之间滑动。以下是我的选择和旋转代码。c:COLORucs命令调用另一个函数，该函数仅建立ucs，以便在正确的平面中发生旋转。

再次感谢您的帮助！
-乔恩

（defun c：黄色（）
（setq oldosn（getvar“osmode”））
（setvar“osmode”0）
（c:yellowucs）
（setq pt1（列表0）

（如果（setq ss（ssget“X”（列表（cons 0“插入”）
（if（getvar“CTAB”）（cons 410（getvar“CTAB”））
（cons 67（-1（getvar“TILEMODE”аа）ааа）аа）
（程序
（foreach ent（mapcar’cadr（ssnamex ss））
（如果没有）(
（ssdel ent ss）））
（if（not（zerop（sslength ss）））
（重复9
（命令“_rotate”ss”“pt1-10）
)
)
)
（princ“\n未找到块”））
（setvar“osmode”oldosn）
)

（defun c：橙色（）
（setq oldosn（getvar“osmode”））
（setvar“osmode”0）
（c:orangeucs）
（setq pt1（列表0）

（如果（setq ss（ssget“X”（列表（cons 0“插入”）
（if（getvar“CTAB”）（cons 410（getvar“CTAB”））
（cons 67（-1（getvar“TILEMODE”аа）ааа）аа）
（程序
（foreach ent（mapcar’cadr（ssnamex ss））
（如果（不是（>（CADDR（assoc 10（entget ent）））10））
（ssdel ent ss）））
（if（not（zerop（sslength ss）））
（重复9
（命令“_rotate”ss”“pt1-10）
)
)
)
（princ“\n未找到块”））
（setvar“osmode”oldosn）
)

（定义c:redr（）
（setq oldosn（getvar“osmode”））
（setvar“osmode”0）
（c：减少）
（setq pt1（列表0）

（如果（setq ss（ssget“X”（列表（cons 0“插入”）
（if（getvar“CTAB”）（cons 410（getvar“CTAB”））
（cons 67（-1（getvar“TILEMODE”аа）ааа）аа）
（程序
（foreach ent（mapcar’cadr（ssnamex ss））
（如果（不是(
（ssdel ent ss）））
（if（not（zerop（sslength ss）））
（重复9
（命令“_rotate”ss”“pt1-10）
)
)
)
（princ“\n未找到块”））
（setvar“osmode”oldosn）
)

（defun c：紫色（）
（setq oldosn（getvar“osmode”））
（setvar“osmode”0）
（c：紫色）
（setq pt1（列表0）

（如果（setq ss（ssget“X”（列表（cons 0“插入”）
（if（getvar“CTAB”）（cons 410（getvar“CTAB”））
（cons 67（-1（getvar“TILEMODE”аа）ааа）аа）
（程序
（foreach ent（mapcar’cadr（ssnamex ss））
（如果（不是（>（caddr（assoc 10（entget ent）））10））
（ssdel ent ss）））
（if（not（zerop（sslength ss）））
（重复9
（命令“_rotate”ss”“pt1-10）
)
)
)
（princ“\n未找到块”））
（setvar“osmode”oldosn）
)

Lee Mac · 发表于 2022-7-6 15:07:55

好的，试试这个-我已经对代码中可能出现的错误进行了注释：

copy


(defun c:yellowr  (/ oldosn ss)  ;;  Make sure you localise the variables!
 (setq oldosn (getvar "osmode"))
 (setvar "osmode" 0)
 (yellowucs)  ; Shouldn't need (c:xxx), just (xxx)
 (if (setq ss (ssget "X"
                     (list (cons 0 "INSERT")
                           (if (getvar "CTAB")
                             (cons 410 (getvar "CTAB"))
                             (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
     (foreach ent  (mapcar 'cadr (ssnamex ss))
       (if (not (< (cadddr (assoc 10 (entget ent))) -10)) ;; Z value less than -10
         (ssdel ent ss)))
     (if (not (zerop (sslength ss)))
       (repeat 9
         (command "_rotate" ss "" '(0 0 0) -10))))  ; Don't feel the need for variable "pt1"
   (princ "\n<!> No Blocks Found <!>"))
 (setvar "osmode" oldosn)
 (princ))  ; Make sure you exit cleanly
(defun c:oranger  (/ oldosn ss)
 (setq oldosn (getvar "osmode"))
 (setvar "osmode" 0)
 (orangeucs)
 (if (setq ss (ssget "X"
                     (list (cons 0 "INSERT")
                           (if (getvar "CTAB")
                             (cons 410 (getvar "CTAB"))
                             (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
     (foreach ent  (mapcar 'cadr (ssnamex ss))
       (if (not (> (cadddr (assoc 10 (entget ent))) 10)) ;; Z value greater than 10
         (ssdel ent ss)))
     (if (not (zerop (sslength ss)))
       (repeat 9
         (command "_rotate" ss "" '(0 0 0) -10))))
   (princ "\n<!> No Blocks Found <!>"))
 (setvar "osmode" oldosn)
 (princ))
(defun c:redr  (/ oldosn ss)
 (setq oldosn (getvar "osmode"))
 (setvar "osmode" 0)
 (reducs)
 (if (setq ss (ssget "X"
                     (list (cons 0 "INSERT")
                           (if (getvar "CTAB")
                             (cons 410 (getvar "CTAB"))
                             (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
     (foreach ent  (mapcar 'cadr (ssnamex ss))
       (if (not (< (caddr (assoc 10 (entget ent))) -10)) ;; Y value less than -10
         (ssdel ent ss)))
     (if (not (zerop (sslength ss)))
       (repeat 9
         (command "_rotate" ss "" '(0 0 0) -10))))
   (princ "\n<!> No Blocks Found <!>"))
 (setvar "osmode" oldosn)
 (princ))
(defun c:purpler  (/ oldosn ss)
 (setq oldosn (getvar "osmode"))
 (setvar "osmode" 0)
 (purpleucs)
 (if (setq ss (ssget "X"
                     (list (cons 0 "INSERT")
                           (if (getvar "CTAB")
                             (cons 410 (getvar "CTAB"))
                             (cons 67 (- 1 (getvar "TILEMODE")))))))
   (progn
     (foreach ent  (mapcar 'cadr (ssnamex ss))
       (if (not (> (caddr (assoc 10 (entget ent))) 10)) ;; Y value greater than 10
         (ssdel ent ss)))
     (if (not (zerop (sslength ss)))
       (repeat 9
         (command "_rotate" ss "" '(0 0 0) -10))))
   (princ "\n<!> No Blocks Found <!>"))
 (setvar "osmode" oldosn)
 (princ))