xdrx-entsel右键返回值是空字符串而不是nil

liuyj

0709的API，xdrx-entsel右键返回值是空字符串而不是nil，这样判断右键中断退出时不方便，对于(car (xdrx-entsel "\n选择实体"))来取实体名时会提示Error: 参数类型错误: consp ""AutoCAD 变量设置被拒绝: "cmdecho" nil

XDSoft

正常测试没问题，你是不是设置什么关键字去用了？
把完整代码帖上来

程序前，xdrx-begin ,程序后，xdrx-end , 保证清理环境

liuyj

奇怪，关闭重新运行cad就没事了，估计是哪个程序里设关键字弄的。还有个问题，在家里和在单位电脑都遇到了，下面这个属性块，运行自由复制和自由移动时，会出现下面错误，请老大看看。

newer

liuyj 发表于 2020-7-10 15:29
奇怪，关闭重新运行cad就没事了，估计是哪个程序里设关键字弄的。还有个问题，在家里和在单位电脑都遇到了 ...

我试了你的图了，拷贝没事
你拷贝下面代码，回去执行下，看看 xdrx-entity-transformedcopy 有问题没

1. (defun c:tt ()
   
2.   (if (and (setq ss (xdrx-ssget "\n选择要拷贝的对象<退出>:"))
   
3.            (setq p1 (getpoint "\n第一点<退出>:"))
   
4.            (setq p2 (getpoint p1 "\n第二点<退出>:"))
   
5.       )
   
6.     (progn (setq mat (xdrx-matrix-settranslation (mapcar '- p2 p1)))
   
7.            (xdrx-entity-transformedcopy ss mat)
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )
    
12. 
    

(defun c:tt ()<br />   (if (and (setq ss (xdrx-ssget "\n选择要拷贝的对象<退出>:"))<br />            (setq p1 (getpoint "\n第一点<退出>:"))<br />            (setq p2 (getpoint p1 "\n第二点<退出>:"))<br />       )<br />     (progn (setq mat (xdrx-matrix-settranslation (mapcar '- p2 p1)))<br />            (xdrx-entity-transformedcopy ss mat)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

newer

liuyj 发表于 2020-7-10 15:29
奇怪，关闭重新运行cad就没事了，估计是哪个程序里设关键字弄的。还有个问题，在家里和在单位电脑都遇到了 ...

liuyj

仅移动是没有什么问题，就是像你上面那样出错，我也录了一段，你看看。

aisong220

7895927

XDSoft 发表于 2020-7-10 15:09
正常测试没问题，你是不是设置什么关键字去用了？
把完整代码帖上来

麻烦管理员给一下子函数代码，感谢万分。纯属学习。
xdrx-entsel
xdrx-begin
xdrx-entity-box
xdrx-prompt

XDSoft

7895927 发表于 2020-11-21 21:53
麻烦管理员给一下子函数代码，感谢万分。纯属学习。
xdrx-entsel
xdrx-begin

XDRX API 是C++ 开发的 ARX 程序
你知道如何用就够了

472017713

不懂绑定............