Costinbos77 发表于 2022-7-5 23:26:58

grRead函数

嘿，伙计们！
 
有人知道如何使用grRead功能获取拖动坐标吗？只要按下鼠标左键就可以了？
 
我试过：


(setq gr2 (grRed (setq gr1 (grRead))))


 
 

(while
   (and (not (member (setq gr2 (grRead (setq gr1 (grRead)) 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)
)


 
 
而且不起作用。
 
鼠标左键单击的代码是3。但是，怎样才能知道它被压了多久呢？
 
 
谢谢你的帮助。

Tharwat 发表于 2022-7-5 23:37:08

由于OP在第一篇文章中的修改而删除

Costinbos77 发表于 2022-7-5 23:49:37

尝试3dOrbit命令，您将看到只有当按下鼠标左键时，才会旋转图像。
 
有人尝试过为这个命令编写lisp代码吗？

Hippe013 发表于 2022-7-5 23:57:52

你到底想完成什么？你们先讨论拖动，然后讨论三维动态观察。

Costinbos77 发表于 2022-7-6 00:16:53

我给出了示例3dOrbit命令，该命令仅在按下鼠标左键时有效。
 
在构建自己的命令3dOrbit时，我想使用函数grread。
我在哪里，试过这个：#23
 
http://www.cadtutor.net/forum/showthread.php?74668-帮助-3D-terrain-model-DTM/第3页

Hippe013 发表于 2022-7-6 00:18:59

我相信您只需将命令添加到CUI中的适当位置。这是控制鼠标左键的地方。
 
当做
 
Hippe013
 
 
呃嗯。。。。没有关系。我知道你想做什么。。。。

Costinbos77 发表于 2022-7-6 00:34:58

你好
 
如果仍然按下鼠标左键，有人知道如何使用AutoLISP查找吗？因为如果可以访问剪贴板中的信息，也可以是这样。
 
 

(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

 
 
提前感谢，
 
Costin
页: [1]
查看完整版本: grRead函数