[求助]：■这个程序哪儿错了 急！■

zhuquanmao

我想实现这个功能：在三维空间将指定物体复制 Z坐标不变 我先以基点为基准复制实体至另一点 实际的插入点由第二点的X Y坐标轴和基点的Z轴坐标组成  但不知道为何总是不成呢

[PHP];;; 本程序将指定物体平面复制，z坐标不变
(defun c:pmfz (/ pt1 pt2 pt3 ssg)
  (setvar "CMDECHO" 0)
  (princ "\n<本程序将指定物体平面复制，Z坐标不变>")
  (setq ssg (ssget))
  (setq pt1 (getpoint "\n选取基点："))
  (while (setq pt2 (getpoint pt1 "\n选取目标点："))
    (progn
      (setq pt3 (list (car pt2) (cadr pt2) (caddr pt1)))
      (command "copy" ssg "" pt1 pt3)
    )
  )
  (princ)
) [/PHP]

eachy

这样改后试试，注意捕捉影响。

2. (while (setq pt2 (getpoint pt1 "\n选取目标点："))  
   
3.       (command "copy" ssg "" pt1 pt2)
   
4. )
   

(while (setq pt2 (getpoint pt1 "\n选取目标点："))  <br />       (command "copy" ssg "" pt1 pt2) <br /> ) <br />

zhuquanmao

eachy斑竹 如果按你说的这样一改 就成了正常的复制了 根据您的意见 取消了捕捉的影响 现在成功了 往往阴沟翻船呢 意想不到的错误 呵呵 谢谢了 看来还是基本功不扎实啊