完成NCOPY Co的LISP代码

florida35 · 发表于 2022-7-5 17:58:04

大家好，

像我之前的帖子一样，我对lisp例程是新手。我正在寻找一个命令，用于将外部参照中的对象复制到位于完全相同位置的当前图形中。我知道NCOPY已经做到了这一点，但需要您在工作之前回答几个提示。我希望找到一个例程，允许我只需单击多段线、圆等，并使其自动进入与外部参照完全相同的位置的当前图形。谢谢

吉姆

Lee Mac · 发表于 2022-7-5 18:07:55

最简单的方法（无需重新发明控制盘）是自动提示NCOPY命令，例如：

copy

(defun c:nc nil
   (command "_.ncopy" "\" "" "_non" '(0 0) "_non" '(0 0))
   (princ)
)

Grrr · 发表于 2022-7-5 18:09:21

我修改了李的快速代码，使其更加友好

copy

(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)
)

Lee Mac · 发表于 2022-7-5 18:13:21

（setvar'errno 0）将始终返回非nil值，因此while循环没有退出条件（导致无限循环）。

progn不需要在cond语句中计算多个表达式。

由于您递归地评估c:nc函数，while循环是冗余的，因为您将为每个递归调用输入一个新的[无限循环]while循环。

在NCOPY命令完成之前，代码不会测试ERRNO系统变量的值，因此，无论用户是否进行了有效选择，仍将评估NCOPY命令。

Grrr · 发表于 2022-7-5 18:20:54

谢谢李提供的信息，我不太确定如何处理这个“错过的再试一次”
我做了第二次尝试，得到了不同的结果：

copy

(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（这是我所不知道的）。

guran · 发表于 2022-7-5 18:27:53

使用NCOPY，单击对象，然后按Esc键，将其置于完全相同的位置。

Grrr · 发表于 2022-7-5 18:30:07

在古兰的帖子和李·麦克的帮助下，我们很好地解决了这个问题：

copy

(defun c:nc ( / nc-cmd )
   (setq nc-cmd (command "_.ncopy" "\" (command) ))
     (cond
      ((= nc-cmd nil) (prompt "\nMissed.. Try again!\n")(c:nc))
     );cond
   (princ)
)