nentsel 如何取得： 图块（可能多层嵌套图块）中某直线端点坐标？

pxt2001

nentsel 如何取得： 图块（可能多层嵌套图块）中某直线端点坐标？

fools

用这个函数

1. ;;;-----------------------------------------------------------;;
   
2. ;;; 功能： 某点在块内坐标系统和世界或者用户坐标系统的转换     ;;
   
3. ;;; 参数： pt 要变换的点。                                    ;;
   
4. ;;;        rlst 用 nentselp或者nentsel得到的表的最后一项      ;;
   
5. ;;;        from  坐标系：0,WCS; 1,当前UCS; 2,块参照坐标系RCS  ;;
   
6. ;;;        to    坐标系：0,WCS; 1,当前UCS; 2,块参照坐标系RCS  ;;
   
7. ;;;-----------------------------------------------------------;;
   
8. ;;; MAT:TransNested (gile)                                    ;;
   
9. ;;; Translates a point coordinates from WCS or UCS to RCS     ;;
   
10. ;;; -coordinates system of a                                      ;;
    
11. ;;; reference (xref or block) whatever its nested level-      ;;
    
12. ;;;                                                              ;;
    
13. ;;; Arguments                                                      ;;
    
14. ;;; pt : the point to translate                                      ;;
    
15. ;;; rlst : the parents entities list from the deepest nested  ;;
    
16. ;;;        to the one inserted in current space -same as      ;;
    
17. ;;;        (last (nentsel)) or (last (nentselp))              ;;
    
18. ;;; from to : as with trans function: 0.WCS, 1.UCS, 2.RCS     ;;
    
19. ;;;-----------------------------------------------------------;;
    
20. 
    
21. (defun MAT:TransNested (pt rlst from to / GEOM)
    
22.   (and (= 1 from) (setq pt (trans pt 1 0)))
    
23.   (and (= 2 to) (setq rlst (reverse rlst)))
    
24.   (and (or (= 2 from) (= 2 to))
    
25.        (while rlst
    
26.         (setq geom (if        (= 2 to)
    
27.                       (MAT:RevRefGeom (car rlst))
    
28.                       (MAT:RefGeom (car rlst))
    
29.                     )
    
30.                rlst (cdr rlst)
    
31.                pt   (mapcar '+ (MAT:mxv (car geom) pt) (cadr geom))
    
32.         )
    
33.        )
    
34.   )
    
35.   (if (= 1 to)
    
36.     (trans pt 0 1)
    
37.     pt
    
38.   )
    
39. )
    

;;;-----------------------------------------------------------;;<br /> ;;; 功能： 某点在块内坐标系统和世界或者用户坐标系统的转换     ;;<br /> ;;; 参数： pt 要变换的点。                                    ;;<br /> ;;;        rlst 用 nentselp或者nentsel得到的表的最后一项      ;;<br /> ;;;        from  坐标系：0,WCS; 1,当前UCS; 2,块参照坐标系RCS  ;;<br /> ;;;        to    坐标系：0,WCS; 1,当前UCS; 2,块参照坐标系RCS  ;;<br /> ;;;-----------------------------------------------------------;;<br /> ;;; MAT:TransNested (gile)                                    ;;<br /> ;;; Translates a point coordinates from WCS or UCS to RCS     ;;<br /> ;;; -coordinates system of a                                      ;;<br /> ;;; reference (xref or block) whatever its nested level-      ;;<br /> ;;;                                                              ;;<br /> ;;; Arguments                                                      ;;<br /> ;;; pt : the point to translate                                      ;;<br /> ;;; rlst : the parents entities list from the deepest nested  ;;<br /> ;;;        to the one inserted in current space -same as      ;;<br /> ;;;        (last (nentsel)) or (last (nentselp))              ;;<br /> ;;; from to : as with trans function: 0.WCS, 1.UCS, 2.RCS     ;;<br /> ;;;-----------------------------------------------------------;;<br /> <br /> (defun MAT:TransNested (pt rlst from to / GEOM)<br />   (and (= 1 from) (setq pt (trans pt 1 0)))<br />   (and (= 2 to) (setq rlst (reverse rlst)))<br />   (and (or (= 2 from) (= 2 to))<br />        (while rlst<br />         (setq geom (if        (= 2 to)<br />                       (MAT:RevRefGeom (car rlst))<br />                       (MAT:RefGeom (car rlst))<br />                     )<br />                rlst (cdr rlst)<br />                pt   (mapcar '+ (MAT:mxv (car geom) pt) (cadr geom))<br />         )<br />        )<br />   )<br />   (if (= 1 to)<br />     (trans pt 0 1)<br />     pt<br />   )<br /> )<br />

fools

或者这个函数

1. ;;;-----------------------------------------------------------;;
   
2. ;;; 点的矩阵(4x4 matrix) 变换                                 ;;
   
3. ;;; 输入：矩阵m和一个三维点p                                  ;;
   
4. ;;; 输出：点变换后的位置                                      ;;
   
5. ;;;-----------------------------------------------------------;;
   
6. (defun MAT:mxp (m p)
   
7.   (reverse (cdr (reverse (MAT:mxv m (append p '(1.0))))))
   
8. )
   

;;;-----------------------------------------------------------;;<br /> ;;; 点的矩阵(4x4 matrix) 变换                                 ;;<br /> ;;; 输入：矩阵m和一个三维点p                                  ;;<br /> ;;; 输出：点变换后的位置                                      ;;<br /> ;;;-----------------------------------------------------------;;<br /> (defun MAT:mxp (m p)<br />   (reverse (cdr (reverse (MAT:mxv m (append p '(1.0))))))<br /> )<br />

vladimirputin

很好的资料，谢谢分享

pxt2001

电脑版链接 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=93216&fromuid=288402

手机版链接 http://www.mjtd.com/forum.php?mod=viewthread&tid=93216&mobile=2

xyp1964

1. ;; tt(嵌套图块内直线坐标)
   
2. (defun c:tt ()
   
3.   (defun dxf (code s1) (cdr (assoc code (entget s1))))
   
4.   (if (and (setq e1 (nentsel "\n选择: "))
   
5.            (= (length e1) 4)
   
6.       )
   
7.     (progn
   
8.       (setq s1 (car e1)
   
9.             s2 (last (last e1))
   
10.             pt (dxf 10 s2)
    
11.             p1 (dxf 10 s1)
    
12.             p2 (dxf 11 s1)
    
13.             p1 (mapcar '(lambda (x y) (+ x y)) p1 pt)
    
14.             p2 (mapcar '(lambda (x y) (+ x y)) p2 pt)
    
15.       )
    
16.       (grvecs (list 1 p1 p2))
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

;; tt(嵌套图块内直线坐标)<br /> (defun c:tt ()<br />   (defun dxf (code s1) (cdr (assoc code (entget s1))))<br />   (if (and (setq e1 (nentsel "\n选择: "))<br />            (= (length e1) 4)<br />       )<br />     (progn<br />       (setq s1 (car e1)<br />             s2 (last (last e1))<br />             pt (dxf 10 s2)<br />             p1 (dxf 10 s1)<br />             p2 (dxf 11 s1)<br />             p1 (mapcar '(lambda (x y) (+ x y)) p1 pt)<br />             p2 (mapcar '(lambda (x y) (+ x y)) p2 pt)<br />       )<br />       (grvecs (list 1 p1 p2))<br />     )<br />   )<br />   (princ)<br /> )

流动的清泉

这就看懂了？ 子函数都没有给

江南十笑

fools 发表于 2017-11-6 15:29
用这个函数

求子函数                  

wudechao

江南十笑 发表于 2020-8-19 13:00
求子函数

(defun revrefgeom (ent / ang enx mat ocs)
  (setq enx (entget ent)
        ang (cdr (assoc 050 enx))
        ocs (cdr (assoc 210 enx))
  )
  (list (setq mat (mxm (list (list (/ 1.0 (cdr (assoc 41 enx))) 0.0 0.0) (list 0.0 (/ 1.0 (cdr (assoc 42 enx))) 0.0)
                             (list 0.0 0.0 (/ 1.0 (cdr (assoc 43 enx))))
                       ) (mxm (list (list (cos ang) (sin ang) 0.0) (list (- (sin ang)) (cos ang) 0.0) '(0.0 0.0 1.0))
                              (mapcar
                                '(lambda (v)
                                   (trans v ocs 0 t)
                                 )
                                '((1.0 0.0 0.0) (0.0 1.0 0.0)
                                 (0.0 0.0 1.0)
                                )
                              )
                         )
                  )
        )
        (mapcar
          '-
          (cdr (assoc 10 (tblsearch "block" (cdr (assoc 2 enx)))))
          (mxv mat (trans (cdr (assoc 10 enx)) ocs 0))
        )
  )
)

wudechao

;;;-----------------------------------------------------------;;
;;; 功能：图块的变换矩阵                                      ;;
;;; 输入：块参照的图元名                                      ;;
;;; 输出：块参照的变换矩阵                                    ;;
;;;-----------------------------------------------------------;;
;;; MAT:RefGeom (gile)       ;;
;;; Returns a list which first item is a 3x3 transformation   ;;
;;; matrix(rotation,scales normal) and second item the object ;;
;;; insertion point in its parent(xref, bloc or space)       ;;
;;;       ;;
;;; Argument : an ename       ;;
;;;-----------------------------------------------------------;;
(defun mat:refgeom (ename / elst ang norm mat)
  (setq elst (entget ename)
        ang (cdr (assoc 50 elst))
        norm (cdr (assoc 210 elst))
  )
  (list (setq mat (mat:mxm (mapcar
                             (function (lambda (v)
                                         (trans v 0 norm t)
                                       )
                             )
                             '((1.0 0.0 0.0) (0.0 1.0 0.0)
                              (0.0 0.0 1.0)
                             )
                           ) (mat:mxm (list (list (cos ang) (- (sin ang)) 0.0) (list (sin ang) (cos ang) 0.0) '(0.0 0.0 1.0))
                                      (list (list (cdr (assoc 41 elst)) 0.0 0.0) (list 0.0 (cdr (assoc 42 elst)) 0.0)
                                            (list 0.0 0.0 (cdr (assoc 43 elst)))
                                      )
                             )
                  )
        )
        (mapcar
          '-
          (trans (cdr (assoc 10 elst)) norm 0)
          (mat:mxv mat (cdr (assoc 10 (tblsearch "BLOCK" (cdr (assoc 2 elst))))))
        )
  )
)