brams 发表于 2022-7-6 08:42:09

现在，我想Pbe不会再要求我显示代码了。你喜欢吗，Pbe？网站上最好的代码！

pBe 发表于 2022-7-6 08:45:36

 
一点也不brams
 
 
这个想法还可以，只是需要微调。
 
查看这个\u GetClosestTextTo子函数：Renderman
 
HTH公司

BlackBox 发表于 2022-7-6 08:50:36

 
@布拉姆斯：你用的是什么编辑器？似乎您在AutoLISP代码中粘贴了一些控件标记。
还是你试着给台词编号？！？
</blockquote>
我复制了之前链接到这里的代码。
 
 
也许局部变量会有用？否则多次运行代码将提供一些有趣的结果。
 
 
干杯，Pbe

Stefan BMR 发表于 2022-7-6 08:53:34

布拉姆斯，这就是你需要的？
（defun C:PZ（/*error*ss i en el p p1 echo）（setq echo（getvar'cmdecho））（setvar'cmdecho 0）（命令“UNDO”“BE”）（defun*error*（msg）（if msg（princ msg））（命令“UNDO”“E”）（setvar'cmdecho）（princ））（princ“\nSELECTEAZA puncele SI TEXTELE”）（if（setq ss（ssget’（（0。“TEXT，POINT”）（8。“putte，Cote”））；
页: 1 [2]
查看完整版本: 选择集-单独