关于描点

皇上快溜

本函数是Gu_xl版主的，用它描了图，产生了描图数据表，


接上之后，一点击DCL按钮，就卡死，整个cad被DCL卡死


不知哪里我没弄对？




  ;;命令响应
  (defun cmd_action (act)
    (cond
      ((= 0 act)
       (princ "\n00000000000")
      )
      ((= 1 act)
       (princ "\n11111111111")
      )
      ((= 2 act)
       (princ "\n2222222222222")
      )
      ;;... 其他类似
    )
  )
  ;;点击图像后根据鼠标位置响应不同的动作
  (defun img_act (key x y reason / w h row col a)
    (setq w (fix (/ wpixel cols))) ;_ 单个命令图像区宽度
    (setq h (fix (/ hpixel rows))) ;_ 单个命令图像区高度
    ;;单击图像后，重绘image
    (start_image "img")
    (fill_image 0 0 (dimx_tile "img") (dimy_tile "img") 253) ;_ 重绘底色
    (fill_image ;_ 亮显单击单元格
      (* w (setq col (fix (/ x 1.0 w))))
      (* h (setq row (fix (/ y 1.0 h))))
      w
      h
      254
    )
    (mapcar 'eval ;_ 重绘图案
     (mapcar 'cons
      (mapcar '(lambda (x) 'vector_image) result)
      result
     )
    )
    (end_image)
    (setq a (+ col (* row cols)))
    (set_tile "text" (strcat "命令编号: " (itoa a)))
    ;;双击图像后动作
    (if (= 4 reason)
      (progn
;;(alert (strcat "按下按钮 " (itoa a)))
(setq action a)
(done_dialog 2)
      )
    )
  )
  (defun C:TT (/ dlg_code f fn ecode)
    (setq result (AAAAAA));描图数据表
    (setq fn (vl-filename-mktemp "myapp" "" ".dcl"))
    (setq f (open fn "w"))
    (write-line "imagetext : dialog {" f)
    (write-line "label = \"图像描点测试对话框 gu_xl\";" f)
    (write-line "  : image_button  {" f)
    (write-line "    key = \"img\";" f)
    (write-line "    width = 56;" f)
    (write-line "    aspect_ratio = 0.667;" f)
    (write-line "    color = 253;" f)
    (write-line "}" f)
    (write-line "  : text  {" f)
    (write-line "     key = \"text\";" f)
    (write-line "     width = 56;" f)
    (write-line "}" f)
    (write-line " ok_cancel ;" f)
    (write-line "}" f)
    (close f)
    (setq dlg_code (load_dialog fn))
    (new_dialog "imagetext" dlg_code)
    (action_tile "img" "(img_act $key $x $y $reason)")
    (start_image "img")
    (fill_image 0 0 (dimx_tile "img") (dimy_tile "img") 253)
    (mapcar 'eval
     (mapcar 'cons
      (mapcar '(lambda (x) 'vector_image) result)
      result
     )
    )
    (end_image)
    (setq ecode (start_dialog))
    (setq ecodeE ecode)
    (setq actionN action)
    (if (= 2 ecode)
      (progn
(cmd_action action)
(start_dlg)
      )
    )
  )




;;描图数据表
(defun AAAAAA ()
  '((0 1 328 1 1)
    (0 74 328 74 1)
    (0 147 328 147 1)
    (0 220 328 220 1)
    (0 220 0 1 1)
    (109 220 109 1 1)
    (219 220 219 1 1)
    (329 220 329 1 1)
    (73 37 73 36 7)
    (73 36 73 35 7)
    (73 35 73 34 7)
    (73 34 72 33 7)
    (72 33 72 32 7)
    (72 32 71 31 7)
    (71 31 71 30 7)
    (71 30 70 30 7)
    (70 30 69 29 7)
    (69 29 68 28 7)
    (68 28 67 28 7)
    (67 28 67 27 7)
    (67 27 66 27 7)
    (66 27 65 26 7)
    (65 26 64 26 7)
    (64 26 63 26 7)
    (63 26 62 26 7)
    (62 26 62 25 7)
    (62 25 61 25 7)
    (61 25 60 25 7)
    (60 25 59 25 7)
    (59 25 58 25 7)
    (58 25 57 25 7)
    (57 25 56 25 7)
    (56 25 55 25 7)
    (55 25 54 25 7)
    (54 25 53 25 7)
    (53 25 52 25 7)
    (52 25 51 25 7)
    (51 25 50 25 7)
    (50 25 49 25 7)
    (49 25 48 25 7)
    (48 25 48 26 7)
    (48 26 47 26 7)
    (47 26 46 26 7)
    (46 26 45 26 7)
    (45 26 44 27 7)
    (44 27 43 27 7)
    (43 27 43 28 7)
    (43 28 42 28 7)
    (42 28 41 29 7)
    (41 29 40 30 7)
    (40 30 39 30 7)
    (39 30 39 31 7)
    (39 31 38 32 7)
    (38 32 38 33 7)
    (38 33 37 34 7)
    (37 34 37 35 7)
    (37 35 37 36 7)
    (37 36 37 37 7)
    (37 37 37 38 7)
    (37 38 37 39 7)
    (37 39 37 40 7)
    (37 40 38 40 7)
    (38 40 38 41 7)
    (38 41 39 42 7)
    (39 42 39 43 7)
    (39 43 40 43 7)
    (40 43 40 44 7)
    (40 44 41 44 7)
    (41 44 42 45 7)
    (42 45 43 46 7)
    (43 46 44 46 7)
    (44 46 45 47 7)
    (45 47 46 47 7)
    (46 47 47 47 7)
    (47 47 48 48 7)
    (48 48 49 48 7)
    (49 48 50 48 7)
    (50 48 51 48 7)
    (51 48 52 49 7)
    (52 49 53 49 7)
    (53 49 54 49 7)
    (54 49 55 49 7)
    (55 49 56 49 7)
    (56 49 57 49 7)
    (57 49 58 49 7)
    (58 49 59 48 7)
    (59 48 60 48 7)
    (60 48 61 48 7)
    (61 48 62 48 7)
    (62 48 63 48 7)
    (63 48 64 47 7)
    (64 47 65 47 7)
    (65 47 65 46 7)
    (65 46 66 46 7)
    (66 46 67 46 7)
    (67 46 68 45 7)
    (68 45 69 44 7)
    (69 44 70 44 7)
    (70 44 70 43 7)
    (70 43 71 43 7)
    (71 43 71 42 7)
    (71 42 72 42 7)
    (72 42 72 41 7)
    (72 41 72 40 7)
    (72 40 73 40 7)
    (73 40 73 39 7)
    (73 39 73 38 7)
    (73 38 73 37 7)
    (147 29 185 29 7)
    (185 29 185 47 7)
    (185 47 147 47 7)
    (147 47 147 29 7)
    (257 57 288 20 7)
    (44 118 43 119 7)
    (43 119 43 120 7)
    (43 120 43 121 7)
    (43 121 42 121 7)
    (42 121 42 122 7)
    (42 122 42 123 7)
    (42 123 42 124 7)
    (42 124 42 125 7)
    (42 125 42 126 7)
    (42 126 42 127 7)
    (42 127 43 127 7)
    (43 127 43 128 7)
    (43 128 43 129 7)
    (43 129 44 130 7)
    (44 130 45 131 7)
    (45 131 45 132 7)
    (45 132 46 132 7)
    (46 132 46 133 7)
    (46 133 47 133 7)
    (47 133 48 134 7)
    (48 134 49 134 7)
    (49 134 49 135 7)
    (49 135 50 135 7)
    (50 135 51 136 7)
    (51 136 52 136 7)
    (52 136 52 137 7)
    (52 137 53 137 7)
    (53 137 54 137 7)
    (54 137 55 137 7)
    (55 137 56 138 7)
    (56 138 57 138 7)
    (57 138 58 138 7)
    (58 138 59 138 7)
    (59 138 60 138 7)
    (60 138 60 139 7)
    (60 139 61 139 7)
    (61 139 62 139 7)
    (62 139 63 139 7)
    (63 139 64 139 7)
    (64 139 65 139 7)
    (65 139 66 139 7)
    (66 139 67 139 7)
    (67 139 68 138 7)
    (68 138 69 138 7)
    (69 138 70 138 7)
    (70 138 71 138 7)
    (71 138 72 138 7)
    (72 138 73 137 7)
    (73 137 74 137 7)
    (74 137 75 137 7)
    (75 137 76 136 7)
    (76 136 77 136 7)
    (77 136 78 135 7)
    (78 135 79 135 7)
    (79 135 79 134 7)
    (79 134 80 134 7)
    (80 134 81 133 7)
    (81 133 82 133 7)
    (82 133 82 132 7)
    (82 132 83 132 7)
    (83 132 83 131 7)
    (83 131 84 131 7)
    (84 131 84 130 7)
    (84 130 85 129 7)
    (85 129 85 128 7)
    (85 128 86 127 7)
    (86 127 86 126 7)
    (86 126 86 125 7)
    (86 125 86 124 7)
    (86 124 87 123 7)
    (87 123 86 123 7)
    (86 123 86 122 7)
    (86 122 86 121 7)
    (86 121 86 120 7)
    (86 120 86 119 7)
    (86 119 85 118 7)
    (85 118 85 117 7)
    (85 117 84 117 7)
    (84 117 84 116 7)
    (84 116 83 115 7)
    (83 115 82 115 7)
    (82 115 82 114 7)
    (82 114 81 113 7)
    (81 113 80 113 7)
    (80 113 80 112 7)
    (80 112 79 112 7)
    (79 112 78 111 7)
    (78 111 77 111 7)
    (77 111 76 111 7)
    (76 111 76 110 7)
    (76 110 75 110 7)
    (75 110 74 110 7)
    (74 110 73 109 7)
    (73 109 72 109 7)
    (72 109 71 109 7)
    (71 109 70 109 7)
    (70 109 69 109 7)
    (69 109 68 109 7)
    (68 109 67 108 7)
    (67 108 66 108 7)
    (66 108 65 108 7)
    (65 108 64 108 7)
    (64 108 63 108 7)
    (63 108 62 108 7)
    (62 108 61 109 7)
    (61 109 60 109 7)
    (60 109 59 109 7)
    (59 109 58 109 7)
    (58 109 57 109 7)
    (57 109 56 110 7)
    (56 110 55 110 7)
    (55 110 54 110 7)
    (54 110 53 110 7)
    (53 110 53 111 7)
    (53 111 52 111 7)
    (52 111 51 112 7)
    (51 112 50 112 7)
    (50 112 49 113 7)
    (49 113 48 113 7)
    (48 113 48 114 7)
    (48 114 47 114 7)
    (47 114 47 115 7)
    (47 115 46 115 7)
    (46 115 45 116 7)
    (45 116 45 117 7)
    (45 117 44 117 7)
    (44 117 44 118 7)
    (166 95 165 95 7)
    (165 95 164 95 7)
    (164 95 163 95 7)
    (163 95 162 95 7)
    (162 95 161 95 7)
    (161 95 160 95 7)
    (160 95 159 95 7)
    (159 95 158 95 7)
    (158 95 157 95 7)
    (157 95 156 95 7)
    (156 95 155 95 7)
    (155 95 154 95 7)
    (154 95 153 95 7)
    (153 95 152 95 7)
    (152 95 152 96 7)
    (152 96 151 96 7)
    (151 96 150 96 7)
    (150 96 149 96 7)
    (149 96 148 96 7)
    (148 96 147 96 7)
    (147 96 146 96 7)
    (146 96 145 96 7)
    (145 96 144 97 7)
    (144 97 143 97 7)
    (143 97 142 97 7)
    (142 97 141 97 7)
    (141 97 140 97 7)
    (140 97 140 98 7)
    (140 98 139 98 7)
    (139 98 138 98 7)
    (138 98 137 98 7)
    (137 98 136 99 7)
    (136 99 135 99 7)
    (135 99 134 99 7)
    (134 99 133 100 7)
    (133 100 132 100 7)
    (132 100 131 100 7)
    (131 100 131 101 7)
    (131 101 130 101 7)
    (130 101 129 101 7)
    (129 101 128 102 7)
    (128 102 127 102 7)
    (127 102 127 103 7)
    (127 103 126 103 7)
    (126 103 125 104 7)
    (125 104 124 104 7)
    (124 104 124 105 7)
    (124 105 123 105 7)
    (123 105 122 106 7)
    (122 106 122 107 7)
    (122 107 121 107 7)
    (121 107 121 108 7)
    (121 108 120 108 7)
    (120 108 120 109 7)
    (120 109 120 110 7)
    (120 110 119 110 7)
    (119 110 119 111 7)
    (119 111 119 112 7)
    (119 112 119 113 7)
    (119 113 119 114 7)
    (119 114 119 115 7)
    (119 115 120 115 7)
    (120 115 120 116 7)
    (120 116 120 117 7)
    (120 117 121 117 7)
    (121 117 121 118 7)
    (121 118 122 119 7)
    (122 119 123 119 7)
    (123 119 123 120 7)
    (123 120 124 121 7)
    (124 121 125 121 7)
    (125 121 125 122 7)
    (125 122 126 122 7)
    (126 122 127 123 7)
    (127 123 128 123 7)
    (128 123 128 124 7)
    (128 124 129 124 7)
    (129 124 130 124 7)
    (130 124 130 125 7)
    (130 125 131 125 7)
    (131 125 132 125 7)
    (132 125 133 126 7)
    (133 126 134 126 7)
    (134 126 135 127 7)
    (135 127 136 127 7)
    (136 127 137 127 7)
    (137 127 138 127 7)
    (138 127 138 128 7)
    (138 128 139 128 7)
    (139 128 140 128 7)
    (140 128 141 128 7)
    (141 128 142 129 7)
    (142 129 143 129 7)
    (143 129 144 129 7)
    (144 129 145 129 7)
    (145 129 146 129 7)
    (146 129 146 130 7)
    (146 130 147 130 7)
    (147 130 148 130 7)
    (148 130 149 130 7)
    (149 130 150 130 7)
    (150 130 151 130 7)
    (151 130 152 130 7)
    (152 130 153 131 7)
    (153 131 154 131 7)
    (154 131 155 131 7)
    (155 131 156 131 7)
    (156 131 157 131 7)
    (157 131 158 131 7)
    (158 131 159 131 7)
    (159 131 160 131 7)
    (160 131 161 131 7)
    (161 131 162 131 7)
    (162 131 163 131 7)
    (163 131 164 131 7)
    (164 131 165 131 7)
    (165 131 166 131 7)
    (166 131 167 131 7)
    (167 131 168 131 7)
    (168 131 169 131 7)
    (169 131 170 131 7)
    (170 131 171 131 7)
    (171 131 172 131 7)
    (172 131 173 131 7)
    (173 131 174 131 7)
    (174 131 175 131 7)
    (175 131 176 131 7)
    (176 131 177 131 7)
    (177 131 178 131 7)
    (178 131 179 131 7)
    (179 131 180 131 7)
    (180 131 180 130 7)
    (180 130 181 130 7)
    (181 130 182 130 7)
    (182 130 183 130 7)
    (183 130 184 130 7)
    (184 130 185 130 7)
    (185 130 186 130 7)
    (186 130 187 129 7)
    (187 129 188 129 7)
    (188 129 189 129 7)
    (189 129 190 129 7)
    (190 129 191 128 7)
    (191 128 192 128 7)
    (192 128 193 128 7)
    (193 128 194 127 7)
    (194 127 195 127 7)
    (195 127 196 127 7)
    (196 127 197 127 7)
    (197 127 197 126 7)
    (197 126 198 126 7)
    (198 126 199 126 7)
    (199 126 200 125 7)
    (200 125 201 125 7)
    (201 125 201 124 7)
    (201 124 202 124 7)
    (202 124 203 124 7)
    (203 124 203 123 7)
    (203 123 204 123 7)
    (204 123 205 123 7)
    (205 123 205 122 7)
    (205 122 206 121 7)
    (206 121 207 121 7)
    (207 121 207 120 7)
    (207 120 208 120 7)
    (208 120 208 119 7)
    (208 119 209 119 7)
    (209 119 209 118 7)
    (209 118 210 117 7)
    (210 117 210 116 7)
    (210 116 210 115 7)
    (210 115 211 114 7)
    (211 114 211 113 7)
    (211 113 210 113 7)
    (210 113 210 112 7)
    (210 112 210 111 7)
    (210 111 210 110 7)
    (210 110 209 110 7)
    (209 110 209 109 7)
    (209 109 209 108 7)
    (209 108 208 108 7)
    (208 108 207 107 7)
    (207 107 207 106 7)
    (207 106 206 106 7)
    (206 106 205 105 7)
    (205 105 204 105 7)
    (204 105 204 104 7)
    (204 104 203 104 7)
    (203 104 202 103 7)
    (202 103 201 103 7)
    (201 103 201 102 7)
    (201 102 200 102 7)
    (200 102 199 101 7)
    (199 101 198 101 7)
    (198 101 197 101 7)
    (197 101 196 100 7)
    (196 100 195 100 7)
    (195 100 194 99 7)
    (194 99 193 99 7)
    (193 99 192 99 7)
    (192 99 191 99 7)
    (191 99 191 98 7)
    (191 98 190 98 7)
    (190 98 189 98 7)
    (189 98 188 98 7)
    (188 98 187 98 7)
    (187 98 187 97 7)
    (187 97 186 97 7)
    (186 97 185 97 7)
    (185 97 184 97 7)
    (184 97 183 97 7)
    (183 97 182 97 7)
    (182 97 182 96 7)
    (182 96 181 96 7)
    (181 96 180 96 7)
    (180 96 179 96 7)
    (179 96 178 96 7)
    (178 96 177 96 7)
    (177 96 176 96 7)
    (176 96 175 96 7)
    (175 96 174 95 7)
    (174 95 173 95 7)
    (173 95 172 95 7)
    (172 95 171 95 7)
    (171 95 170 95 7)
    (170 95 169 95 7)
    (169 95 168 95 7)
    (168 95 167 95 7)
    (167 95 166 95 7)
    (296 86 295 85 7)
    (295 85 295 84 7)
    (295 84 294 84 7)
    (294 84 294 83 7)
    (294 83 293 83 7)
    (293 83 293 82 7)
    (293 82 292 82 7)
    (292 82 291 82 7)
    (291 82 290 82 7)
    (290 82 289 81 7)
    (289 81 288 81 7)
    (288 81 287 81 7)
    (287 81 286 82 7)
    (286 82 285 82 7)
    (285 82 284 82 7)
    (284 82 283 83 7)
    (283 83 282 84 7)
    (282 84 281 84 7)
    (281 84 281 85 7)
    (281 85 281 86 7)
    (281 86 281 87 7)
    (281 87 281 88 7)
    (281 88 282 89 7)
    (282 89 283 90 7)
    (283 90 284 90 7)
    (284 90 284 91 7)
    (284 91 285 91 7)
    (285 91 286 91 7)
    (286 91 287 91 7)
    (287 91 288 91 7)
    (288 91 289 91 7)
    (289 91 290 91 7)
    (290 91 291 91 7)
    (291 91 292 91 7)
    (292 91 293 90 7)
    (293 90 294 90 7)
    (294 90 294 89 7)
    (294 89 295 89 7)
    (295 89 295 88 7)
    (295 88 295 87 7)
    (295 87 296 87 7)
    (296 87 296 86 7)
    (32 169 78 200 7)
    (162 201 202 173 7)
    (256 166 303 192 7)
   )
)

wzg356

这里东西理解原理就自己慢慢的检查吧，读代码费神

USER2128

wpixel cols
hpixel rows
没有附值

皇上快溜

USER2128 发表于 2020-10-20 08:13
wpixel cols
hpixel rows
没有附值

谢谢你啊，弄了好久，没注意到这个