高版本CAD中空白处双击执行自定义LISP函数的问题
本人不懂反应器，在这个网站找到一段代码，可以实现在CAD中空白处双击执行自定义LISP函数，如下完整代码。自定义的函数是TEMP, 这个代码在ACAD2014中执行的很完美，但是在ACAD2021中有问题，有点时候成功有的时候不成功:(。那位大师给看看。谢谢
;;; 加载双击反应器
(vl-load-com)
(if (not *dblclkReactor*);;0 = 打开反应器
(setq *dblclkReactor*(VLR-Mouse-Reactor nil'((:VLR-beginDoubleClick . dblclkedit)))))
(defun dblclkedit(reactorObject point)
(if dblclk-edit(dblclk-edit point))
)
;;; 自定义双击反应器Double Click Reactor
(defun dblclk-edit (dblclk_point / owner dblclk_etype p)
(setq owner (nentselp (setq p (trans (car dblclk_point) 0 1))));;指定点来选择对象
(if (and (= owner nil) (= 0 (getvar 'cmdactive))) ;_有活动命令时不起作用
(vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3) " temp "))
)
)
(defun c:temp() (alert "ok") (princ))
data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAgsAAAB3CAYAAACNIANdAAAbfElEQVR4nO3dLY/qUIA+8IfNfoxpUoPArFpBSUgw2DoEJAhIsAgcCAQCHKLJKhIQJEXgajEkk7R8AwSmSfkG+//rrjh9p5TyNncu9/klk9wLUzhlSnt63p7Cf/13zcUV/+///y/01f8E/3ddEzNlAMN/QJ3DGgKzro32sgmpUIA57cBuL9GSCqmv6egdrOUlRhXxvOvo6K5lrEaV2O+55hTKwIA6t4LfJSIiop/3H3dvoc5xOBxgWXOo0cfPG3TKZQyMIuSvfC9lTstQGhogS3cXg4iIiH5G4Z6WhTSua8ZaFm5JtiwQERHR7/Z0ZYGIiIg+2/3dEERERPRPYWWBiIiIMj1VWXAdHZ3yFKZ7tSfjJdvcVSZzio7uhO81Ne/b3jUx7ehwnijfrddw9A6m5v2v/8j++MxpB7rjQO90oDuv++xd18TUK1P038Hz5vShfaW/zyu+O0T0O/3noxu6roPNeIf6vI5FdwMpxwDHYJt+EYOZhUNiuuS7OXoHDe0Ym45pTssYGJe/ayha/IFSH9tlE184Y9NtQDtGn1Qxt4ao5Bjg6To6xtoRRyjBFNRSf4tVK+eMEGOAcqK8+bf/QnM5waY7g7nMV957FAoVtOUOpqaCUaUgBr/uaxiNvGmyroNNdwxMwqm1rjnFDEMMlTM2s29Uh/kGyr7TtWPigjoPjmH/2Lpnm9/k3n2+mEYdcfHdueP7QUS/00OVBXGiWEDeipN+U9LRVWbo3TghWLMG7J64UFf1DspTvOzE6To6ug0N4nRtoKyV0J/XYxfXUn+LwyF5US2hv72+LgQQzvgAgEJBQrWuApMhWlJBXABn38hzqXZdE7MxMLEsSIWCKPMYmDRzzjUFMi828c8ghaEgOI0rp5v7LcrsxCpHt9a9+Gr2gO4GjlLFd3eP2nIYPFcoSF5lRcHUOw6svQHDMIKLjmZomftpTsvY1/KtvRF8vjcqsuJzsyPHb3hMOLoOp9lEpSD+1pYFVCqStz5I9FWKsc8zbZaQ65qYzdLLcM9+/YZ9LhQqGB0OGD1R1p/YZ3+9FgBBhf9PV0aJ/kZ3VxbEHVQRc2sZVAwKUgtLy8RMUTBIOcn7Fxy/ogAAUmuFrd5BuWO/5AtckFpYHVpwzSm6dhurlji57VLKc2vhqFu+mjXY3Q2cZRNfcGADQFdB8sbSUHbBCTh6IU/eeTX8/z95MvM/gzSOPsV3dfjgPl9WqJJ3loahQlUNGN4DwT4qBvw7S+W8CSsziw3aShW2PMfhUAkqXVktC47ewQBzHCIXl8s74vAutiC10CuW0ZjJmZXS8/cO6E8uKrquOcUYbSxhYToFRqMKJLuDjj3BspryQt8zlLX4vXb0b63O57n2K+0i6ppTKPuaWAQtcUcfrcD9+D575W/YveD90r7vt/bZF/97iuOu+WU9vM+FygiHwyioUBDRY3JXFvxm1lJ/C8tyRMUg9hsq5paFoTVDuTwImsZFzf6E/nYLeaygPEhsswXGioLjO5pnv2QUU5rtUepj693MV0YrKI6OTvn6Hbk6tzBahWUrFCoY9vaYWcBQsgG5itaoBf8ynbyrDFoU5irGXkUGAMzpFBgOgzu4zez74r1jd0ae6P4k7/STLQH+xVPCCbYD5GoCycG/sxx65Sv12xi1Rhhl3WpGKnQzNPFlzWDLw4wNQqL7poi5pVw8l9XaoQznUJUF9LaSWlFyXRNrDahvE607zgbdvYz6qQH/em8YAEp9zOtjzL7rl29WHeLQGgWvm9qysM+3Xyf7DFSu/bHCCpGohHahRypzP7nPrjlFY1fHdhmWX7QgbbHpKujYl11kafscHLdFUXmMl/f5fSai5+SuLEitFcKbVul6E6RXkwcidxze/7E6IO2+t+JdQDq6FJxYXrHcc96m0ugduThprSHf6tNX2pC7M1g9AHITrqNj9l3FKGXsQKFQwWhVgWtOcdQaKEcbFozIlb/UR9rN27UxCeKim6IYtlCY0ykA4Esu4mSf4Sq4GDfwKNd1sNmfUFLnmGCMjj65OXbCv0M+jApwTcAYKLE7xqAbItGaYa01oL+9u9+7UKig3V+gsbbQSquMWnsYag+H5Gdh2zgaxmUF8qhhcATUfkplAWfonfh4lrBlQcXcql2+fcp+SXIpz64JX1XUS1qsIvgT+xxc3CGONWc2gzOMXMzHwGRpQZ4pKJfjYxZS/5bnb+yOKubLy8rgS/b5Ci4rT5TPXbMhXNfEtFxG2f+ZmpePlcPR9lJrBWuIxPMpP1MThcoo/yC/G45aA+XyFOZF2cRP2uh8MVsg/yjuQkFCcyJjMQBqiqhwtLG++Rpi3MQBh8MBc1W0xojls7foF+/e1fwkGbAdcVIu9l5z93X+Bmo9FCH+1jcrCq6DzcIQ40g6Os7KUOz7tg+1vxVLiJf62FoWDodVrP9/b5RQr6aP7TAGSvj3TRmN/1Wto2TsL2bgiPKc0G+nXKCqw8slzQEELWipTfJfaK0O4XLowb4ccDiMkHyXW/slvlvhzKFS2rLo1hrasXSxYvq797lQkMS+rlqQCgVI8gmLzdkrkoZiT1RWKyOx75VC9t/y/L3DsSTna/i6c5+J6Hn3D3CMjob2b2tLiTvZyHkgeXefHiR1+TaFSAtFHtExAUEXiGtin+jeSLsbd10H9imaaWFgoIT3u3nvOr6aNdgzC8hoWX+kZeFimwh1nvJmJy0cBwEV8yHE3RjWmI2B3rKZvSM5iJktNuSlDNtrWr82wNL/e/gXmKZ37ARjExwbkJsAnPD1HRMWFFSCSs31zJGbf58vGUXscNGyb62hoY5kazwA4HsGRQNUVcXcv2M2p5ihhr2iYKGqAOTYJva6i7IR3/uwZaGE/raX8kaX+/UlF3HcO4C1B1RgbwGSfYq+auT4vDJA94f2OXi75gT17hi6XMcOc6wyvy/582NCT+xzhnvPM0T/qoenTv428QGOkSdSxixcXGDP39hBxiT8jVxTvay1jd5Wxn5zRqUliYrRSNw9pTnbQH9rXelHTh+zcO/JzL8gX3b3SKjKJ+zkCUavGA1+/oZdb6MJB343fNYAy/i2YpwH4FUwFjImy+TL72FXFbxzkqG1N6D2rPQBldUhDq2wG0cMvCuhv63BVudYtu2LSq7cXuIwioxP6NpoT4BxQ8PRu0DayffJcLYBuV2DvbYS1+jHpyK+ep99oqWt7s2wuL8y+iUXgaON68NqOP2S6E+6f1EmY4ByuQzlyhxr4AT7/GyxRAvAtS6Du3gpmf6PNb9sZD1/7wDssLbuK9++NkRFaqFmr282fbqug29bxpUW56vb6B3RDO0vbhR7zNHRubIIjv/5lctldHQnGKB6tL0Fq0zzqebagtRKHZ+Rh7XeQa5+wdE7UGJT3iTI0NBQFDR2yc/qiePqbOOUuJt1HR2LUx9prfFRknzCQFG8EfpHaA2v3ymvryZWV7ohhCv7ddpjbcuofimoYY9vAMV7bsd/eJ9Fq9IO9bmMhaLc+N6m7LPSRr9kYDC740uYlLLPt7zsPEP04T4/otqr3Pg/yZkFrqNjvKtjspxAXijobpwrLxTfpruvBU3fSluGfescZ62xk6sZ0yIdxFqavW20Yk3cTUkyYJ+9dR5O2Fvigj2p7zD2+opFRcLbz30tqCD17IYYsW5ZmGOAqenibC+wf+K8/ChH72Ah94CxgjEmQZ83EOkHPxwSj1dQU4/YfT9WWzh/73BUa7G7UmutAfVrf48jtIYYB5G20JIxUKBcdLecgm2CyvRRVHxij0W2uLpfkozS0cDJO14k+QQtz4JPP77P4TgmZQxMrCValRaW1hbyQkm9CF/bZzGDYg419n29bxxR2j4T0Wvc1Q3hN7NH/x00uX818zVBR1RGB1xrYX+kL9Gfox3rZsgYsxBdmEYqFNBaHVDVO2gcj976ABH+Co7njTfSOzJVTGqhJcWnOZb623DKXNDUflmLik11VOdBF4Hr6OgOEJtedvKGf/szG1CR8NXsoaisYTaHqCS6IPy1EE79LQ4jUSH7Gm5hdxU0jirmL6wsXE7ZjArny6/tHlajCtASn3W5fO0iGO+XVtp9LBr+foYXg8rokNlV4U8T7G8j0/QcHQtDRc+6VqvNsVDXjUWZrpUluShT2n4lu3PiM5EqGB2yO2d+Yp/DdTbE4Mdo11Y4NsXBpqugPIh3IVz7W16fvfTYPufBMQtE+TCimjKlLdH8pyQX/8nDnJbF4j+/cIll3yP7lYX7fCnvypZElI6pk5RD2ET9J/t2pdYq6EbJwzWnv/6iCdy/X1m4z5fPlcvl1C4UIsqPLQtERESUiRHVye0ZUX1fmRhRTR5GVBN9LkZUM6L6ZRhRzYhqgBHVRJ+IEdWMqL5RZkZUM6KaEdVE/zpGVD+AEdWMqGZEdbz8jKgm+myMqGZE9UMYUc2IaoAR1UT/CkZUgxHVj2JEdRIjqhlRTfSZGFHtYUT1AxhRncCIalEkRlQTfRpGVIMR1Y9gRDUjqmNvx4hqoo/GiGqAEdWPYEQ1I6ojGFFN9NkYUQ1GVD+CEdU5MaI6BSOqif42jKhmRPWPYkR1iBHV0ccZUU30mzGimhHVL8GIakZU+xhRTfR5GCRFmRhR/X6MqH4eI6qJ3osR1ZQDI6rfiRHVz2FENdH7sWWBiIiIMjGiOrk9I6rvKxMjqsnDiGqiz8WIakZUvwwjqhlRDTCimugTMaKaEdU3ysyIakZUM6Ka6F/HiOoHMKKaEdWMqI6XnxHVRJ+NEdWMqH4II6oZUQ0woproX8GIajCi+lGMqE5iRDUjqok+EyOqPYyofgAjqhMYUS2KxIhqok/DiGowovoRjKhmRHXs7RhRTfTRGFENMKL6EYyoZkR1BCOqiT4bI6rBiOpHMKI6J0ZUp2BENdHfhhHVjKj+UYyoDjGiOvo4I6qJfjNGVDOi+iUYUc2Iah8jqok+D4OkKBMjqt+PEdXPY0Q10XsxoppyYET1OzGi+jmMqCZ6P7YsEBERUSZGVCe3Z0T1fWViRDV5GFFN9LkYUc2I6pdhRDUjqgFGVBN9IkZUM6L6RpkZUc2IakZUE/3rGFH9AEZUM6KaEdXx8jOimuizMaKaEdUPYUQ1I6oBRlQT/SsYUQ1GVD+KEdVJjKhmRDXRZ2JEtYcR1Q9gRHUCI6pFkRhRTfRpGFENRlQ/ghHVjKiOvR0jqok+GiOqAUZUP4IR1YyojmBENdFnY0Q1GFH9CEZU58SI6hSMqCb62zCimhHVP4oR1SFGVEcfZ0Q10W/GiGpGVL8EI6oZUe1jRDXR52GQFGViRPX7MaL6eYyoJnovRlRTDoyofidGVD+HEdVE78eWBSIiIsr0cRHVRERE9FoPVxbCiGoZi+4mV4Z9GFGN56ZIERER0Y95qLIgRkJ7g94qLSwnwFiZ3WwtEBHVS7RaI2zlBcrT9MWLiIiI6Pe4u7Lg6B0oyh41KxwdLyKqxZKwaRUAf/5/NHZXaq1EheHKokJERET0O3x2RDURERE97a2zIe6ZSy0yHdovjagmIiKi5921gmO4aptHncMaIv5YZCU4qbWC5S0Hm54jEb7OYTTCig0LREREv87HRFQTERHRe3AFRyIiIsr0+RHVRERE9JTPj6gmIiKipzw9G8J1Tcy6Nto509ySYxaIiIjod2OQFBEREWXiAEciIiLKxMoCERERZWJENX0c1zUxzZE54uidp2bb8PgnkXtz+fd0HR2dXxqUd63Ml79TRrmc8XNl/1xzio7uhP93dHRi2+Y7/s1pB7rD78lvcf+iTJ4worqORXcDKccAxzCiuojBzGIWBP0xruvge1dEbRl9LLFCKRAsQpa2PY9/+u1cR0e3oeGY9qSSnPwerr5bKEhorQ5oec84+hTf1WEQHnjxPhffHQNlDWLBvglQjGQFde02Kt53xV/WPyiB93tC/pl19H4PVRbEgbGA7B1YTUlHV5mhZw2DgyCNiKgWWQ9VvYPyFDxh0tNSL/IADEWL/E/FPHp8WmtoRyN2wlTn89hqpNdWF3338e+fQEv9LZZNR+wbg9bewpyWMTDEsaFYMy/0bnn1ohgVu9ApJ6gqYBjxy3I5XBs/fvz9kILUwurQij1m6lPsdwaMI2LHe1TyIg4A0Axo8UeC7J5CoYKaChiJTUr1Kr7wDSCaFSSlvobr6Jh9P7qn9G4fFVFtTqNNXfEmLH+Rp7QmtGiTW7JZOuu5R8qS2rznleWijOX875tVzszP5cp2WeW8WZaszzrWJBkvS1Y5s/hLih+8H8uaQy31sbWs4LHDYRTezTg6ugNgblnY9ktQ5+L3hsrt93r38S/KdkJ/a2HZBDaioEFFgcfVa48rpaYiWEhOqUHFEbaDXAqVESxri35Jxdxaoi0jOJbmavhv//95xMsab7J/9Fzk8z+/vdyG7KUEWxOR+pvsGhDL7Ue+T976Osmf6BT4ykg8Fv1Oha0E4pifYxDrorgU7uPAMDBQFPE5vPA6QY/5qIjqyugAP07C0TtojDeoLpv4goWZd3GoFArBnaHeVtD8sry7xC364wbsyOuFd5CXzz1eFm/PU9I0k3kYwfvfWLPqVjkzP5cb+3dv6qfrmtmfdUNDcW5h5d1JdBszyN4d17Vy5lm/4x7ibst7n5zb/Njx79g4AqgDwPkbuyNQjGzB4+odx1W0ubv09BpxruvARh/tHJXPNGmfzaPnItd1sOk2oB3hLag3Eo8txPN+y4N4/S7s7RJNbFK7LpKtBoLourjcRvFa+lTMt3LwaGV0AKYd6E5Y2TYGStAqWOpvMVod0HQdbLpryMshFFiYde85+9I75K4sSK0VwtYsKRYOFRM5MQXNTv43NdIHFtvk0PIGxUivjaguyqI52ZUglwwsNm1UWhJg7WGU6th++XelFfEFSmye9dzjZcm/yXmzgKH2cLjRJHp3Ob2yAC/cv8D1z1r8u4+tdxI9f+9wxBF7a4hKWj0xKOd117oggGQ3BOA3BYvm5ugW4mRV6vdjF+bYXv3Q8b+syijBwO77jGazinpJg7a3MEr9gMDj6onjSnRBiIudf0yocytXF8QFy8LaPsLQwgufZsSPP7V2pTw5PHwuOjuQJxbmawUDYxDpFkF8zEKpj6219P5+YdeFG7loZ3eheJUOR0d3LWMVufFzHR17+F0+AKBiPgy3vNoNUZTBtX1/j4+KqI6Vr9THdinOHv5gHXlaRrnsvd+b87CvlcUX1qZLqX2krmtirQH97YO3J3eUJcutciZlfdaOfQKKtfBEfeqjrx6xs89ARXqonMlU0+idVHywVETkgm5OO7DbYr9c18Rsd/0O5meO/3gfcytRweBx9brjKtriAOmxlNvzZgzteAT2NRxGB4xGiWPKG9CXehxeEb3TvjamIK+CVEEFgJkxZsJfhTdNsH8XgyEvv1/iBg+YW83Y67Yn4vnY532TAxsyWn5FOMeNA73XR0VUR9/LNadQlJm4k8RZXECKcxwOFdEv2HnuS/hoWSoXo4w7aESaTH157/6eK8v1174cDZ1ezqTgYp3yWfvMaRkDiJO9OQ3vvh4pZ9J5M4bdm0Nd2KhhjKl5fWlx1zWxN44wYKGVtwvsh47/a3hc/ZnjKrVM5hRj9NAv7SF7A15cR8cCPay8z9fan1Bv3zek/6nW1KsMDFIu+IFSH+3EQ645RcMuQlV7GCW+H6ISFPm/o6O7l9EvaRfvYzQAQIPhz45InHfj3RBV8Q9rj5Pslehs4wQZ9Gd97qJMSg2qP3Dp/I3dUcXc+0IrwznUo4a19QfKkvBVraOUeM51dIw1oP9op+eDZcmSVs5UGZ/1l1wEjAEW8ta74DqwT0AxbX7UA+V09A7GmAQDFaXmErW9cn1AlbXHqb/FHIu/cz43j6sfOa6uKVRGWDYjd9aug81Yw9EYiAGD5hQD9B7r1ng5MaYmbZDiRSggvIG8+xqsYS1IGo7+JGdKFKQWlsNq7H2SA43T3gcIB4Ja27Ab0NqfUK9y3uRv8rkR1V6fZni8Rcp1tnF6wUCm3OW8KEvkqbWGY+I5a63hqKafZF7/ueTcLKWc18ty5bNWalBRCk8C1hraUUUt7dp1Rzn9UeJjTC6aeyujA3p243LWgetgsxAnJGXYg92YIVfd8YeO/1x4XL31uApnJuRbRMhvNREXPhmL5NTDPyoysyB54U8cy66jY41JOOA8ZSaElXd6Rx62SCxWGhoMbX1ZyXLsWDLxvX8Xeo3XdEMAIqK6oeGYGLySxR/wUupv7y5G0kV/crS5S2ph0t+h0VCCecL+QKaL7bwmMXVuYahYV5/zmwnP9umussRGJyfLCa8Z0yhd71OWZJQAGJFBb3ftQ6wsWdudM8t5bd8LGZ81UMFwa6MbPCf6qytpZcnZVxvONrCCpt+kyugAy9HRVRQUvb/deTPGrj7xtqlgON9jZgE4amhEB0aq8/iL/cHjn8fVDx5Xjo69vMXhIImBd5uzGFiZg5g5A/S3FibfXZTLi9xrN1wtT8ZnmqfL4p7xAgWphVF0oExyYKSn1E92XFwXrNsQ6e7wZxjBa30I1jZp2Jhb4XEaPR6e+bvQcxhR/ZfxTxp4S7/mZ7h1TLrmFMq+djFVN7ld2sjue98r6bce/zyu4uKVr/TBgcEFvNTHdlnF95WBteL39qj9gUWZMldwTJGsfPiV4vQxC9kDNx/5bjS0YvBZhwtDhYNg8/xd6D0YUf0Xic71v2d0NVEWHldEdAsrC0RERJTpc2dDEBER0UswopqIiIgyPVxZCCN6ZSy6m1whH2FELzCY/dQiB0RERPSMhyoLYnTvGJgs0aq0sJwAY2V2s7VARPQu0WqNROJezrQ5IiIi+nM+KqLaf5+HF5YhIiKiCx8VUU1ERESv99apk0FEb45KQHKRj3sjqoPVwGIii3kkFifxX1fkCdRR1DQYpT76RQ2aEV2lbg+5f4LmvTbnohMR0b/mYyKqpdYKVlOs7mX3UlYha9joWVZkCdgu9O0SVQBHzUbPmgPKALv6Ftv+GGP7DCgAYECzRdKdqHCMoVefW7qViIjob/JREdVXnW2cYMCIRaeW0A/2qQYFwN4Po/mObhwm3eGrinpJg+0AYOMCERH9I+6vLPyNHBvHKwEyV8KLiYiIyPNREdWFggS5CJySBVBqUI8a1s8u7ZAVfUtERPSh7q8seNnmljVHLNH8LDLJB0YRcs5Me3MqMsyjWeXPUtp9QGt4eecd6I6LQqGC4baP0yCS5557ymaYAy9mdTDljIiI/i2MqM7wJ6NliYiIfounxywUChWM7pjGILVWeNGwRSIiIvoBTJ0kIiKiTP/GbIgHiWmfXFWSiIj+bYyoJiIiokyMqCYiIqJMjKgmIiKiTB8VUU1ERESvx4hqIiIiyvQxEdVERET0Hh8TUU1ERETv8W9EVBMREdHD/g/G1fyLkVJ4lgAAAABJRU5ErkJggg==
如上图，在ACAD2021中空白处双击了5-6次，最后成功了一次，且还输出 “命令: 3811.357,1315.803 未知命令“357,1315.803”。按 F1 查看帮助。”
(vl-load-com)
(if (not *dblclkReactor*);;0 = 打开反应器
(setq *dblclkReactor*(VLR-Mouse-Reactor nil'((:VLR-beginDoubleClick . dblclkedit)))))
(defun dblclkedit(reactorObject point)
(if dblclk-edit(dblclk-edit point))
)
;;; 自定义双击反应器Double Click Reactor
(defun dblclk-edit (dblclk_point / owner dblclk_etype p)
(setq owner (nentselp (setq p (trans (car dblclk_point) 0 1))));;指定点来选择对象
(if (and (= owner nil) (= 0 (getvar 'cmdactive))) ;_有活动命令时不起作用
(if (> (atof (getvar "acadver")) 19.2)
(vlax-invoke-method (vlax-get-or-create-object "WScript.Shell") 'SendKeys "temp " )
(vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3) " temp "))
)
)
)
(defun c:temp() (alert "ok") (princ)) 还有这种高端操作，是不是可以鼠标手势不同命令 坐等大师过来指导下! 好用，非常感谢，牛！ xiaoyingzi 发表于 2023-5-18 01:54
(vl-load-com)
(if (not *dblclkReactor*);;0 = 打开反应器
大佬怎么实现框选后双击执行呢，直接双击容易误操作 xiaoyingzi 发表于 2023-5-18 01:54
(vl-load-com)
(if (not *dblclkReactor*);;0 = 打开反应器
大佬怎么实现框选后双击执行呢，直接双击容易误操作 xiaoyingzi 发表于 2023-5-18 01:54
(vl-load-com)
(if (not *dblclkReactor*);;0 = 打开反应器
希望在布局视口激活的情况下
双击空白返回到布局
但无法实现意图
(defun c:temp()
(if (and
(/= "MODEL" (strcase (getvar "ctab")))
(/= 1 (getvar "cvport"))
)
(vla-put-mspace (vla-get-activedocument (vlax-get-acad-object)) :vlax-false)
)
(princ)
)
以上单独执行没问题
空白双击不起作用
应该是“返回布局后又进入了视口”
请问可有解决办法 xiaoyingzi 发表于 2023-5-18 01:54
(vl-load-com)
(if (not *dblclkReactor*);;0 = 打开反应器
大佬，这个双击反应器有适配cad全版本的吗 本帖最后由 wyy81061 于 2024-11-18 15:14 编辑
xiaoyingzi 发表于 2023-5-18 01:54
(vl-load-com)
(if (not *dblclkReactor*);;0 = 打开反应器
不好意思，2024也可以，是我用了自动输入法的全局控制
页:
[1]