我第500次和9/10次尝试

The Buzzard · 发表于 2022-7-6 15:03:08

大家注意，

修改后的代码见第一篇文章。
对局部变量进行了更改。
如果有任何意见，我将不胜感激。

谢谢
秃鹰

flowerrobot · 发表于 2022-7-6 15:08:21

你是怎么计算出向量图像的，主要是门的弧线。

The Buzzard · 发表于 2022-7-6 15:10:16

嘿，花机器人，

我想知道什么时候会有人问我这个问题。
以下是步骤。

我只是把门拉到一个基本尺寸。
2、将门放置在屏幕中心。
我运行了一个名为mimage2的程序。lsp（该程序将使用一个图像生成一个对话框和lisp程序）。
4.创建程序时，它存储在C。
5.我打开程序，复制列表并将其粘贴到我的程序中。（我只是相应地格式化它）。
6、我对每张图片都这样做。

由于函数的大小，我在这里显示了函数中的第一个和最后一个图像。您可以参考代码中的完整函数。

copy


;;; F09 - Image Function - Update Door Image.                       ;Function Description
(defun IDS_UDI (D:IMG)                                              ;Define function, D:IMG ~ (Door Image) is the argument
 (setq D:IMG                                                       ;Set Door Image
   (strcat                                                         ;Concatenate string
    ""(eval D:SWG)""(eval D:ANG)""(eval D:IPT)""))                 ;Evaluate D:SWG ~ (Door Swing) D:ANG ~ (Door Angle) D:IPT ~ (Door Insertion Point)
 (setq w (dimx_tile "imG1")                                        ;Set width  coordinate for imG1
       h (dimy_tile "imG1"))                                       ;Set height coordinate for imG1
 (start_image "imG1")                                              ;Start image imG1
 (fill_image 0 0 w h -15)                                          ;Fill  image
 (cond                                                             ;If one of the following conditions apply
   ((= D:IMG "LEFT90OUT")                                          ;D:IMG ~ (Door Image) = D:SWG ~ (LEFT) D:ANG ~ (90) D:IPT ~ (OUT)
     (mapcar 'vector_image                                         ;Start mapcar
       (list  36  37  36  37  36  37  36  37  37  36  36  41  41
              32  41  32  32  41  41  32  32  41  37  41  41  37
              37 119 119 119 119 119 119 118 118 118 117 117 116
             116 115 114 114 113 112 111 110 109 108 107 106 105
             104 103 102 101  99  98  97  95  94  92  91  89  88
              86  84  83  81  79  78  76  74  72  70  69  67  65
              63  61  59  57  55  53  51  49  47  45  43  40  40
              33  40  33  34  40  40  34  33  40  33  34  40  34
              40  40  33  34  40  40  33)
       (list  95  95  86  95  86  86  95  95  86  86  95  91  90
              91  90  91  90  91  90  90  91  91   8   8  91  91
               8  91  89  87  85  83  81  79  77  75  73  71  69
              67  65  63  61  59  58  56  54  52  50  49  47  45
              44  42  40  39  37  36  34  33  31  30  29  27  26
              25  24  23  21  20  19  18  17  17  16  15  14  13
              13  12  12  11  11  10  10   9   9   9   9  94  94
              88  94  88  87  94  94  87  88  94  94  94  87  94
              87  88  94  94  88  87  94)
       (list  37  36  36  36  37  37  37  37  36  36  36  41  32
              41  32  32  41  41  32  32  41  41  41  41  37  37
              37 119 119 119 119 119 118 118 118 117 117 116 116
             115 114 114 113 112 111 110 109 108 107 106 105 104
             103 102 101  99  98  97  95  94  92  91  89  88  86
              84  83  81  79  78  76  74  72  70  69  67  65  63
              61  59  57  55  53  51  49  47  45  43  41  40  33
              40  33  34  40  40  34  33  40  40  34  40  33  40
              40  34  34  40  40  33  33)
       (list  95  86  95  86  86  95  95  86  86  95  95  90  91
              91  91  90  90  90  90  91  91  91   8  91  91   8
               8  89  87  85  83  81  79  77  75  73  71  69  67
              65  63  61  59  58  56  54  52  50  49  47  45  44
              42  40  39  37  36  34  33  31  30  29  27  26  25
              24  23  21  20  19  18  17  17  16  15  14  13  13
              12  12  11  11  10  10   9   9   9   9   9  94  88
              94  88  87  94  94  87  88  94  94  94  87  94  87
              88  94  94  88  87  94  94)
       (list   1   1   1   1   1   1   1   1   1   1   1   1   1
               1   1   1   1   1   1   1   1   1  16  16  16  16
              16  16  16  16  16  16  16  16  16  16  16  16  16
              16  16  16  16  16  16  16  16  16  16  16  16  16
              16  16  16  16  16  16  16  16  16  16  16  16  16
              16  16  16  16  16  16  16  16  16  16  16  16  16
              16  16  16  16  16  16  16  16  16  16  16   1   1
               1   1   1   1   1   1   1   1   1   1   1   1   1
               1   1   1   1   1   1   1)))
   ((= D:IMG "LEFT-RIGHT45IN")                                     ;D:IMG ~ (Door Image) = D:SWG ~ (LEFT-RIGHT) D:ANG ~ (45) D:IPT ~ (IN)
     (mapcar 'vector_image                                         ;Start mapcar
       (list  78  78  78  78  78  77  77  77  76  76  76  75  74
              74  73  72  72  71  70  69  68  67  66  65  64  63
              62  61  99  96 147 150  99  96  95  94  93  92  91
              90  89  88  87  86  85  84  83  83  82  81  81  80
              80  80  79  79  79  78  78  78  78   8   9   8   9
               8   9   8   9   9   8   8  13  13   5  13   5   5
              13  13   5   5  13  57  60   9   6  57  11  12   6
              12   6   6  11  12   6   6  11   6   6  11   6  11
              12   6   6  12  11   6)
       (list  88  86  85  83  81  79  77  75  73  72  70  68  66
              64  63  61  59  57  56  54  52  51  49  48  46  45
              43  42  37  40  91  88  37  40  42  43  45  46  48
              49  51  52  54  56  57  59  61  63  64  66  68  70
              72  73  75  77  79  81  83  85  86  95  95  87  95
              87  87  95  95  87  87  95  92  91  92  91  92  91
              92  91  91  92  92  37  40  91  88  37  94  93  89
              93  89  88  94  93  88  89  94  93  94  88  94  88
              89  93  94  89  88  93)
       (list  78  78  78  78  77  77  77  76  76  76  75  74  74
              73  72  72  71  70  69  68  67  66  65  64  63  62
              61  60  96 147 150  99  99  95  94  93  92  91  90
              89  88  87  86  85  84  83  83  82  81  81  80  80
              80  79  79  79  78  78  78  78  78   9   8   8   8
               9   9   9   9   8   8   8  13   5  13   5   5  13
              13   5   5  13  13  60   9   6  57  57  12   6  11
               6   6  12  12   6   6  11  11   6  11   6  11  12
               6   6  12  11   6   6)
       (list  86  85  83  81  79  77  75  73  72  70  68  66  64
              63  61  59  57  56  54  52  51  49  48  46  45  43
              42  40  40  91  88  37  37  42  43  45  46  48  49
              51  52  54  56  57  59  61  63  64  66  68  70  72
              73  75  77  79  81  83  85  86  88  95  87  95  87
              87  95  95  87  87  95  95  91  92  92  92  91  91
              91  91  92  92  92  40  91  88  37  37  93  89  94
              89  88  93  93  88  89  94  94  94  88  93  88  89
              94  94  89  88  93  93)
       (list  16  16  16  16  16  16  16  16  16  16  16  16  16
              16  16  16  16  16  16  16  16  16  16  16  16  16
              16  16  16  16  16  16  16  16  16  16  16  16  16
              16  16  16  16  16  16  16  16  16  16  16  16  16
              16  16  16  16  16  16  16  16  16   1   1   1   1
               1   1   1   1   1   1   1   1   1   1   1   1   1
               1   1   1   1   1  16  16  16  16  16   1   1   1
               1   1   1   1   1   1   1   1   1   1   1   1   1
               1   1   1   1   1   1))))
 (end_image)                                                       ;End   image
)                                                                   ;End   define function

还有什么问题，尽管问吧。
谢谢
秃鹰

The Buzzard · 发表于 2022-7-6 15:12:49

这是图片上的完整线索。
您可以从这里下载代码，只需确保您复制了最新版本。

http://autolisp-exchange.com/Forums/Forum4/F4T18P1.htm

秃鹰

The Buzzard · 发表于 2022-7-6 15:15:42

更具体地说，

我对一种类型的门使用了多个图像。
选择的组合会更改这些图像。

例如
1、左门与外部插入点成90度摆动。
2、左门与内侧插入点成90度摆动。
3、左门与外部插入点成45度摆动。
4、左门与内侧插入点成45度摆动。
下面附加的代码是导致图像更改的主要功能的一部分。

copy

  (IDS_UDI D:IMG)                                                   ;Goto IDS_UDI Image Function ~ D:IMG (Door Image) is the argument
 (action_tile "LEFT"                                               ;When radio_button Single Door - Left is selected, KEY is LEFT
  "(IDS_UDI (setq D:SWG "LEFT"))")                               ;Goto IDS_UDI Image Function, Set variable D:SWG ~ (Door Swing) to LEFT
 (action_tile "RIGHT"                                              ;When radio_button Single Door - Right is selected, KEY is RIGHT
  "(IDS_UDI (setq D:SWG "RIGHT"))")                              ;Goto IDS_UDI Image Function, Set variable D:SWG ~ (Door Swing) to RIGHT
 (action_tile "LEFT-RIGHT"                                         ;When radio_button Double Door is selected, KEY is LEFT-RIGHT
  "(IDS_UDI (setq D:SWG "LEFT-RIGHT"))")                         ;Goto IDS_UDI Image Function, Set variable D:SWG ~ (Door Swing) to LEFT-RIGHT
 (action_tile "90"                                                 ;When radio_button 90° Angle is selected, KEY is 90
  "(IDS_UDI (setq D:ANG "90"))")                                 ;Goto IDS_UDI Image Function, Set variable D:ANG ~ (Door Angle) to 90
 (action_tile "45"                                                 ;When radio_button 45° Angle is selected, KEY is 45
  "(IDS_UDI (setq D:ANG "45"))")                                 ;Goto IDS_UDI Image Function, Set variable D:ANG ~ (Door Angle) to 45
 (action_tile "OUT"                                                ;When radio_button Outside Pivot is selected, KEY is OUT
  "(IDS_UDI (setq D:IPT "OUT"))")                                ;Goto IDS_UDI Image Function, Set variable D:IPT ~ (Door Insertion Point) to OUT
 (action_tile "IN"                                                 ;When radio_button Inside Pivot is selected, KEY is IN
  "(IDS_UDI (setq D:IPT "IN"))")                                 ;Goto IDS_UDI Image Function, Set variable D:IPT ~ (Door Insertion Point) to IN

这部分代码结合了上述键的选择。
我创建了一个名为D的变量：IMG作为参数。通过组合变量D:SWG、D:ANG和D:IPT进行设置。
当选择这些变量组合中的任何一个时，我使用条件转到使用mimage2创建的特定图像列表。lsp。（列表示例请参阅第13篇文章）

copy

;;; F09 - Image Function - Update Door Image.                       ;Function Description
(defun IDS_UDI (D:IMG)                                              ;Define function, D:IMG ~ (Door Image) is the argument
 (setq D:IMG                                                       ;Set Door Image
   (strcat                                                         ;Concatenate string
    ""(eval D:SWG)""(eval D:ANG)""(eval D:IPT)""))                 ;Evaluate D:SWG ~ (Door Swing) D:ANG ~ (Door Angle) D:IPT ~ (Door Insertion Point)
 (setq w (dimx_tile "imG1")                                        ;Set width  coordinate for imG1
       h (dimy_tile "imG1"))                                       ;Set height coordinate for imG1
 (start_image "imG1")                                              ;Start image imG1
 (fill_image 0 0 w h -15)                                          ;Fill  image
 (cond                                                             ;If one of the following conditions apply
   ((= D:IMG "LEFT90OUT")                                          ;D:IMG ~ (Door Image) = D:SWG ~ (LEFT) D:ANG ~ (90) D:IPT ~ (OUT)
     (mapcar 'vector_image                                         ;Start mapcar