[编程交流] grRead函数

(setq [color=red]gr2[/color] ([color=blue]grRed[/color] (setq [color=#ff0000]gr1[/color] ([color=blue]grRead[/color]))))

(while
   (and (not (member (setq [color=red]gr2[/color] (grRead (setq [color=red]gr1[/color] ([color=blue]grRead[/color])) 15 0)
                        vt (cadr gr)  cd (car gr)) '(3 25)) ) ; 3=Click L, 25=Click R : key
          (not (member vt '(13 32)) )  ) ; Enter , Space key
  (princ "\n   Gr1 : ") (princ gr1)
  (princ "\n   Gr2 : ") (princ gr2) 
)

(setq v (vlax-get (setq htmlfile (vlax-create-object "htmlfile"))  'ParentWindow) )
#<VLA-OBJECT DispHTMLWindow2 000000002b83af70>
_$ (vlax-dump-object v t)
; DispHTMLWindow2: nil
; Property values:
;   applicationCache (RO) = #<VLA-OBJECT IHTMLApplicationCache 000000002bb22430>
;   clientInformation (RO) = #<VLA-OBJECT DispHTMLNavigator 000000002bbbd5b0>
;   clipboardData (RO) = #<VLA-OBJECT IHTMLDataTransfer 000000002bc06fa0>
;   closed (RO) = -1
;   defaultStatus = ""
;   document (RO) = #<VLA-OBJECT DispHTMLDocument 000000002bb63e70>
;   event (RO) = nil
;   external (RO) = nil
;   frameElement (RO) = nil
;   frames (RO) = #<VLA-OBJECT DispHTMLWindow2 000000002bb64140>
;   history (RO) = #<VLA-OBJECT DispHTMLHistory 000000002bb643c0>
;   innerHeight (RO) = 0
;   innerWidth (RO) = 0
;   length (RO) = 0
;   localStorage (RO) = nil
;   location (RO) = #<VLA-OBJECT DispHTMLLocation 000000002bb645f0>
;   maxConnectionsPerServer (RO) = 2
;   name = ""
;   navigator (RO) = #<VLA-OBJECT DispHTMLNavigator 000000002bbbd5b0>
;   offscreenBuffering = "auto"
;   onabort = nil
;   onafterprint = nil
;   onbeforeprint = nil
;   onbeforeunload = nil
;   onblur = nil
;   oncanplay = nil
;   oncanplaythrough = nil
;   onchange = nil
;   onclick = nil
;   oncontextmenu = nil
;   ondblclick = nil
;   ondrag = nil
;   ondragend = nil
;   ondragenter = nil
;   ondragleave = nil
;   ondragover = nil
;   ondragstart = nil
;   ondrop = nil
;   ondurationchange = nil
;   onemptied = nil
;   onended = nil
;   onerror = nil
;   onfocus = nil
;   onfocusin = nil
;   onfocusout = nil
;   onhashchange = nil
;   onhelp = nil
;   oninput = nil
;   onkeydown = nil
;   onkeypress = nil
;   onkeyup = nil
;   onload = nil
;   onloadeddata = nil
;   onloadedmetadata = nil
;   onloadstart = nil
;   onmessage = nil
;   onmousedown = nil
;   onmouseenter = nil
;   onmouseleave = nil
;   onmousemove = nil
;   onmouseout = nil
;   onmouseover = nil
;   onmouseup = nil
;   onmousewheel = nil
;   onmsgesturechange = nil
;   onmsgesturedoubletap = nil
;   onmsgestureend = nil
;   onmsgesturehold = nil
;   onmsgesturestart = nil
;   onmsgesturetap = nil
;   onmsinertiastart = nil
;   onmspointercancel = nil
;   onmspointerdown = nil
;   onmspointerhover = nil
;   onmspointermove = nil
;   onmspointerout = nil
;   onmspointerover = nil
;   onmspointerup = nil
;   onoffline = nil
;   ononline = nil
;   onpause = nil
;   onplay = nil
;   onplaying = nil
;   onpopstate = nil
;   onprogress = nil
;   onratechange = nil
;   onreadystatechange = nil
;   onreset = nil
;   onresize = nil
;   onscroll = nil
;   onseeked = nil
;   onseeking = nil
;   onselect = nil
;   onstalled = nil
;   onstorage = nil
;   onsubmit = nil
;   onsuspend = nil
;   ontimeupdate = nil
;   onunload = nil
;   onvolumechange = nil
;   onwaiting = nil
;   opener = nil
;   outerHeight (RO) = Unspecified error.
;   outerWidth (RO) = Unspecified error.
;   pageXOffset (RO) = 0
;   pageYOffset (RO) = 0
;   parent (RO) = #<VLA-OBJECT DispHTMLWindow2 000000002bb646e0>
;   performance = #<VLA-OBJECT DispHTMLPerformance 000000002bbfdbd0>
;   screen (RO) = #<VLA-OBJECT DispHTMLScreen 000000002bbbf5e0>
;   screenLeft (RO) = 0
;   screenTop (RO) = 0
;   screenX (RO) = Unspecified error.
;   screenY (RO) = Unspecified error.
;   self (RO) = #<VLA-OBJECT DispHTMLWindow2 000000002bb64460>
;   sessionStorage (RO) = nil
;   status = ""
;   styleMedia (RO) = #<VLA-OBJECT DispHTMLStyleMedia 000000002bb64370>
;   top (RO) = #<VLA-OBJECT DispHTMLWindow2 000000002bb64230>
;   window (RO) = #<VLA-OBJECT DispHTMLWindow2 000000002bb644b0>
; Methods supported:
;   addEventListener (3)
;   alert (1)
;   attachEvent (2)
;   blur ()
;   clearInterval (1)
;   clearTimeout (1)
;   close ()
;   confirm (1)
;   createPopup (1)
;   detachEvent (2)
;   dispatchEvent (1)
;   execScript (2)
;   focus ()
;   getComputedStyle (2)
;   getSelection ()
;   item (1)
;   moveBy (2)
;   moveTo (2)
;   msWriteProfilerMark (1)
;   navigate (1)
;   open (4)
;   postMessage (2)
;   print ()
;   prompt (2)
;   removeEventListener (3)
;   resizeBy (2)
;   resizeTo (2)
;   scroll (2)
;   scrollBy (2)
;   scrollTo (2)
;   setInterval (3)
;   setTimeout (3)
;   showHelp (3)
;   showModalDialog (3)
;   showModelessDialog (3)
;   toStaticHTML (1)
;   toString ()
T