李钊伟2012 发表于 2021-1-7 16:28:31

多重引线 汉字输入

(command"_mleader"(GETPOINT)(GETPOINT)   (getstring"\n添加标注:") )
使用时,英文字母标注可以在命令栏输入并图纸上显示,但中文输入时命令栏无显示文字,且多重引线的文字为空值,必须再次单击多重引线输入。(搜狗输入法,不知道是不是因为安装了群里的中文命令输入插件)。求大神指点一二。
另外,问个问题:
(setq ss (ssget "\n选择文字:")) ;语法错误参数太少是什么意思?   
(GETPOINT"\n选择点");这样反而没有错误。
data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAL8AAACICAYAAAC2lToTAAAIAklEQVR4Ae2YW5LtJgxFz7gyoIwno8lkMph7S5UoxaExCMxb68OFjXmIvZd03P35fD6/uNDAKQMY79R4ih7Gk/yOGcB8x+Z7r/7AD/xuGXB7cO9Vj/NT9Uh+xwxgvmPzvVd/4Ad+twy4Pbj3qsf5qXokv2MGMN+x+d6rP/ADv1sG3B7ce9Xj/FQ9kt8xA5jv2Hzv1R/4gd8tA24P7r3qcX6qHsnvmAHMd2y+9+oP/MDvlgG3B/de9Tg/VY/kd8wA5js233v1B37gd8uA24N7r3qcn6pH8jtmAPMdm++9+gP/avh/fT6/uMZoUPAW+AsCDa+OAv7qGG7c36Arwq823mASydFQIAy6Aj/w38kA8DdUjNnJYDCJyt/go0HXO7N+NsBv9jOYBPzAf2eiAv8YXw26jtn4TSX0NtdgEpWfyn9nogL/GF8Nuo7Z2Fv1fnNeg0lUfir/nYkK/GN8Neg6ZuM3ldDbXINJ2cr/T0NVnK3xihgNugL/bBDi/QwmPcIvUMn8PzIJoGNkXOqK45Hn1Linvj8ze8taun/vGFNxh30Sb/icuC8OKC3A+7LIWY0MJiXnC0wKZAlAeS9j/4pi/fu/fmljOJ7m6DhZS9ZMzdUxo2PUfVKtQdefh04tRN84nQwm/QBT/BD4LADKWAU5lSQKaAyx9scJE7KgY8K+8H50jOFe8b1B13GmxsHwnNbaYFISfoFV4JPPCrly+ubgl3maRGFyKNg5+GWuzAnnhXGMjjHcK7436JoXLV6Q5/56GUxKgq3zFNycNyX4FfQwibSvBH9u39ExWvbOjOlvZmazpInexysgNToImPqZUgJb1rWMif8wLcFfSooZMeY0M+gK/DkBZ7wzmPSjaAh4Cl8JUiv8kkwSi37C5NaVd7r/k0YzYnzaW/oNugJ/TsDSOxG4x1XaJ36v39LaX/rut1R+gdUKv+xfgn9GjHr+VAv8hT8EU6JZ+wzi/qjYqbVb1gm/zWVNrdqp9aXvDfwSX+oqwT8jxqfzSr9BVyp/TsCndwZhTeAbTfpaS0AW2MPYSnCX3staPSv/rBhDDeJ7g0ffIsYL8PxTH4OoX2CWNKxdTyAVuMJ1c9/nMs4Cv/566Nq5NUvf/LNiDDWI7w26fosYL8Dztz4GQb+gtOhXu6b+V0bmxVf8i6D718AvYMu8HPzyPvfZMytGPV+qNej6bW5qEfr+1cggZjX4om3tuvG3tPqjwOlz2Frgj+eX4A/Xj+9nxRjvGz4bdAX+ULCne4OQTeDLfjVrC8RPFVf6ZS2t3OFZSvAr6OEvh/Y97ReuH97PjDHcN7436Ar8sWjxs0HEZvBlr5r1BU6BK45RnhXwFKz67mlu/L0v67XCPzPGlA7aZ9A1LaQu4L01CJgEsUa3mj3kcyJV2XU/WSus3tqfg1/fxfNa4Z8Zo54v1Rp0Bf6UcNJnEO81+DX7KIxP1VvXSsWtgMe/CjJWrhh8Wetpjrx7umbH+BSH9Kd0iMY/HyQa+HjgG8cZhOumh2Uv/Z6XsXLFECt0+l5aTRL9QzZ8p/dPf5jq+7CVPXJez44xF4u8k9gLY4oDSgtc994gWtczz96vAETXs63cy6Ar8IcGGQTrDseKPcMz33pv0BX41XyDWN3Bl71X7avnvrU16Ar8qwE0mDQk6W6FXs9l0BX4DSINhW/1/grLba1BV9/wGwQaCr4At0MMt4Fv1NUv/LtAt0sctyWAQVef8BuEGV7xFbadYtGYbmgNuvqD3yDKNPAFst3iuQF8o66+4N8RNImJa4wGhUT2A/+O4BfMmfoL5DAWH/ADvg+fKxP4flEA/36PK6HXX9S7hQH8u/1thP5++AEf8AvJcadAgH+nrwWYtaJb2/tEAvz7PO0MvSbHXUIB/l1+DoL+PvgBH/Ark+UOwQD/Dh8r4dUK3tqeLxrgn+/hZOg1Wc4WDvDP9m8R9OfDD/iA/zJ5zhQQ8M/07SWsWrF7teeJCPjnebYZ9Jo8ZwkJ+Gf5tSn058EP+IDfOZnOEBTwz/CpM5xaoUe1+4sK+Pt7dBj0mkx7Cwv4e/tzKPT7ww/4gD84ufYUGPD39GUwjFqRZ7X7iQz4+3lyGfSaXHsJDfh7+XEp9PvBD/iAPznZ9hAc8PfwYTJ8WoFXtetFB/z1HjiDXpNtrfCAv1Z/p9Cvhx/wAX9x8q0xAPDX6L4YNq24u7TzTQD8+ZoDfVLzZOewzAT8uXoDfVbv7MuuSQD487QGepPWpkGvkwDw5+gM9FU6Vw1uSgLAH68x0Ddp3DQpmQQpyFN9GNVPc7R8peWryf8ngUCulxoC+H20VT1pu+vZZ0EFP2wxq4+26DhMx/cLh8DrPYa91xUNh2v4bgOFPdVi3jtt0W+4fu82SEEf9mHgO33Rb6h+7YuHkKfuMa5dW7Sbol3bJinYtQ/j2jRFt+m6tW2ooMctBrbpiW5LdKvfNAZenzGwXks0W6pZ3eYKethiYJ2G6LWNXvZAQuD1HiPt+qHVdlrZA1LgtcVMu3ZotaVWtqAUeGkxEg0uYaBsJOCXNboEBm+FrWyswo/BZa3Q6CiN8sHymZPXB9iP1ufo4L39THPevn9zAj/V2y0Dbg9OFe1bRU/UE/ip/G4ZcHvwEysVMff9tQJ+Kr9bBtwenCrat4qeqCfwU/ndMuD24CdWKmLu+2sF/FR+twy4PThVtG8VPVFP4Kfyu2XA7cFPrFTE3PfXCvip/G4ZcHtwqmjfKnqinsBP5ffJwG8rIPzzwU0xuAAAAABJRU5ErkJggg==data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAALAAAACNCAYAAAAXU/AtAAAFA0lEQVR4Ae3c0Y7jIAyF4bz/S3eVkajYdLqbYIN98H9RtZUmweZ8OL2a4ziOFy/2QNgA4QmHx/AhPA6wuAECFA+w+hQGMIClDUgXX3360D/ThwMsboAAxQOsPoUBDGBpA9LFV58+9M/04QCLGyBA8QCrT2EAA1jagHTx1acP/TN9OMDiBghQPMDqUxjAAJY2IF189elD/0wfDrC4AQIUD7D6FAYwgKUNSBdfffrQP9OHAyxugADFA6w+hQEMYGkD0sVXnz70z/ThAIsbIEDxAKtPYQADWNqAdPHVpw/9M304wOIGCFA8wOpTGMAAljYgXXz16UP/TB8OsLgBAhQPsPoUBjCApQ1IF199+tA/04cDLG6AAMUDHJ7Cr+N4ZXgZ9x/Axg0cBhS97ol3gxrim4jexKrrAzjBCa6Kz6NvAAM4/BFsgQxgAAPYaMDhEPEb2DLFlK91wGM+wA41AFgZoaV2BzwAtgTAtbbhA2Dj7x8A2gBa9w/AADY/Qq0ILdcDGMAANhpwOESxjzHLBOFaW3YOeMwH2KEG2yaASHf/HPAAmAMQdwAAbPz9A944vOfeAxjA5kdo5CEGMIABbDTgcIhiH2ORE6j62g54zAfYoQYAK0I+g/d4RfcOYOMjLDrAkfUdQv+ZnF73GemhXeNQAxO4babCu0Pg78e+571G986hBgCPbv7q6xzCfuM9a/e+38h+ONQA4JGNX32NQ9B/4QVwwd+eq9G29WbgBTCAPyZaA+f5PgsvgAE8HfBMvAAG8FTAs/ECGMDTAK/AC2AATwG8Ci+AAewOeCVeAAPYFfBqvAAGsBvgCLwABrAL4Ci8AAawGXAkXgAD2AQ4Gi+AATwMOANeAAN4CHAWvAAG8GPAmfA2wGdN0a+zFsPLdLFl4VLXZsNrAJMtNwDPDhO8U41NvXm207q8HvBO9zV9geVoZk/Uu/cH7xJbSxYphxi8y1wtW6gMYvAuNbV0se0Rg3e5p+ULbosYvCGWQhbdDjF4wxyFLbwNYvCGGgpdXB4xeMP9hBcgixi8KeykKEIOMXjTuElTiAxi8KYyk6qY9IjBm85LuoLSIgZvSispi0qHGLxpnaQtLA1i8KY2krq4cMTgTe8jfYFhiMErYUOiyOWIwSvjQqbQZYjBK2VCqtjpiMEr50Gu4GmIwStpQbJod8TglXUgW7gbYvBKG5Au3owYvPL5yzcwjBi8W2S/RROPEYN3m9y3aeQ2YvBulflWzfwXMXi3y3u7hr4iBu+WWW/Z1Adi8G6b87aNvRGDd+uMt27u59/n3/13qPydpAXJot/T9V/omLz7ZtvlvkeTV6zX713Dt/Dz9zIuZAr9Cu/E2l4nPPDqZ/pggOg32/C29wfNfz0U3EPGhUyhv2JraK/vANTO9UF+uo1e0V6/P9iEXw8H10vYkCjyA9gV6/U7+DRzHchNs9Er2P77wCZ8HBDuIeNCptA3sh5r/xl0elk6ZKbVdA+2/+ywEe8Dwr2kTOgU24PtPwNOJ8MJWek036M9P0/YDO6pt68aEMCrkVPAUMm/MeDNn1EA3Pa0zL05Pd7ATWqbxXu+nxgagMGbO6fAfPJuTJu+gZvDxM03ca+Z5AR84gUue3DDAJt0Y5M4THkHCoABLG1AungmY97JuCobADOBpQ1IF7/qlLNO3kkPYCawtAHp4pmMeSfjqmwAzASWNiBd/KpTzjp5Jz2AmcC6Bv4ACfq2nQJU6skAAAAASUVORK5CYII=

lijiao 发表于 2021-1-7 16:38:50

ssget函数没有提供文字提示的参数

G〆h 发表于 2021-1-7 17:05:25

本帖最后由 G〆h 于 2021-1-7 17:10 编辑

这个要分两种情况:
①mls中有默认文字内容:(vl-cmdf "MLEADER" (getpoint) pause "Y" (getstring "\n添加标注:"))
②mls中字内容为空的:(vl-cmdf "MLEADER" (getpoint) pause(getstring "\n添加标注:"))

ssget没有提示内容,但可以自定义:
;带提示的ssget
(defun LM:ssget ( msg arg / sel )
    (princ msg)
    (setvar 'nomutt 1)
    (if arg
            (setq sel (vl-catch-all-apply 'ssget arg))
            (setq sel (vl-catch-all-apply 'ssget ))
      )
    (setvar 'nomutt 0)
    (if (not (vl-catch-all-error-p sel)) sel)
)
页: [1]
查看完整版本: 多重引线 汉字输入