(XD::Block:GetXClipInfo)获取一个裁剪块的详细信息关联表

Lispboy · 发表于 2013-7-6 16:15:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2013-7-6 17:28 编辑

使用函数前请加载XDRX_API 和 XD通用LISP函数库最新版
关于裁剪块的精彩讨论，见帖子：http://www.xdcad.net/forum/thread-668258-1-1.html
裁剪块的应用篇： http://www.xdcad.net/forum/thread-668298-1-1.html

;|
获取一个裁剪块的详细信息
参数
e ---- 裁剪图块名
返回值：表
说明：
Enabled---裁剪是否启用
coords---局部坐标系（原点，Z轴）
PntSums-- 剪切多边形顶点数（如果是2，我们还需计算出矩形的4个顶点）
Pnts1-----多边形顶点表（定义在局部坐标系下）
Pnts2-----实际的裁剪边界顶点表(UCS坐标系）
Bound---上下边界数据，0表示无边界
Mat----剪切空间局部坐标系到块定义的转换矩阵
rMat---逆块矩阵
|;
(defun XD:Block:GetXClipInfo (e / bb bound coords d d1 enabled i info mat mat1 mat2 mat3 mat4 normal orin p1 p2 p3 p4
pnt pnts pnts1 rmat ub v zaxis
)
(defun _spatialMat (mat / d d1 i mat1 mat2 mat3 mat4)
(setq i 0)
(repeat 12
(setq d (nth i mat))
(cond
((and
(>= i 0)
(< i 4)
)
(setq d1 (cdr d)
mat1 (cons d1 mat1)
)
)
((and
(>= i 4)
(< i 8)
)
(setq d1 (cdr d)
mat2 (cons d1 mat2)
)
)
(t
(setq d1 (cdr d)
mat3 (cons d1 mat3)
)
)
)
(setq i (1+ i))
)
(list (reverse mat1) (reverse mat2) (reverse mat3) '(0.0 0.0 0.0 1.0))
)
(if (setq info (XD::Block:GetSpatialFilter e))
(progn
(setq orin (cdr (assoc 11 info))
enabled (cdr (assoc 71 info))
Enabled (cons "Enabled" enabled)
normal (assoc 210 info)
zAxis (cons "zAxis" (cdr (assoc 210 info)))
Coords (cons "Coords" (list orin (cdr zAxis)))
pnts (assoc 70 info)
pnt (list "PntSums" (cdr pnts))
pnts (XD::AssocList:K1->Kn info 70 210 t)
pnts (cons "Pnts1" (cdr pnts))
uB (cdr (assoc 72 info))
ub (cond
((= 72 1)
(cdr (cdr (member uB info)))
)
(t
0.0
)
)
bB (cdr (assoc 73 info))
bb (cond
((= 73 1)
(cdr (cdr (member bB info)))
)
(t
0.0
)
)
bound (list "Bound" ub bb)
mat (XD::AssocList:GetDataByKeyWithNums info 40 24)
mat1 (XD::AssocList:GetDataByKeyWithNums mat 40 12)
mat2 (reverse (XD::AssocList:GetDataByKeyWithNums (reverse mat) 40 12))
mat1 (_spatialMat mat1)
Mat (cons "Mat" mat1)
mat2 (_spatialMat mat2)
rMat (cons "rMat" mat2)
)
(setq pnts1 (cdr pnts) ; 得到剪切空间的点表
mat1 (cdr Mat) ; 得到剪切空间到块容器坐标系的变换矩阵
mat2 (xdrx_matrix_block2wcs e) ; 得到块容器坐标系到世界坐标系的变换矩阵
)
(if (= 2 (length pnts1)) ; 如果是2点，算出矩形
(progn
(setq p1 (car pnts1)
p3 (cadr pnts1)
v (mapcar
'-
p3
p1
)
p2 (mapcar
'+
p1
(list (car v) 0 0)
)
p4 (mapcar
'+
p1
(list 0 (cadr v) 0)
)
pnts1 (list p1 p2 p3 p4)
)
)
)
(setq mat (xdrx_matrix_wcs2ucs)) ;;世界坐标系到UCS坐标系变换矩阵
(setq pnts1 (XD::Pnts:TransForm pnts1 (XD::Matrix:Product (list mat mat2 mat1)))) ; 剪切空间点变换到当前UCS坐标系
(list Enabled Coords pnt pnts (cons "Pnts2" pnts1) bound mat rmat)
)
)
)

;| 
获取一个裁剪块的详细信息 
参数 
   e ---- 裁剪图块名 
 
返回值： 表 
 
说明： 
Enabled---裁剪是否启用 
coords---局部坐标系（原点，Z轴） 
PntSums-- 剪切多边形顶点数（如果是2，我们还需计算出矩形的4个顶点） 
Pnts1-----多边形顶点表（定义在局部坐标系下） 
Pnts2-----实际的裁剪边界顶点表(UCS坐标系） 
Bound---上下边界数据，0表示无边界 
Mat----剪切空间局部坐标系到块定义的转换矩阵 
rMat---逆块矩阵 
|; 
(defun XD:Block:GetXClipInfo (e / bb bound coords d d1 enabled i info mat mat1 mat2 mat3 mat4 normal orin p1 p2 p3 p4 
                                  pnt pnts pnts1 rmat ub v zaxis 
                               ) 
  (defun _spatialMat (mat / d d1 i mat1 mat2 mat3 mat4) 
    (setq i 0) 
    (repeat 12 
      (setq d (nth i mat)) 
      (cond 
        ((and 
           (>= i 0) 
           (
         ) 
          (setq d1 (cdr d) 
                mat1 (cons d1 mat1) 
          ) 
        ) 
        ((and 
           (>= i 4) 
           (
         ) 
          (setq d1 (cdr d) 
                mat2 (cons d1 mat2) 
          ) 
        ) 
        (t 
          (setq d1 (cdr d) 
                mat3 (cons d1 mat3) 
          ) 
        ) 
      ) 
      (setq i (1+ i)) 
    ) 
    (list (reverse mat1) (reverse mat2) (reverse mat3) '(0.0 0.0 0.0 1.0)) 
  ) 
  (if (setq info (XD::Block:GetSpatialFilter e)) 
    (progn 
      (setq orin (cdr (assoc 11 info)) 
            enabled (cdr (assoc 71 info)) 
            Enabled (cons "Enabled" enabled) 
            normal (assoc 210 info) 
            zAxis (cons "zAxis" (cdr (assoc 210 info))) 
            Coords (cons "Coords" (list orin (cdr zAxis))) 
            pnts (assoc 70 info) 
            pnt (list "PntSums" (cdr pnts)) 
            pnts (XD::AssocList:K1->Kn info 70 210 t) 
            pnts (cons "Pnts1" (cdr pnts)) 
            uB (cdr (assoc 72 info)) 
            ub (cond 
                 ((= 72 1) 
                   (cdr (cdr (member uB info))) 
                 ) 
                 (t 
                   0.0 
                 ) 
               ) 
            bB (cdr (assoc 73 info)) 
            bb (cond 
                 ((= 73 1) 
                   (cdr (cdr (member bB info))) 
                 ) 
                 (t 
                   0.0 
                 ) 
               ) 
            bound (list "Bound" ub bb) 
            mat (XD::AssocList:GetDataByKeyWithNums info 40 24) 
            mat1 (XD::AssocList:GetDataByKeyWithNums mat 40 12) 
            mat2 (reverse (XD::AssocList:GetDataByKeyWithNums (reverse mat) 40 12)) 
            mat1 (_spatialMat mat1) 
            Mat (cons "Mat" mat1) 
            mat2 (_spatialMat mat2) 
            rMat (cons "rMat" mat2) 
      ) 
      (setq pnts1 (cdr pnts)               ; 得到剪切空间的点表 
            mat1 (cdr Mat)               ; 得到剪切空间到块容器坐标系的变换矩阵 
            mat2 (xdrx_matrix_block2wcs e) ; 得到块容器坐标系到世界坐标系的变换矩阵 
      ) 
      (if (= 2 (length pnts1))               ; 如果是2点，算出矩形 
        (progn 
          (setq p1 (car pnts1) 
                p3 (cadr pnts1) 
                v (mapcar 
                    '- 
                    p3 
                    p1 
                  ) 
                p2 (mapcar 
                     '+ 
                     p1 
                     (list (car v) 0 0) 
                   ) 
                p4 (mapcar 
                     '+ 
                     p1 
                     (list 0 (cadr v) 0) 
                   ) 
                pnts1 (list p1 p2 p3 p4) 
          ) 
        ) 
      ) 
      (setq mat (xdrx_matrix_wcs2ucs)) ;;世界坐标系到UCS坐标系变换矩阵 
      (setq pnts1 (XD::Pnts:TransForm pnts1 (XD::Matrix:Product (list mat  mat2 mat1)))) ; 剪切空间点变换到当前UCS坐标系 
      (list Enabled Coords pnt pnts (cons "Pnts2" pnts1) bound mat rmat) 
    ) 
  ) 
)

wzjck01 · 发表于 2021-4-8 15:56:52

好好学习一下。

wzjck01 · 发表于 2021-6-24 15:57:09

学习，学习

downhh · 发表于 2021-9-12 14:20:34

能用这个信息在别的块上生成裁剪吗？

账号		自动登录	找回密码
密码			立即注册

[图块] (XD::Block:GetXClipInfo)获取一个裁剪块的详细信息关联表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子