请教(vla-move (vla-copy n)复制的位置不对

434939575

2. 
   
3. 
   
4. (defun pts->> (SS0 / elist n ptlist  )
   
5.   (setq ptlist nil)
   
6.   (setq elist (entget SS0))
   
7.   (foreach n elist
   
8.     (if        (or (= 10 (car n)) (= 11 (car n)))
   
9.       (setq ptlist (cons (cdr n) ptlist))
   
10.     )
    
11.   )
    
12.   (setq ptlist (reverse ptlist))
    
13. 
    
14. 
    
15.   
    
16. )
    
17. 
    
18. (defun c:tt1 ();速度快。位置有错误问题
    
19. 
    
20.   (setq n (vlax-ename->vla-object (car (entsel "点取任意要复制的图形"))))
    
21. 
    
22.   (setq sel (entsel "点取任意路径图形"))
    
23.   (setq pt (cadr sel))
    
24.   (entmake (list '(0 . "CIRCLE") (cons 10 pt) (cons 40 2000)));测试当时位置
    
25.   (setq x (car sel))
    
26. (setq app (pts->> x))
    
27.   ;(setq app (list (0 0 )(100 0)(200 0)(300 0)(400 0)))
    
28.   (setq ppp(vlax-3d-point (trans pt 1 0  )))
    
29.   (foreach y app
    
30.     (vla-move (vla-copy n)
    
31.              ppp ;(vlax-3d-point (trans pt 1 0))
    
32.               (vlax-3d-point (trans y 1 0  ))
    
33.     )
    
34.     (entmake (list '(0 . "CIRCLE") (cons 10 y) (cons 40 1000)));测试线段坐标位置位置
    
35.   )
    
36. 
    
37. )

<br /> <br /> (defun pts->> (SS0 / elist n ptlist  ) <br />   (setq ptlist nil)<br />   (setq elist (entget SS0))<br />   (foreach n elist<br />     (if        (or (= 10 (car n)) (= 11 (car n))) <br />       (setq ptlist (cons (cdr n) ptlist))<br />     )<br />   )<br />   (setq ptlist (reverse ptlist))<br /> <br /> <br />   <br /> )<br /> <br /> (defun c:tt1 ();速度快。位置有错误问题<br /> <br />   (setq n (vlax-ename->vla-object (car (entsel "点取任意要复制的图形"))))<br /> <br />   (setq sel (entsel "点取任意路径图形"))<br />   (setq pt (cadr sel))<br />   (entmake (list '(0 . "CIRCLE") (cons 10 pt) (cons 40 2000)));测试当时位置<br />   (setq x (car sel))<br /> (setq app (pts->> x))<br />   ;(setq app (list (0 0 )(100 0)(200 0)(300 0)(400 0)))<br />   (setq ppp(vlax-3d-point (trans pt 1 0  )))<br />   (foreach y app<br />     (vla-move (vla-copy n)<br />              ppp ;(vlax-3d-point (trans pt 1 0))<br />               (vlax-3d-point (trans y 1 0  ))<br />     )<br />     (entmake (list '(0 . "CIRCLE") (cons 10 y) (cons 40 1000)));测试线段坐标位置位置 <br />   )<br /> <br /> )

434939575

我想把图形复制到另外线段的每个节点一份，但是复制的相对关系对的，位置位置错位，好像移动了位置。

434939575

这个错位了，绿色圆按坐标绘制，检测。可能trans 问题，不理解他意思。

pxr201419

1、pt应该是选择复制图形时的鼠标点，而不是选择路径图形时的鼠标点
2、vla-move参数需要的是wcs的点，app点表已经是wcs的点，不必再用(trans y 1 0)转换
(defun c:tt  ()
  (defun pts->>  (ent)
    (mapcar 'cdr
            (vl-remove-if-not
              '(lambda (x) (member (car x) '(10 11)))
              (entget ent))))
  (setvar "nomutt" 0)
  (setq en  (entsel "\n选择要复制的对象")
        sel (car (entsel "\n选择路径对象")))
  (cond ((and en sel)
         (setq pt   (vlax-3d-point (trans (cadr en) 1 0))
               en   (vlax-ename->vla-object (car en))
               plst (pts->> sel))
         (foreach y  plst
           (vla-move (vla-copy en) pt (vlax-3d-point y))
           (entmake (list '(0 . "CIRCLE") (cons 10 y) (cons 40 10.))))))
  (princ))
仅供参考

434939575

pxr201419 发表于 2021-4-30 19:17
1、pt应该是选择复制图形时的鼠标点，而不是选择路径图形时的鼠标点
2、vla-move参数需要的是wcs的点，app ...

谢谢你详细的解答，2、vla-move参数需要的是wcs的点，app点表已经是wcs的点，不必再用(trans y 1 0)转换。特别是这里，我一直不明白这个转换的作用(trans y 1 0)终于清楚了。这个复制比copy快很多。

greatxs

复制的位置不对

434939575

greatxs 发表于 2021-5-1 12:58
复制的位置不对

就是相对位置不对了，楼上朋友已经帮我解决了。

hh_lj007

谢谢讨论及结果分享！

janshyl

pxr201419 发表于 2021-4-30 19:17
1、pt应该是选择复制图形时的鼠标点，而不是选择路径图形时的鼠标点
2、vla-move参数需要的是wcs的点，app ...

感謝大大的分享 學習了

SHUNDocker

感谢楼主分享学习！！！

hbwr123

感谢楼主分享学习！！！

viphappy

pxr201419 发表于 2021-4-30 19:17
1、pt应该是选择复制图形时的鼠标点，而不是选择路径图形时的鼠标点
2、vla-move参数需要的是wcs的点，app ...

选择要复制的对象     如果是选择集，不知如何处理了

qxlonmsn

非常感谢   你的代码给我启发