文字输入

xcmdos 发表于 2023-7-4 22:16:13

data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAARwAAAB3CAYAAADRsP/NAAAPxklEQVR4nO3dPWwbR6IH8P/szvJLsqK7cwoZMFxECu457uwmVOAmleTGr1GbKjReJRUxcAe4NHAHOAUFBHiwUrl1ZSCwhBTpIqWRO8F3iNQIwUuKODlZksXvnVfQ6yzJmeUOP1YU+f8BhK3d2d3RkvvXzOwHBQAFg7m5OQCAEA6k9FCrVUxFtTKZKfi+j2q1ZLWcl8qgXqtAKWPVOjiOC8d1Ua9VrbYlvRT8RgO+34i9jBAC0kujVi1bbSuVykI4DirlN1bLeV4a9XrVan/0+p5J6cFXPvxG/P0BCHiptPV75nlpSOmhVDq1qqPnpdFo1OD7fvwa9vieua4EADQadbs69vAZdqWHdDqLszfHVtuSMgXf7/UzXEFEBHRwXBeOcFCv14xlfvnll45pM7Pv4+z0NWS3Dfz888+xK0NEk+3KlSuR86WUKeNMIZxB14eIxlizZd2ZKQKAKyVkbnrGuLCU3hCrRkTjRkoPukxJZ6cgHBfy+OiVceGpLAOHiOKr1SrQZ4rA2elrsM9ERIlh4BBRYhg4RJQYBg4RJWYEAucA64uLWD8473oQ0bANIXAOsL4ocG8rbvl5rD64gbXP1mHMnIN1LHassLkdIcxhdbC+CBG/IkQTRwiBFy9eGOe/ePECQoiBbW8IgTOP1e1NYNkQBFv3IIRofS1vADtrWGib/i4r9l8C1xfereJgfRFCfAY8UVDqAV4u6ANufnUb+9cfYtGi+bR1T2hD6mB9EWIxHIpbuCdEl3U3yzR/H7biaPTs7u7i48VPtKHz4sULfLz4CXZ3dwe6TWV6zc3NqW6KefPyHa98Ue1vFlS+uN91vfvFvCps7mvXn8/n26YVVKHwdv2da1LFfF7F2GTTZkEBBbXZsQ6owuYf/w+2af5dmuXezdeul+j87e7uKi+dUbu7u5HT4pibm9Me+zOz7yspU6rvwAk0A0IzwxAwmwXzdlvLNwMjbxMarVtSBUBBWzlz+Zbi+0WV14TFZlTgdCwTDi2i0RIOmF7DRqnugTOwLtX8nRXsPevsimw928PKnfmO6UuPFZRqfe0X8wAKeLAaKn/wHE9vrGAl+HF98Y9uV6iLc7C+qB832nqGjUIRxb2HMbs0S7hbADZCv8vB86fYKdzFUpzFA/sv25aZx4c3gL0f2a+i0XPz5k38sP09Pl78BB8vfoIftr/HzZs3B76dwY3hzN/BSvtBfbCOh3sr0ORNh4P1RSys3cCmetxyYB88fwpc/7ClbL64D6U2UQCArXsR4ygHWH+4gcLd1ebA9KN4A8hL94vIbzzD1tt1PH+6g8Jdq7jBwY97VuWJJoEzfelPML2i7iTvNI/VJyt4+u5s0xbuLTzFypNV/JE3wZmlztfC2g6ADSyHpy+u4/nLHeysLWNtZwdrC4t49BLYWVuAEMvY6FalrUdYQxH3lwAs3Y/fypm/g5X8Bp5todnC2inAMm8w/+ENuwWIzlEwQPzD9vfvWjpRZ69MpExpsySdziI3NQOnVqvA9PKVzUOYAMyvYvvBy7dnmx7i+v42VltaN/NY3e7sSqnNAlDY7Jy+vYrVxwpK7aOYz6O4v43719taOEZbuLe8gcKDIPDmLVo587izksfGs63eulOBvR9DZ7UO8OMecOPDGM09ogSFw+bmzZst3Svb0PFVQ5sl9XoV9XoVTqV8BtPL7qlv7Xbwcr+PxTXrW1sQ+OxpvBbO1r1l7BX38TicFEuPsYnlWKfJ5++sIL/xEJ89BYr3Y8bNwToWg9PfS/dRxBre5Vu4tUU0ItrDJtBr6PiNhjZLGo0GqpXy4MZwtu697QY9u/uuhXL3WXOazXUwrYIu2ALWdvIo7is8WWlr4Sw9xnZLM6q5zDI226Y3LT3ex8rThe51mr+DlfwOdhBvDEqzAqw+KWJvObjWCNjcDncvic7frVu3jAPEQejcunVroNscyHU4Uad794v5P67DCU0PnxqPPl38x7U0+8W8yhcKKh+c6t4svF1Hc37kqeqW9cUpR0Q2up0WF+jyEHU+05iI4rpy5UrkQ9RH4OZNIpoUDBwiSgwDh4gSw8AhosQwcIgoMQwcIkoMA4eIEiOjv853cI8WJKJJILRfEa78BiAAOTN72biol0oPs2ZENGa8VBq6TMlkpyG9NOTJ66iv+pV4/fr1MOtHRGOkXqtAlyl+o4Fy6RTS933jwkoZ73ogIuqglIIuU4TjQCnFQWMiSg4Dh4gSw8AhosQwcIgoMfK8K3BRffHFF+ddBaJz8+WXX/a0HAOnD19//fV5V4EocZ9//nnPyzJw+iT+/u+BrEe999/A3/41kHURjaqBj+HMzs4OpbyuXNSys7Oz1nUhouEaeOAcHR1ZHei25QOzs7ORyx4dHfW8bhvqH3+F+sdf+/4/0STou0tlOqB106MCIE75cMgcHR21lAl+Nq3DNL9f4u//bgmNoItlO51oEsh0Omec6Thu1xUEB7LpoNZNj3PwB0HTHhi6ls2wQ4WI4nEcF7pMcR0XXioDGXVHeJzAsRU3FHQBE3STdOsxrVfXKooq14ug1dLeWrGdTnTROY6rfcqE9FLw/Drk6cl/jAtfms7E3pDuoI46iKPGVtqXCcq2LxN3W3GwdUTUv3q9Cl2mOK7E2enx+V1pHLRWwq9guq5ceF570Jy3oLXSPgBsO51o3A00cMJjK7YtjjjlTS2dOOtM4owVEUUb2mnxqK6U7qWbF54WrDv87yjQtV56mU40CQZ+pXG3Qdq4Z7Lay7efHo9bj/Z12ZxNiyM88NvP/4kmwcBaOEFLpL0LM4xuTDgYegkw0zU/RDRcA7vwL6o1YyozqDDSXRwYZZDX7QyuS8T7qGj89R04cQ7abt0lm+3oxnG6tXj63TYRDQYfwEVEieHjKfrQz3NBiCYRA6dHvT7xjGiSsUtFRImRV6/9l3FmyjN/SR4RUbvc1AyuXus8++ylMqjNvg/56tf/My78lz/zVgAiiq9SLuG33zvPAGdz06hWSpCls2Pjwo33poZZNyIaM41GDbpM8VJplEtvOIZDRMlh4BBRYhg4RJQYBg4RJabvC/9evXo1iHoQ0QVy+fLlnpYbyJXGvW6ciC6efhoZ7FIRUWIYOESUGAYOESWGgUNEiZGuax43FkIkWBUiuuiEENBmilJwHAdyeubPxoWlZ/4aYCKidtJLQ5cpmewUXOlBHh/9alw4lxn8d4sT0fiqVcvQZUqjXkO5dAqplDqHahHRuNJliuNKAIKDxkSUHAYOESWGgUNEiWHgEFFiGDhElBgGDhElhl+ERy1m//nLeVehJ0d/mzvvKrT47rvvzrsKPfn000+Huv5EAqeXX+KivmFEgVu3bp13Fazs7u4OfRuJtXBsfpl+36jZ2dbv0zo6OuqYH2da3G2Flwv/3F6PqDqNmsP/yZ13FWK59r9n510FsnDhu1S6g7qXg/no6EgbHrbrDa/HVD4qiMbBtWvXcHh4OLByk8K0P3TTL+q+k7mpGeNMV3qJVeSnn35CoVDA2tqa1XKm1oVJt1AJfg7KxGmtRNVpnF27dq3l5/ABEJ5nOjAODw8v7IEzDLr9Ydo/7WXb34twuSS50oMuUzwvhUx2usu9VAndZxWEzQcffIDbt29HljWFSpxuUnt3J9wKidul0gWPbr2mgBqnMAp/2HX/D37W/T9MN31SQ6j9947aD+F5ppZR4pTS3kulFKDgQ5bOTozLNt6bHmbVALSGzaNHj5DNZq3XERzccbpA7S2YYFrc4LEZ+9GVHXfd/jrH7WpNmji/c7d9OwqtxUajDl2meKkMKqWz5MZwvv32WxSLRWxsbODq1asA7MImfLCauj26eWG67lF7YLSP5UxCSPQjqkUT/vnw8DD2wXDeB815GMXwGIbEAuf27dv45ptvUCgUsLGxAQBWLZtuLRBT0ER1q9qX7bbdqHXoTEpYhUMl+Fc3vmDTchnHg20YogJ+FCUWONlsFo8ePcL9+/dRKBQAoK9uVMA06Ns+LTyuEg6ncIum2/hLQHdGy1SuW90usvCHWzdWEzWoHC47qgdHUvoZ24ozwDxKEj0tHg4dAD2FTftBHPcaG13ZuNsgvfagaZ9uOoNyEQ6MJA0iiC/KuFfi1+Fks1l89dVXA11ntzNX/QRQP2ebxq1FE5dtFypOS2iSBGFjez3TRQidsbjwL+oskW4AOM6YTj/X4bRvY9zpAiPONSLh8tQU3m9xQueitRYTC5xh3FfS7SI+IPrKX9MZqvDPuv+bthWnvuPI5q+r7V/vSWK6jCBqX8UN9VGRSOAM60bMbuM5vUzvd5zH5hqecWD6a6w7EHR/vdvLtK93EnQ7sxTeV92CJ7y+UXThu1Q0OkyX4JvmT1KoRImzH3q9AnnU8AFcRJQYya/zJR0+9oF6pcsU328AAOTM7PvGBb1UZmiVIhp3STzQatR4qQx0mZLJTsPz0pAnx78ZF57Kcohn0ozaozovqmE/qnNU1WsV6DJF+Q2USm8g/UbDuDC/BpiIbCiloM0U4UD5PgeNiSg5DBwiSsxABmlevXo1iNUQ0ZjrO3AuX748iHoQ0QRgl4qIEsPAIaLEMHCIKDEMHCJKDAOHiBLDwCGixEjPSxtnOo6Djz76CBAOXFeiUa8BiH+7Qyqdg+/7qNfKFlUScKVnvS0hHDiOi0ajZrEtwHU9+H4DSvlDr6PnZSAcB9WKzZ3Yb7fVqFl9E6oQDhxXolGvWmwLcFwJpRSUb77lxVhHy/3hyhSk9FApv7Gqo+um4Pv1RN4zx2leOeL79eFvy5VIpbIol8xfTqnjuh585SfyngnHhRACfkO/PxzHgS5ThBCQngeZzZm/XfPktPx2JS5SGRfls7JV5WbcS6jXfZy9sQgcIZDNeiiXKlYfKNf1ID0HlbJNuAHpjES9VrMKKiEcZLIeSqWyVQjkpjOQrvtuv8bcGjI5iUq5avWBchyJVNpFuWS3P5p/JBqo1yoWVXSQzXoolSqAxXuWzrjI5aZwcmq+gVgnk5WoVqvGD722isJFJitRsvwMB09MqFXt3rNsTqJcqkKp+O+Z9NKQqT/h5PRXi20192O9XrP749LjeyZlGo7rolox7w9dpqTTOQgIyOPX3d9sV3qYVgonx79Z3dCZyV5CrVZBnG0EhBAQwsHJ8e/vnqERh5fKIJOZ0t6pGuWSAsrlN1YfKMdxASFw8tpuf0iZQkOmetgfAqcn/0HD4gCTMoWc8q22BQBT0w3U61VUyvFbYUI4zToe/wbfj//hnYGAtNwfb7eI0tkJahah6LgSELD+DGdzlwBA+/W1xtoJAeE4ODn53SoUc1MzmJp6z3p/TPs+qtUyqpVS7GUcp/meNT/DNn8kcpAyhTenlo/LFQ7OTl9zDIeIksPAIaLEMHCIKDEMHCJKDAOHiBLz/7XS1xdgq4mMAAAAAElFTkSuQmCC
data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAOcAAAApCAYAAADOFj7kAAAInElEQVR4nO2cP4vqShTAf3ncj2EgPEhh/ZpEEGxs7SwMWCjYprDTwmKL2FnYCrEQYpHO1mZBSPINtrAJxO8xr4jR+Gddd9flxnvnBwuumUlOxjk5Z86ZE+Xf8n8CiURSOJQoiqRySiQF5J/fLYBEIrmOVE6JpKBI5ZRICopUTomkoEjllEgKylXlFIlHx3AIxP2B3K/0+S7pNQ2M87+OR3JDDpF4OF5y+X3gYDjBT4oskdzNhXIKkbAcralPNGbd5c1JftHHhv44/BFBr6GoFm44odGYEEURYTihUbbx3RaqorzfsVRFWzfpeEmq4DllLmsqIBVV8vs5UU4hAsbmCF5crIqF+wIjc/yhNQzHTeKei2UN8bXZj0xqIRI857ZFzNiMzUtrmrPqiqLScn3q6wVhqUVPn7LIPVOESFjOYDIwvyyDRPJdDsqZeB1M85Va6GKpqdVJLVONV9O8qnBCJHgdg9dayLCS9lGteaqgH7iW95Jdo7tM3dBk2b0896qPYRiYZp8VUB2E+HYD2w9zFlVDzZ1XUVSs+ZCKomC2fdp5PdxtiOttKnvre5cMEsmD+ZV4HZrTN8q2TxgmjE2T/kmTBpMwZBCOMYw+ZdtnbqmIwMHsb7F9H21kYvTP+vgwMk3eGhOiYeXLAqZKFFH1OjRXqZzRXD1ttL+GEAHjbgxASYM4AVRgF7PVNVRF2XsHfbbZfYiE5ajJ9C072QpzCjAFLX3o3CWDRPJgfqnWnMjK/lUZRhHDay0rQ6IoPZJ4HZpx7/A/8wjrWpfIQgQOHU9lbh3XcmZ/RWNytLa3ECJh2W2yrk+wGzEaI4xO/eN1paqxXYRQqUASo9daAChKhWEUETgGThAyMAH9cp2aeB0W35VBIvkGv4CDNVll3zYmhANOv6OM7acur2rNCUWAYxi541doTIiGQ+ZfN5wHq9USCctxjNpyiawzhVj1MTJByjZtgFKV+nZBIFTiGdTc0y6VYUQFEALYTmmm5vJc/PtlkEgezK/Dp7xrON5/l4t8Bo4DpWPHzAJlVjbxOiw092ANReLRXXCBkrPAn0FRVKzhNfvMVbdWUVSq9S2L5YatXmN+y8J9YDnvkkEieTC/Pm7yRISvrNBSywmUWj0wZ9R996Jp+vDQcAfqh5ZTIvkdHFMpZxHPS7bEu+9fUAQOhmHgBI+I5O7d8Uz2V2jkjofjPjR0pqPLfG24mKLX9iFa3cYP08hu9ufb5W/LJ5F8h6Ny5hP5+Ra7JR3DoL/S0UoX/a8SOAZmcwraD0c0dyrtnFKFg1p24JjiGQ4JezHN3IYKkXjMtvZp+kQiKRi/YL9+3C8Ds89C7POapRbz6HPrrMow4r1l5VfXnFfPpapcqn/MortGewkZZvnaypAQh+5yx9xSCRdr6i/uPrUCbGOyrMsxOFbG9h8ipkTyJeSbECSSgiKrUiSSgiKVUyIpKE9dMva7CJwOXnK8TyECnP3e4/znZyEJAhIhSLwOTiAQSYAXpPuIz+81z582DkXjIs95LBmrM+suUe/YonYsGdPpj8Nv7aUtOkIkxNSp3hm5hjR91I3b+728Z7uxcty7pfHd6yQe3eaUt4+bkt/xVVJjumNwazoA4WIGbTe9V613KIQ4uVaBx+FP4SQglA7YDG3/o6U/dkwvHBwqNK4ROMfKlMO+2z9UQU8VoIxt60ynV6cYk9y4ZeMSDmA8huHZ+IjAYczg4ZPyfOfW7fvJUbbxX2B0dixTnGcbh2fkYDnT6hSdSegeBjItGQvSSpUr1SXZhvC4d1Yy5nUwOvFDNoZnVTPnlG2fF0bvHss22j+a3Sam7ofMc9ak1aodJlq2/fF80qnWnIhciuqHCJwOcXv/cBUBi+kbK0zIWSOReHRH8OK2UFWLeWQhEo/xaM3qTT8oU+I5h3vNn7fo43BrzvzUvPgJCl8yllXNpFb9ldqJFb917PEIkbBZr5hOV0wByja2PiUzGKuc4VitUiszMMNc3tSlVeJ0o36OxmTwACl1tFKI56m0qukmjfayy4LsYTqClx66zuHBmS5LYmo9HajxanaJ/R7xdAXaIE0Ac9yEUvRxuD1nnofCl4z9JJ+WZZegvYSEyTjnellYN/dUpAUCbc9hw2XBwEPlO2BSpYvZTK1gOvK7vWK6tEohWW1D6p6uqfsu6qYL2oCBr7JcNMG2Id4hTIjRqD7dODw3hS8ZKxKKWknLzHLvBnsvsPGeC/Wey7Xv9LAaUdWaE7YClsvdXjkTqL/s3d1jOyVza0XCcq1Tc7Pqm2hf5bNhV4U1GtZhufM84/DMPE3J2E/wWVlOJ+Bq76L1DmN3aJd4jDfXz5H3VPLRy0fIdyJrziKy0dFUk2rcpeO94LbO2+WCPmamXmkgp6bPWCxAzxXEPtM4PDN/VsnYD5M9kAa5iKIQAeMra6eyXb1yhh1eJ/9KFIAVxqFa7eidfIvdMg34hOn+4SDeQjVViJ5jMA6PtXBp0K/KcryhOmhR2i0Zb6oMs2VIu85sBC+5ZeDTjMOT89QlY4+SpXPlHbafYl/Rc6iO8W30a+2SDWv92HbSKNNolNN3EkURUTQ/mZBfHqtSi/ncopRVFG2P+cjKMOLspYKE4xHU0gCeOYJ26+gihYspsGa0vOPHL9o4PDm33VpIS8aaU95ocG8QLXAM+qt0vVFoVI0y8HZ4E9j9rPrm0Z27y2Jsmc40fNe8SEEFjoHhfC+qnZOMvnkmzNuVYvLG5LAkqQznmIHDlAaTfXmd71bZ7GWcD9+Xsbjj8Py8W5WSvfKjfefC/KNkdxE5vrjrc/mvYxppH/k8y+ela62ja5j/Pl3fXbpt+XN+x50LHAcGt1MH+RzkQabcejEN1nAhy0VcocDj8Cfw15aM5fO7z5SYlvw9/LXKKZEUHVkyJpEUFKmcEklBUf4t/yfdWomkgChC/AXV0RLJEyLdWomkoPwPoWZtr9gcLdUAAAAASUVORK5CYII=
(vl-load-com)
(defun c:TT(/ fname fn x dclid lin )
(setvar "CMDECHO" 0)
(vl-cmdf "undo" "be")
(setq fname (VL-FILENAME-MKTEMP nil nil ".dcl" ))
(setq fn (open fname "w" ))
(foreach x '(
"__CHENJINYI__ : dialog{"
"label=\"文字输入 V1.0\";"
" :column{"
" :edit_box{label=\"文字输入:\";key=\"_var1\";edit_width=30;value=\"xxx\";alignment=right;}"
" :boxed_row{"
" :toggle{label=\"+系统时间\";key=\"_var2\";value=1;}"
" :ok_button{label=\"确定\";key=\"accept\";}"
" :cancel_button{label=\"关闭\";key=\"cancel\";}"
" }"
" }"
"}"
);end ;endlist
(princ x fn)
(write-line "" fn)
);end foreach
(close fn)

(setq fn (open fname "r" ))
(setq dclid (load_dialog fname))

(while (or
(eq (substr (setq lin (vl-string-right-trim "\" fn)" (vl-string-left-trim "(write-line \"" (read-line fn))))1 2)"//" )
(eq (substr lin 1 (vl-string-search " " lin))"" )
(not (eq (substr lin (+ (vl-string-search " " lin) 1)9)" : dialog" ))
)
)
(new_dialog (substr lin 1 (vl-string-search " " lin))dclid)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;控件响应设计
(dcl_action '("accept" "cancel" "_var1" "_var2"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;文字输入
(cond ((= (start_dialog) 1)

(princ)
))
(unload_dialog dclid)
(close fn)
(vl-file-delete fname)

(if (atoi _var2_bak)
(progn
   (setq p0 (getpoint "选择文字插入点："))
   (entmake
   (list
      '(0 . "TEXT")
      '(100 . "AcDbEntity")
      '(100 . "AcDbText")
      '(8 . "文字说明")
      '(40 . 3.0)
      '(41 . 0.7)
      '(62 . 7)
      '(7 . "hcs")
      (cons 1 _var1_bak)
      (cons 10 p0)

   )
   )
)
(progn
   (setq p0 (getpoint "选择文字插入点："))
   (entmake
   (list
      '(0 . "TEXT")
      '(100 . "AcDbEntity")
      '(100 . "AcDbText")
      '(8 . "文字说明")
      '(40 . 3.0)
      '(41 . 0.7)
      '(62 . 7)
      '(7 . "hcs")
      (cons 1 _var1_bak)
      (cons 10 p0)

   )
   )
)
)
(vl-cmdf "undo" "e")
(princ)
)
;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
;;每个控件赋一个变量xx_bak
(defun dcl_getkeys (keys / key)
(foreach key keys
(set (read (strcat key "_bak"))(get_tile key)))
)
;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
;;全部控件的点击动作触发
(defun action_keys (key value)
(cond
((= key "accept")
   (dcl_getkeys '("_var1" "_var2"))
   (t (done_dialog 1))
)
((= key "cancel")(done_dialog 0))
)
)
;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
;;■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
;;还原控件+控件触发动作 ;by nonsmall
(defun dcl_action (keyslst)
(foreach key keyslst
(if (eval (read (strcat key "_bak")))(set_tile key (eval (read (strcat key "_bak")))))
(action_tile key "(action_keys $key $value)")
)
)

这段代码运行有问题，按下OK 后出现函数错误，麻烦亲们解答，谢谢

xcmdos 发表于 2023-7-4 22:53:34

:lol，自己先抢个沙发

llsheng_73 发表于 2023-7-5 08:44:02

action_keys内cond语句错误

(defun action_keys (key value)
(cond
((= key "accept")
(dcl_getkeys '("_var1" "_var2"))
(done_dialog 1))
((= key "cancel")(done_dialog 0))
)
)

loveu515 发表于 2023-7-5 08:50:08

:victory:学习一下

xcmdos 发表于 2023-7-5 09:22:06

llsheng_73 发表于 2023-7-5 08:44
action_keys内cond语句错误

一大早就收到您的解答，谢谢大神:handshake:handshake:handshake

页: [1]

明经CAD社区's Archiver

文字输入