各位大大好，求一个替代命令执行copy的方法

菜菜学ODCL

在我自己写的反应器处理程序中，我用 (command "copy" ss "" p1 p2)，不能正常运行，请教各位大大，有没有其他替代的方法？

我看到VLISP中有vla-CopyObjects，可我不知道怎么用。

夜来风语声

反应器不能用command，用vla-copy

newer

试试，下面是测试代码。

[pcode=lisp,true]
(defun c:ttt (/ ss p1 p2)
  (vl-load-com)
  (if (and
        (ssget "_:L")
        (setq p1 (getpoint "\n拾取基点: "))
        (setq p2 (getpoint p1 "\n下一点: "))
      )
    (progn
      (vlax-for itm (setq ss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
                (vla-move (vla-copy itm) (vlax-3d-point p1) (vlax-3d-point p2))
      )
      (vla-delete ss)
    )
  )
  (princ)
)
[/pcode]

菜菜学ODCL

夜来风语声 发表于 2013-4-29 21:43

                               
登录/注册后可看大图

反应器不能用command，用vla-copy

谢谢大大，不是用 vla-copyObjects 吗？ vla-copy 和 val-copyObjects 有什么区别？能给写个例子吗，VLISP刚学。

Lispboy

给你个代码，锁定层、冻结层等不应该被COPY。
[pcode=lisp,true]
(defun _copyobject (obj from to / result)
  (and (eq (type obj) 'ename) (setq obj (vlax-ename->vla-object obj)))
  (cond        ((and obj
              (zerop (cdr (assoc 70 (tblsearch "layer" (vla-get-layer obj)))))
              (setq result (vlax-invoke obj 'copy))
         )
         (vlax-invoke result 'move from to)
         result
        )
  )
)
(_copyobject (car (entsel)) (getpoint) (getpoint))
[/pcode]

菜菜学ODCL

谢谢楼上各位大大，用VLA-COPY可以了，虽然还迷糊Vla-Copy和Vla-CopyObjects的区别。