完成NCOPY Co的LISP代码
大家好，像我之前的帖子一样，我对lisp例程是新手。我正在寻找一个命令，用于将外部参照中的对象复制到位于完全相同位置的当前图形中。我知道NCOPY已经做到了这一点，但需要您在工作之前回答几个提示。我希望找到一个例程，允许我只需单击多段线、圆等，并使其自动进入与外部参照完全相同的位置的当前图形。谢谢
吉姆 最简单的方法（无需重新发明控制盘）是自动提示NCOPY命令，例如：
(defun c:nc nil
(command "_.ncopy" "\\" "" "_non" '(0 0) "_non" '(0 0))
(princ)
) 我修改了李的快速代码，使其更加友好
(defun c:nc nil
(while
(setvar 'errno 0)
(command "_.ncopy" "\\" "" "_non" '(0 0) "_non" '(0 0))
(cond
((= (getvar 'errno) 7) (progn (prompt "\nMissed.. Try again!")(c:nc)))
);cond
);while
(princ)
) （setvar'errno 0）将始终返回非nil值，因此while循环没有退出条件（导致无限循环）。
progn不需要在cond语句中计算多个表达式。
由于您递归地评估c:nc函数，while循环是冗余的，因为您将为每个递归调用输入一个新的[无限循环]while循环。
在NCOPY命令完成之前，代码不会测试ERRNO系统变量的值，因此，无论用户是否进行了有效选择，仍将评估NCOPY命令。 谢谢李提供的信息，我不太确定如何处理这个“错过的再试一次”
我做了第二次尝试，得到了不同的结果：
(defun c:nc ( / ent)
(setvar 'errno 0)
(setq ent (entsel "\nPick object for NCOPY"))
(cond
((= (getvar 'errno) 7) (prompt "\nMissed.. Try again!")(c:nc))
(T(command "_.ncopy" ent "" "_non" '(0 0) "_non" '(0 0)))
);cond
(princ)
)
可能在块或外部参照中拾取的对象需要entsel（这是我所不知道的）。 使用NCOPY，单击对象，然后按Esc键，将其置于完全相同的位置。 在古兰的帖子和李·麦克的帮助下，我们很好地解决了这个问题：
(defun c:nc ( / nc-cmd )
(setq nc-cmd (command "_.ncopy" "\\" (command) ))
(cond
((= nc-cmd nil) (prompt "\nMissed.. Try again!\n")(c:nc))
);cond
(princ)
)
尝试了这个。它允许您同时选择要“ncopy”的对象。。
但是我该如何结束/退出常规？
我试着进入，但我不能结束例行程序，除非我按退出。
也许可以进一步发展，或者我错过了什么？ 命令函数始终返回nil，因此cond表达式将导致递归计算函数，而不管用户输入如何-退出的唯一方法是使用Esc强制出错。
这是答案
页:
[1]
2