While循环中的While循环

broncos15 · 发表于 2022-7-5 17:35:07

我有一个快速的问题，关于编写代码的最有效方式是什么，该代码将不断向用户询问源对象和目标对象。我知道如何为以下单个选择编写此代码：
我的问题是如何有效地为两个对象编写此代码（即，您将获得两个对象的错过提示或无效对象，然后在选择每个对象后，一个代码将运行，然后重复，直到用户点击escape或空格键。我已经编写了所有代码，只是这个while循环我无法正常工作。

BIGAL · 发表于 2022-7-5 17:41:31

可能有2个defuns，但使用和来确认两者都符合标准。

Simon1976 · 发表于 2022-7-5 17:49:41

请看一下李的代码，这可能会有所帮助。我经常用它

Grrr · 发表于 2022-7-5 17:51:11

我通常这样做：

copy


[b][color=BLACK]([/color][/b]defun *error* [b][color=FUCHSIA]([/color][/b] msg [b][color=FUCHSIA])[/color][/b] [color=#8b4513]; sometimes we need an error handler, for example the osmode variable[/color]
[b][color=FUCHSIA]([/color][/b]if osm [b][color=NAVY]([/color][/b]setvar 'osmode osm[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]member msg '[b][color=GREEN]([/color][/b][color=#2f4f4f]"Function cancelled"[/color] [color=#2f4f4f]"quit / exit abort"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]princ [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"\nError: "[/color] msg[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b]
[b][color=BLACK]([/color][/b]setq osm [b][color=FUCHSIA]([/color][/b]getvar 'osmode[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[b][color=BLACK]([/color][/b]setvar 'osmode 0[b][color=BLACK])[/color][/b]
[b][color=BLACK]([/color][/b]while T [color=#8b4513]; start the overall loop[/color]
[b][color=FUCHSIA]([/color][/b]setvar 'errno 0[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]while [color=#8b4513]; source object loop[/color]
        [b][color=NAVY]([/color][/b]not
                [b][color=MAROON]([/color][/b]and
                        [b][color=GREEN]([/color][/b]setq ent1 [b][color=BLUE]([/color][/b]car [b][color=RED]([/color][/b]entsel [color=#2f4f4f]"\nSelect source object: "[/color][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]eq [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 0 [b][color=PURPLE]([/color][/b]setq elist1 [b][color=TEAL]([/color][/b]entget ent1[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [color=#2f4f4f]"INSERT"[/color][b][color=GREEN])[/color][/b] [color=#8b4513]; optional filter[/color]
                [b][color=MAROON])[/color][/b]
        [b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]or [b][color=GREEN]([/color][/b]= [b][color=BLUE]([/color][/b]getvar 'errno[b][color=BLUE])[/color][/b] 7[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]null ent1[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]"\nYou missed try again!"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]while [color=#8b4513]; destination object loop[/color]
        [b][color=NAVY]([/color][/b]not
                [b][color=MAROON]([/color][/b]and
                        [b][color=GREEN]([/color][/b]setq ent2 [b][color=BLUE]([/color][/b]car [b][color=RED]([/color][/b]entsel [color=#2f4f4f]"\nSelect destination object: "[/color][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]eq [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 0 [b][color=PURPLE]([/color][/b]setq elist2 [b][color=TEAL]([/color][/b]entget ent2[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [color=#2f4f4f]"INSERT"[/color][b][color=GREEN])[/color][/b] [color=#8b4513]; optional filter[/color]
                [b][color=MAROON])[/color][/b]
        [b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]or [b][color=GREEN]([/color][/b]= [b][color=BLUE]([/color][/b]getvar 'errno[b][color=BLUE])[/color][/b] 7[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]null ent2[b][color=GREEN])[/color][/b] [b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]"\nYou missed try again!"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]progn
        [color=#8b4513]; [b][color=NAVY]([/color][/b]we got the source and destination objects, do the rest of your stuff here[b][color=NAVY])[/color][/b][/color]
[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b] [color=#8b4513]; end the overall loop[/color]

David Bethel · 发表于 2022-7-5 17:56:00

如果我理解正确，有很多方法可以处理这些类型的选择：

copy


[b][color=BLACK]([/color][/b]defun c:pick2 [b][color=FUCHSIA]([/color][/b]/ s1 e1 s2 e2[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and
    [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect Source INSERT"[/color][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq s1 [b][color=MAROON]([/color][/b]ssget [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"INSERT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]sslength s1[b][color=MAROON])[/color][/b] 1[b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq e1 [b][color=MAROON]([/color][/b]ssname s1 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]redraw e1 3[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while
   [b][color=NAVY]([/color][/b]and
     [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]"\nSelect 1 Target INSERT"[/color][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq s2 [b][color=GREEN]([/color][/b]ssget [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]cons 0 [color=#2f4f4f]"INSERT"[/color][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]= [b][color=GREEN]([/color][/b]sslength s1[b][color=GREEN])[/color][/b] 1[b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]setq e2 [b][color=GREEN]([/color][/b]ssname s2 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]eq e1 e2[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]prin1 e2[b][color=NAVY])[/color][/b]
 [b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]redraw[b][color=FUCHSIA])[/color][/b]
   [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

将（prin1 e2）调用替换为您想要完成的操作。

-大卫

broncos15 · 发表于 2022-7-5 18:00:51

Grr，这是另一个while循环的酷用法！我也在想如何通过按空格键退出，但我想不出来。我试着做一个条件，如果实体为null，那么我把它设为nil，但这不起作用。你能想到怎么做吗？David，我以前没有见过使用while循环的ssget，这非常灵活（不幸的是，我必须使用nentsel，因为我从外部参照中的对象获取信息）。

Lee Mac · 发表于 2022-7-5 18:09:30

我建议将选择操作划分为一个单独的功能，例如：

copy

(defun c:test ( / des prd src )
   (setq prd
      '(lambda ( x )
           (wcmatch
               (cdr (assoc 0 (entget x)))
               "LINE,ARC,CIRCLE,LWPOLYLINE,POLYLINE,RAY,XLINE,AECC_FEATURE_LINE"
           )
       )
   )
   (if
       (and
           (setq src (selectif "\nSelect source object: "      prd))
           (setq des (selectif "\nSelect destination object: " prd))
       )
       (princ "\nDo stuff.")
   )
   (princ)
)
(defun selectif ( msg prd / ent )
   (while
       (progn (setq ent (car (entsel msg)))
           (cond
               (   (= 7 (getvar 'errno))
                   (princ "\nMissed, try again.")
               )
               (   (not ent) nil)
               (   (not (apply prd (list ent)))
                   (princ "\nInvalid object selected.")
               )
           )
       )
   )
   ent
)

broncos15 · 发表于 2022-7-5 18:15:06

李，非常感谢你的帮助！我现在遇到的问题是添加了另一个while循环，该循环将一直运行，直到空格键被击中或逃脱。例如，用户将选择源对象，然后选择目标对象，然后选择源对象，然后选择目标。。。直到他们做了他们想做的一切，然后他们就会击中空间或逃跑。

broncos15 · 发表于 2022-7-5 18:17:22

因此，我最终通过以下方式实现了这一点：

copy

(while
     (and
(setq sent (selectif "\nSelect source object: "))
(setq dent (selectif "\nSelect destination object: "))
     )
;...Rest of code

像这样使用and函数有什么问题吗？

Grrr · 发表于 2022-7-5 18:22:46

通过阅读本文，我认为您必须使用其他方法-提示用户在循环中不断选择源和目标对象，并在这样做的同时构建一个assoc列表，如下所示：

copy

(<source ent1> . <destination ent1>) (<source ent2> . <destination ent2>) ... (<source entN> . <destination entN>)

然后为列表中的每一对做你的秘密工作。
不幸的是，我不知道如何编写这个代码（但我对此很感兴趣，因为我脑海中也有类似的想法）。

[编程交流] While循环中的While循环

发表回复

精选推荐