乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 89|回复： 9

[编程交流] Grread+RGB

[复制链接]
Grrr

66

主题

1552

帖子

1514

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
325
发表于 2022-7-5 17:38:31 | 显示全部楼层 |阅读模式
大家好，
在theswamp论坛上阅读了一篇关于GRREAD使用的很长的帖子后，我发现使用它是用户直觉的问题。
另一方面，我决定建立自己的调色板（只是一堆不同真彩色的实心图案填充）。我不得不说，为N色托盘构建“相似”的匹配颜色并不容易（即使是在浏览acad的调色板时）。一切都是基于直觉的，取决于调色板必须有多少颜色，没有一种颜色比其他颜色更突出（通过更暗或更亮）。
我不确定你们是否理解我写的内容，
但是我要说的是，用N种颜色构建自定义调色板的最简单方法是用GRREAD。例如：
1、获取选择集
2.将ss中所有对象的颜色更改为True Color
3.按下R G和B键，然后[+/-]RGB值随着1个单位的增量近似变化
假设起始颜色为0,0,0-按R并更改+键五次，B+31次后，颜色将动态更改为5,0,31
这种方法很容易使相邻的两个或多个图案填充的颜色兼容，其中一个是“动态着色”。
虽然我没有GRREAD的经验，而且它似乎很难使用。也许我会把这条线索作为一个想法留给别人考虑。
回复

使用道具 举报

Grrr

66

主题

1552

帖子

1514

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
325
发表于 2022-7-5 17:49:27 | 显示全部楼层
仍然没有回复，但那又怎样。以下是我的想法：
  1. ; Grrr
  2. ; got the original grread example from: CAB, posted by fixo
  3. ; Grread + RGB
  4. ; 1. Select objects to change their truecolour
  5. ; 2. Specify colour increment value
  6. ; 3. Press [R/G/B] keys to manipulate the truecolor of the selection, [T] for transparency, [X] key to exit, [TAB] to reverse the increment
  8. (defun C:Grread+RGB ( / go SS ent vla-obj oColor tRed tGreen tBlue tTransparency oldcmdecho inc check)
  10. (defun *error* ( msg )
  11.         (if loopFlag (setq loopFlag nil))
  12.         (if go (setq go nil))
  13.         (if oldcmdecho (setvar 'CMDECHO oldcmdecho))
  14.         (if (not (member msg '("Function cancelled" "quit / exit abort")))
  15.                 (princ (strcat "\nError: " msg))
  16.         )
  17.         (princ)
  18. )
  20. (setq oldcmdecho (getvar 'CMDECHO))
  21. (setvar 'CMDECHO 0)
  23. (setq check T)
  24. (if (not inc) (setq inc 5))
  25. (initget (+ 2 4))
  27. (while check
  28.         (setq inc (cond ((getint (strcat "\nSpecify colour increment value:  <" (itoa inc) ">: "))) ( inc )))
  29.         (cond
  30.                 ( (>= inc 255)
  31.                         (princ "\nThe increment must be below 255 !")
  32.                 )
  33.                 ( (<= inc 0)
  34.                         (princ "\nThe increment must be above 0 !")
  35.                 )
  36.                 (T
  37.                         (setq check nil)
  38.                 )
  39.         )
  40. );while
  41. (if (not inc) (setq inc 5))
  43. (setq go T)
  44. (while go
  45.         (if
  46.                 (and
  47.                         (princ "\nSelect objects to change their truecolour: ")
  48.                         (setq SS (ssget "_:L"))
  49.                 )
  50.                 (progn                        
  51.                         
  52.                         
  53.                         (setq tRed 0)
  54.                         (setq tGreen 0)
  55.                         (setq tBlue 0)
  56.                         (setq tTransparency 0)
  57.                         
  58.                         (princ "\nPress [R/G/B] keys to manipulate the truecolor of the selection, [T] for transparency, [X] key to exit, [TAB] to reverse the increment") 
  59.                         (setq LoopFlag T)
  60.                         (while LoopFlag
  61.                                 (setq UserIn (grread))
  62.                                 (setq ReturnChar (cadr UserIn))
  63.                                 
  64.                                 (cond
  65.                                         ((= ReturnChar 114) ; R
  66.                                                 (setq go nil)
  67.                                                 (setq tRed (+ tRed inc))
  68.                                                 (if (> tRed 255) (setq tRed 0))
  69.                                                 (if (< tRed 0) (setq tRed 255))
  70.                                                 (repeat (setq i (sslength SS)) ; iterate trought selection
  71.                                                         (setq ent (ssname SS (setq i (1- i)))) ; current entity
  72.                                                         (setq vla-obj (vlax-ename->vla-object ent))
  73.                                                         
  74.                                                         (if (vlax-property-available-p vla-obj "TrueColor" T)
  75.                                                                 (progn
  76.                                                                         (setq oColor (vlax-get-property vla-obj 'TrueColor))
  77.                                                                         (vlax-invoke-method oColor 'SetRGB tRed tGreen tBlue) 
  78.                                                                         (vlax-put-property vla-obj 'TrueColor oColor) 
  79.                                                                         (vla-update vla-obj)
  80.                                                                 )
  81.                                                         );if
  82.                                                         
  83.                                                 ); repeat
  84.                                                 (princ 
  85.                                                         (strcat
  86.                                                                 "\n[R]ed:" (itoa (vlax-get-property oColor 'Red))
  87.                                                                 ", [G]reen:" (itoa (vlax-get-property oColor 'GREEN))
  88.                                                                 ", [b]lue:" (itoa (vlax-get-property oColor 'BLUE))
  89.                                                                 ", [T]ransparency:" (itoa tTransparency)
  90.                                                                 ", press [X] to exit, [TAB] to reverse the increment "
  91.                                                         )
  92.                                                 )
  93.                                         ) ; R
  94.                                         ((= ReturnChar 103) ; G
  95.                                                 (setq go nil)
  96.                                                 (setq tGreen (+ tGreen inc))
  97.                                                 (if (> tGreen 255) (setq tGreen 0))
  98.                                                 (if (< tGreen 0) (setq tGreen 255))
  99.                                                 (repeat (setq i (sslength SS)) ; iterate trought selection
  100.                                                         (setq ent (ssname SS (setq i (1- i)))) ; current entity
  101.                                                         (setq vla-obj (vlax-ename->vla-object ent))
  102.                                                         
  103.                                                         (if (vlax-property-available-p vla-obj "TrueColor" T)
  104.                                                                 (progn
  105.                                                                         (setq oColor (vlax-get-property vla-obj 'TrueColor))
  106.                                                                         (vlax-invoke-method oColor 'SetRGB tRed tGreen tBlue) 
  107.                                                                         (vlax-put-property vla-obj 'TrueColor oColor) 
  108.                                                                         (vla-update vla-obj)
  109.                                                                 )
  110.                                                         );if
  111.                                                         
  112.                                                 ); repeat
  113.                                                 (princ 
  114.                                                         (strcat
  115.                                                                 "\n[R]ed:" (itoa (vlax-get-property oColor 'Red))
  116.                                                                 ", [G]reen:" (itoa (vlax-get-property oColor 'GREEN))
  117.                                                                 ", [b]lue:" (itoa (vlax-get-property oColor 'BLUE))
  118.                                                                 ", [T]ransparency:" (itoa tTransparency)
  119.                                                                 ", press [X] to exit, [TAB] to reverse the increment "
  120.                                                         )
  121.                                                 )
  122.                                         ) ; G
  123.                                         ((= ReturnChar 98) ; B
  124.                                                 (setq go nil)
  125.                                                 (setq tBlue (+ tBlue inc))
  126.                                                 (if (> tBlue 255) (setq tBlue 0))
  127.                                                 (if (< tBlue 0) (setq tBlue 255))
  128.                                                 (repeat (setq i (sslength SS)) ; iterate trought selection
  129.                                                         (setq ent (ssname SS (setq i (1- i)))) ; current entity
  130.                                                         (setq vla-obj (vlax-ename->vla-object ent))
  131.                                                         
  132.                                                         (if (vlax-property-available-p vla-obj "TrueColor" T)
  133.                                                                 (progn
  134.                                                                         (setq oColor (vlax-get-property vla-obj 'TrueColor))
  135.                                                                         (vlax-invoke-method oColor 'SetRGB tRed tGreen tBlue) 
  136.                                                                         (vlax-put-property vla-obj 'TrueColor oColor) 
  137.                                                                         (vla-update vla-obj)
  138.                                                                 )
  139.                                                         );if
  140.                                                         
  141.                                                 ); repeat
  142.                                                 (princ 
  143.                                                         (strcat
  144.                                                                 "\n[R]ed:" (itoa (vlax-get-property oColor 'Red))
  145.                                                                 ", [G]reen:" (itoa (vlax-get-property oColor 'GREEN))
  146.                                                                 ", [b]lue:" (itoa (vlax-get-property oColor 'BLUE))
  147.                                                                 ", [T]ransparency:" (itoa tTransparency)
  148.                                                                 ", press [X] to exit, [TAB] to reverse the increment "
  149.                                                         )
  150.                                                 )
  151.                                         ) ; B
  152.                                         ((= ReturnChar 116) ; T
  153.                                                 (setq go nil)
  154.                                                 (setq tTransparency (+ tTransparency inc))
  155.                                                 (if (> tTransparency 90) (setq tTransparency 0))
  156.                                                 (if (< tTransparency 0) (setq tTransparency 90))
  157.                                                 (repeat (setq i (sslength SS)) ; iterate trought selection
  158.                                                         (setq ent (ssname SS (setq i (1- i)))) ; current entity
  159.                                                         (setq vla-obj (vlax-ename->vla-object ent))
  160.                                                         
  161.                                                         (if (vlax-property-available-p vla-obj "EntityTransparency" T)
  162.                                                                 (progn
  163.                                                                         (vlax-put-property vla-obj 'EntityTransparency tTransparency) 
  164.                                                                         (vla-update vla-obj)
  165.                                                                 )
  166.                                                         );if
  167.                                                         
  168.                                                 ); repeat
  169.                                                 (princ 
  170.                                                         (strcat
  171.                                                                 "\n[R]ed:" (itoa (vlax-get-property oColor 'Red))
  172.                                                                 ", [G]reen:" (itoa (vlax-get-property oColor 'GREEN))
  173.                                                                 ", [b]lue:" (itoa (vlax-get-property oColor 'BLUE))
  174.                                                                 ", [T]ransparency:" (itoa tTransparency)
  175.                                                                 ", press [X] to exit, [TAB] to reverse the increment  "
  176.                                                         )
  177.                                                 )
  178.                                         ) ; T
  179.                                         ; ((= ReturnChar 43) ; +
  180.                                         ; (setq go nil)
  181.                                         ; (if (< inc 0) (setq inc (* inc -1)))
  182.                                         ; (princ 
  183.                                         ; (strcat
  184.                                         ; "\n[R]ed:" (itoa (vlax-get-property oColor 'Red))
  185.                                         ; ", [G]reen:" (itoa (vlax-get-property oColor 'GREEN))
  186.                                         ; ", [b]lue:" (itoa (vlax-get-property oColor 'BLUE))
  187.                                         ; ", [T]ransparency:" (itoa tTransparency)
  188.                                         ; ", press [X] to exit, Increment is set to positive! "
  189.                                         ; )
  190.                                         ; )
  191.                                         ; ) ; +
  192.                                         ; ((= ReturnChar 45) ; -
  193.                                         ; (setq go nil)
  194.                                         ; (if (> inc 0) (setq inc (* inc -1)))
  195.                                         ; (princ 
  196.                                         ; (strcat
  197.                                         ; "\n[R]ed:" (itoa (vlax-get-property oColor 'Red))
  198.                                         ; ", [G]reen:" (itoa (vlax-get-property oColor 'GREEN))
  199.                                         ; ", [b]lue:" (itoa (vlax-get-property oColor 'BLUE))
  200.                                         ; ", [T]ransparency:" (itoa tTransparency)
  201.                                         ; ", press [X] to exit, Increment is set to negative! "
  202.                                         ; )
  203.                                         ; )
  204.                                         ; ) ; -
  205.                                         ((= ReturnChar 9) ; TAB
  206.                                                 (setq go nil)
  207.                                                 (cond
  208.                                                         ( (> inc 0)
  209.                                                                 (setq inc (* inc -1))
  210.                                                                 (princ 
  211.                                                                         (strcat
  212.                                                                                 "\n[R]ed:" (itoa (vlax-get-property oColor 'Red))
  213.                                                                                 ", [G]reen:" (itoa (vlax-get-property oColor 'GREEN))
  214.                                                                                 ", [b]lue:" (itoa (vlax-get-property oColor 'BLUE))
  215.                                                                                 ", [T]ransparency:" (itoa tTransparency)
  216.                                                                                 ", press [X] to exit, Increment switched to negative! "
  217.                                                                         )
  218.                                                                 )
  219.                                                         )
  220.                                                         ( (< inc 0)
  221.                                                                 (setq inc (* inc -1))
  222.                                                                 (princ 
  223.                                                                         (strcat
  224.                                                                                 "\n[R]ed:" (itoa (vlax-get-property oColor 'Red))
  225.                                                                                 ", [G]reen:" (itoa (vlax-get-property oColor 'GREEN))
  226.                                                                                 ", [b]lue:" (itoa (vlax-get-property oColor 'BLUE))
  227.                                                                                 ", [T]ransparency:" (itoa tTransparency)
  228.                                                                                 ", press [X] to exit, Increment switched to positive! "
  229.                                                                         )
  230.                                                                 )
  231.                                                         )
  232.                                                 );cond
  233.                                         ) ; TAB
  234.                                         (T (setq go nil))
  235.                                 );cond
  236.                                 (if (= ReturnChar 120) ; X key to exit
  237.                                         (progn
  238.                                                 (if loopFlag (setq loopFlag nil))
  239.                                                 (setq go T)
  240.                                                 (setvar 'CMDECHO oldcmdecho)
  241.                                                 (princ "\nX key is pressed, command interrupted by user")
  242.                                         )
  243.                                 );if
  244.                         );while
  245.                 );progn
  246.         );if
  247. );while go
  248. (princ)
  249. );defun

我很好奇grread是如何工作的，但我很幸运地从CAB找到了一个简单的例子！
如果有任何想法，请分享。
 
编辑：
我在这个帖子中引用了他的代码http://www.cadtutor.net/forum/showthread.php?21545-fixo提供的Arrow-keys-in-a-LISP-ROUTE[#8 post]。
编辑2：
稍微修改了上面的代码，所以整个过程都是循环的——按X键，再次提示用户进行选择。其他想法是通过按T键添加透明度更改选项。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 17:54:20 | 显示全部楼层
下面是另一种需要考虑的方法：
  2. ([color=BLUE]defun[/color] c:rgb ( [color=BLUE]/[/color] b g i l r s x )
  3.    ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color]))
  4.        ([color=BLUE]progn[/color]
  5.            ([color=BLUE]setq[/color] r 0 g 0 b 0)
  6.            ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] s))
  7.                ([color=BLUE]setq[/color] l ([color=BLUE]cons[/color] ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] s ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i)))) l))
  8.            )
  9.            ([color=BLUE]while[/color]
  10.                ([color=BLUE]and[/color] ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\r[R]ed: "[/color] ([color=BLUE]itoa[/color] r) [color=MAROON]" | [G]reen: "[/color] ([color=BLUE]itoa[/color] g) [color=MAROON]" | [b]lue: "[/color] ([color=BLUE]itoa[/color] b)))
  11.                     ([color=BLUE]=[/color] 2 ([color=BLUE]car[/color] ([color=BLUE]setq[/color] x ([color=BLUE]grread[/color] [color=BLUE]nil[/color] 10))))
  12.                     ([color=BLUE]vl-some[/color]
  13.                         '([color=BLUE]lambda[/color] ( l s ) ([color=BLUE]if[/color] ([color=BLUE]member[/color] ([color=BLUE]cadr[/color] x) l) ([color=BLUE]set[/color] s ([color=BLUE]rem[/color] ([color=BLUE]1+[/color] ([color=BLUE]eval[/color] s)) 256))))
  14.                         '((114 82) (103 71) (98 66))
  15.                         '(r g b)
  16.                     )
  17.                )
  18.                (    ([color=BLUE]lambda[/color] ( c ) ([color=BLUE]foreach[/color] x l ([color=BLUE]entmod[/color] ([color=BLUE]append[/color] x c))))
  19.                     ([color=BLUE]list[/color] ([color=BLUE]cons[/color] 420 ([color=BLUE]logior[/color] ([color=BLUE]lsh[/color] r 16) ([color=BLUE]lsh[/color] g  b)))
  20.                )
  21.            )
  22.        )
  23.    )
  24.    ([color=BLUE]princ[/color])
  25. )
回复

使用道具 举报

Grrr

66

主题

1552

帖子

1514

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
325
发表于 2022-7-5 18:03:45 | 显示全部楼层
我很惊讶你的回复速度如此之快，代码缩短了4倍，可能比你在这个论坛上的最后一篇帖子快了20分钟？！
我想借此机会问你，增加透明度是否容易，如果你不能在5-10分钟内做到，我就不必浪费接下来的几天时间了。
此外，我建议-如果你想把这个想法放在你的网站上，因为我不关心我的版权（我是一个独立的起草人-不是一个程序员）。
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-5 18:11:52 | 显示全部楼层
我的方法：
 
  2. (defun c:test  (/ _clr r g b c ss gr x)
  3.  ;; Tharwat - Date: 30.May.2016        ;;
  4.  (if *inc*
  5.    *inc*
  6.    (setq *inc* 5))
  7.  (if (and (setq r 0
  8.                 g 0
  9.                 b 0
  10.                 c (vlax-create-object
  11.                     (strcat "AutoCAD.AcCmColor."
  12.                             (substr (getvar 'acadver) 1 2)))
  13.                 )
  14.           (setq ss (ssget "_:L"))
  15.           (setq *inc*
  16.                  (cond
  17.                    ((getint (strcat "\nSpecify increment value ["
  18.                                     (itoa *inc*)
  19.                                     "]:")))
  20.                    (*inc*)))
  21.           )
  22.    (progn
  23.      (defun _clr  (sel r g b / o i)
  24.        (vla-setrgb c r g b)
  25.        (repeat (setq i (sslength sel))
  26.          (if (vlax-property-available-p
  27.                (setq o (vlax-ename->vla-object
  28.                          (ssname sel (setq i (1- i)))))
  29.                'truecolor)
  30.            (vla-put-truecolor o c)
  31.            )
  32.          )
  33.        )
  34.      (while
  35.        (and (princ (strcat "\rHit any char of these [R,G,B] [R="
  36.                            (itoa r)
  37.                            "/ G="
  38.                            (itoa g)
  39.                            "/ B="
  40.                            (itoa b)
  41.                            "] else to Exit:"))
  42.             (= (car (setq gr (grread nil 10))) 2)
  43.             (vl-position
  44.               (cadr gr)
  45.               '(82 114 71 103 66 98)
  46.               )
  47.             )
  48.         (setq x (cadr gr))
  49.         (cond ((vl-position x '(82 114))
  50.                (if (not (and (setq r (+ r *inc*))
  51.                              (< r 255)
  52.                              )
  53.                         )
  54.                  (setq r 0)))
  55.               ((vl-position x '(71 103))
  56.                (if (not (and (setq g (+ g *inc*))
  57.                              (< g 255)
  58.                              )
  59.                         )
  60.                  (setq g 0)))
  61.               ((vl-position x '(66 98))
  62.                (if (not (and (setq b (+ b *inc*))
  63.                              (< b 255)
  64.                              )
  65.                         )
  66.                  (setq b 0)))
  67.               )
  68.         (_clr ss r g b)
  69.         )
  70.      )
  71.    )
  72.  (princ)
  73.  )(vl-load-com)
回复

使用道具 举报

Grrr

66

主题

1552

帖子

1514

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
325
发表于 2022-7-5 18:18:13 | 显示全部楼层
塔尔瓦特，
我看到你坚持练习，干得好！
你认为透明性问题怎么样，容易吗？
你们两个在列表操作方面都非常先进，我需要花相当长的时间来分析代码中发生了什么。例如，如果你检查我的代码，没有太多（可能是我的代码这么长的原因）。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 18:22:54 | 显示全部楼层
 
当然-尝试以下操作：
  2. ([color=BLUE]defun[/color] c:rgb ( [color=BLUE]/[/color] a b g i l r s x )
  3.    ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color]))
  4.        ([color=BLUE]progn[/color]
  5.            ([color=BLUE]setq[/color] r 0 g 0 b 0 a 0)
  6.            ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] s))
  7.                ([color=BLUE]setq[/color] l ([color=BLUE]cons[/color] ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] s ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i)))) l))
  8.            )
  9.            ([color=BLUE]while[/color]
  10.                ([color=BLUE]and[/color] ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\r[R]ed: "[/color] ([color=BLUE]itoa[/color] r) [color=MAROON]" | [G]reen: "[/color] ([color=BLUE]itoa[/color] g) [color=MAROON]" | [b]lue: "[/color] ([color=BLUE]itoa[/color] b) [color=MAROON]" | [T]ransparency: "[/color] ([color=BLUE]itoa[/color] a)))
  11.                     ([color=BLUE]=[/color] 2 ([color=BLUE]car[/color] ([color=BLUE]setq[/color] x ([color=BLUE]grread[/color] [color=BLUE]nil[/color] 10))))
  12.                     ([color=BLUE]vl-some[/color]
  13.                         '([color=BLUE]lambda[/color] ( l s u ) ([color=BLUE]if[/color] ([color=BLUE]member[/color] ([color=BLUE]cadr[/color] x) l) ([color=BLUE]set[/color] s ([color=BLUE]rem[/color] ([color=BLUE]1+[/color] ([color=BLUE]eval[/color] s)) u))))
  14.                         '((114 82) (103 71) (98 66) (116 84))
  15.                         '(r g b a)
  16.                         '(256 256 256 91)
  17.                     )
  18.                )
  19.                (    ([color=BLUE]lambda[/color] ( c a ) ([color=BLUE]foreach[/color] x l ([color=BLUE]entmod[/color] ([color=BLUE]append[/color] x c a))))
  20.                     ([color=BLUE]list[/color] ([color=BLUE]cons[/color] 420 ([color=BLUE]logior[/color] ([color=BLUE]lsh[/color] r 16) ([color=BLUE]lsh[/color] g  b)))
  21.                     ([color=BLUE]list[/color] ([color=BLUE]cons[/color] 440 ([color=BLUE]logior[/color] ([color=BLUE]fix[/color] ([color=BLUE]*[/color] 2.55 ([color=BLUE]-[/color] 100 a))) 33554432)))
  22.                )
  23.            )
  24.        )
  25.    )
  26.    ([color=BLUE]princ[/color])
  27. )
回复

使用道具 举报

Grrr

66

主题

1552

帖子

1514

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
325
发表于 2022-7-5 18:29:35 | 显示全部楼层
谢谢你，李！
由于它的复杂性，我没有想到这个线程会收到任何带有解决方案的回复。尽管如此，我还是很幸运找到了CAB的代码（对于像我这样的未过期的grread人来说，这是一个很好的模板）。
想想我在之前的回复中提出的建议，这个例程可以在全球范围内使用。
 
塔尔瓦特，
我会考虑下一个想法/问题，这样我们可以继续练习。但我会花时间学习直到它出现。
 
干得好，伙计们！
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-5 18:34:49 | 显示全部楼层
您好，Grrr，
不客气。
 
虽然我的代码可以减少，但我很高兴编写这样的例程，这似乎与正常的日常工作有所不同，但我急于从家中发布代码，因为时间太晚了，我几乎没有完成代码的编写，并立即上床睡觉。
回复

使用道具 举报

Grrr

66

主题

1552

帖子

1514

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
325
发表于 2022-7-5 18:41:03 | 显示全部楼层
我在帖子#2中修改了代码，添加了一些选项，并检查了可能的错误。
我对grread有一些额外的想法，稍后我会在论坛上发布我的代码尝试。你们可能会发现它们很有用，并分享你们的方法！
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-13 03:15 , Processed in 0.641173 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表