如何取得wipeout遮罩边界顶点？

angel066499

用祖玛14取得的顶点不是wcs坐标，有什么办法提取遮罩的边界顶点吗？

tryhi

可以用10、11、12、13组码跟14组码算出来

Bao_lai

2. ;;判断图元是否为剪裁块
   
3. (defun IsXClip (en2 / xdict)
   
4.   (if (setq xdict (cdr (assoc 360 (entget en2))))
   
5.     (IsXClip xdict)
   
6.     (if
   
7.       (and (eq "SPATIAL_FILTER" (cdr (assoc 0 (setq en2 (entget en2)))))
   
8.          (eq 1 (cdr (assoc 71 en2)))
   
9.       )
   
10.       en2
    
11.     )
    
12.   )
    
13. )

;;判断图元是否为剪裁块<br /> (defun IsXClip (en2 / xdict)<br />   (if (setq xdict (cdr (assoc 360 (entget en2))))<br />     (IsXClip xdict)<br />     (if<br />       (and (eq "SPATIAL_FILTER" (cdr (assoc 0 (setq en2 (entget en2)))))<br />          (eq 1 (cdr (assoc 71 en2)))<br />       )<br />       en2<br />     )<br />   )<br /> )

2.       ;如果是裁剪块，则生成边界备用
   
3.       (if (setq el (IsXClip (car blk)))
   
4.         (progn
   
5.           (setq IsXC T)
   
6.           (command "xclip" (car blk) "" "P") ;生成裁剪边界
   
7.           (setq outline (entlast)) ;保存边界信息
   
8.           (entdel outline) ;先删除，回头再恢复，防止干扰
   
9.         )
   
10.       )

      ;如果是裁剪块，则生成边界备用<br />       (if (setq el (IsXClip (car blk)))<br />         (progn<br />           (setq IsXC T)<br />           (command "xclip" (car blk) "" "P") ;生成裁剪边界<br />           (setq outline (entlast)) ;保存边界信息<br />           (entdel outline) ;先删除，回头再恢复，防止干扰<br />         )<br />       )

angel066499

Bao_lai 发表于 2024-7-9 17:00

感谢大侠解答，这个好像只对遮罩的图块有效哦，对wipeout创建的选不到，还没搞明白什么原因

Bao_lai

angel066499 发表于 2024-7-9 21:16
感谢大侠解答，这个好像只对遮罩的图块有效哦，对wipeout创建的选不到，还没搞明白什么原因

不好意思，搞错了xclip，你这个是wipeout，按海老师的思路研究一下，看能不能成。

angel066499

Bao_lai 发表于 2024-7-9 23:17
不好意思，搞错了xclip，你这个是wipeout，按海老师的思路研究一下，看能不能成。

谢谢你

angel066499

tryhi 发表于 2024-7-9 15:42
可以用10、11、12、13组码跟14组码算出来

能详细一点吗？或者有没有什么参照的帖子