Lisp dim khoảng cách liên tiếp trên Polyline - Pline

Tháng 6 19, 2015

Báo cáo bác Tue_VN cái của bác khi đảo chiều thì dim ARC bị ngược.

Tháng 6 19, 2015

Đó là do mình viết quick code dùng hàm command ..^ _ ^ . Bạn dùng CAD2008 mới được

Mình đang sử dụng cad2008 mà

Bạn xem lại

Tháng 6 19, 2015

Đúng là Cad2008 lệnh Pedit không có chức năng đảo ngược (Reverse). Bạn dùng cái sửa lại ở trên, pick chuột phía nào thì Dim về phía đó.

Tháng 6 19, 2015



(defun c:dpl ( / *error* cen d doc e l pi/2 rl rm s spc)


  (defun *error* (msg)    

    (and doc (vla-endundomark doc))

    (if	(and msg

	     (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,"))

	)

      (princ (strcat "\nError: " msg))

    )

  )


  (setq doc (vla-get-activedocument (vlax-get-acad-object))

        spc (vlax-get doc

		      (if (eq (getvar 'CVPORT) 1)

			'Paperspace

			'Modelspace

		      )

	    )

  )

  (if (setq e (ssget  "_+.:E:S" '((0 . "*POLYLINE"))))

    (progn

      (setq l  (_Lw->lst (ssname e 0))

	    rl (vl-remove-if '(lambda (x) (equal 0.0 (caddr x) 1e-8)) l)

	    rm   (if rl

		   (apply

		     (function min)

		     (mapcar

		       (function

			 (lambda (x)

			   (LM:BulgeRadius (car x) (cadr x) (caddr x))

			 )

		       )

		       rl

		     )

		   )

		 )

	    pi/2 (/ pi 2)

      )

      (while (and (setq d (getdist (caar l) "\nSpecify Offset Distance: "))

		  (if rm (>= d rm)))

	(princ (strcat "\nOffset Distance must: < [" (rtos rm 2 2) "]: ")))

      (initget "Left Right")

      (setq *ans*

	     (cond

	       (

		(getkword

		  (strcat "\nChoose [Left/Right] <"

			  (setq	*ans*

				 (cond (*ans*)  ("Left"))

			  )

			  ">: "

		  )

		)

	       )

	       (*ans*)

	     )

      )

      (if (= "Left" *ans*) (setq s +) (setq s -))

      (vla-startundomark doc)

      (foreach x l

	(if (= 0 (caddr x))

	  (_DimAligned spc (car x) (cadr x) (polar (cadddr x) (s (last x) pi/2) d))

	  (progn

	    (setq cen (LM:BulgeCenter (car x) (cadr x) (caddr x)))

	    (_DimArc spc cen (car x) (cadr x) (polar (cadddr x) (s (last x) pi/2) d))

	    (_DimRadial spc cen (cadddr x)))

	)

      )

      (*error* nil)

    )

  )

  (princ)

)


;;=========================== Sub Function ==============================;;


;; Bulge Center  -  Lee Mac

;; p1 - start vertex

;; p2 - end vertex

;; b  - bulge

;; Returns the center of the arc described by the given bulge and vertices


(defun LM:BulgeCenter ( p1 p2 b )

    (polar p1

        (+ (angle p1 p2) (- (/ pi 2) (* 2 (atan b))))

        (/ (* (distance p1 p2) (1+ (* b b))) 4 b)

    )

)


;; Bulge Radius  -  Lee Mac

;; p1 - start vertex

;; p2 - end vertex

;; b  - bulge

;; Returns the radius of the arc described by the given bulge and vertices


(defun LM:BulgeRadius ( p1 p2 b )

    (/ (* (distance p1 p2) (1+ (* b b))) 4 (abs b))

)


(defun _Lw->lst	(e / a b lst mid o p1 p2 pr)

  (setq	o  (vlax-ename->vla-object e)

	pr -1

  )

  (repeat (fix (vlax-curve-getEndParam o))

    (setq

      p1  (vlax-curve-getpointatparam o (setq pr (1+ pr)))

      p2  (vlax-curve-getpointatparam o (1+ pr))

      mid (vlax-curve-getpointatparam o (+ pr 0.5))

      b	  (vla-getbulge o pr)

      a	  (angle p1 p2)

      lst (cons (list p1 p2 b mid a) lst)

    )

  )

  (reverse lst)

)


(defun _DimArc (spc cen p1 p2 pt)

  (vlax-invoke spc 'addDimArc cen p1 p2 pt)

)


(defun _DimRadial (spc cen pt)

  (vlax-invoke spc 'AddDimRadial cen pt (/ (distance cen pt) -2.0))

)


(defun _DimAligned (spc p1 p2 pt)

  (vlax-invoke spc 'adddimaligned p1 p2 pt)

)


(vl-load-com)

Chỉnh sửa Tháng 6 19, 2015 theo snowman.hms

Tháng 6 19, 2015

biến đầu vào dis của các bạn phải nhỏ hơn bán kính của cung tròn nhỏ nhất nếu không sẽ dẫn đến kết quả không mong muốn (khi dis> Rmin) :)

Tháng 6 20, 2015

Mình đang sử dụng cad2008 mà

Bạn xem lại

Sorry! Do mình làm trên 2 CAD2008 và 2012, buồn ngủ nữa nên test CAD2012 cứ tưởng là test trên CAD 2008

code mình sửa

(defun c:dopl(/ ghidim acadObj doc modelSpace e ddat)
(defun ghidim(e ddat i / dis lst-dim)
       (setq obj (vlax-ename->vla-object e))
       (setq dis (distance ddat (vlax-curve-getclosestpointto e ddat t)))
     (Repeat (fix (vlax-curve-getEndParam e))
       (if (= 0 (vla-GetBulge obj i))
      (vla-AddDimAligned modelSpace
                    (vlax-3d-point (vlax-curve-getpointatparam e i)) (vlax-3d-point (vlax-curve-getpointatparam e (1+ i)) )
                    (vlax-3d-point (polar (vlax-curve-getpointatparam e (+ i 0.5))
                           (- (angle '(0 0 0) (vlax-curve-getFirstDeriv e (+ i 0.5))) (/ pi 2.0)) dis)
                    )
      )
(progn
 (vla-adddimradial modelSpace (vlax-3d-point (mapcar '+ (vlax-curve-getpointatparam e (+ i 0.5)) (vlax-curve-getSecondDeriv e (+ i 0.5)))) 
  (vlax-3d-point (vlax-curve-getpointatparam e (+ i 0.5))) 0.0
 ) (setq lst-dim (append lst-dim (list (entlast))))
          (vla-AddDimArc modelSpace (vlax-3d-point (mapcar '+ (vlax-curve-getpointatparam e (+ i 0.5)) (vlax-curve-getSecondDeriv e (+ i 0.5))))
                    (vlax-3d-point (vlax-curve-getpointatparam e i)) (vlax-3d-point (vlax-curve-getpointatparam e (1+ i)) )
                    (vlax-3d-point (polar (vlax-curve-getpointatparam e (+ i 0.5))
                           (- (angle '(0 0 0) (vlax-curve-getFirstDeriv e (+ i 0.5))) (/ pi 2.0)) dis)
                    )
          )
)
        );if
(setq lst-dim (append lst-dim (list (entlast))))
    (setq i (1+ i))
    );Repeat
lst-dim
)
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
 
    (setq modelSpace (vla-get-ModelSpace doc))
  (if (and (setq e (car(entsel "\n Chon Pline : "))) (setq ddat (getpoint (vlax-curve-getstartpoint e) "\nDist (Pick diem) :")))
     (progn
(setq lst-dim (ghidim e ddat 0))
(initget "Y N")
(if (= "Y" (getkword "\nBan muon ghi dim theo huong nguoc lai <Y/N>")) (progn
   (mapcar 'entdel lst-dim) ;(command "._pedit" e "R" "") 
   (ghidim (Rpl e) ddat 0)
))
  );progn
 );if
(princ)
)
(defun rpl (p-ent)
(setq again nil)
;;;;(setq p-ent nil)
;;;;;;;;;;;(prompt "\nSelect a polyline: ")
;;;;;;(while (not p-ent)
;;;;(setq p-ent (car (entsel)))
(if (not p-ent)
(progn
(if (and (/= (dxf 0 p-ent) "POLYLINE")
(/= (dxf 0 p-ent) "LWPOLYLINE")
) ;_ end of and
(progn
(prompt "\nNot a polyline, select again:"
) ;_ end of prompt
(setq p-ent nil)
) ; progn
) ;_ end of if
) ;_ end of progn
) ;_ end of if
;;;;) ;_ end of while
(setq etype (dxf 0 p-ent)
x-ent p-ent
is-closed (dxf 70 p-ent)
) ; setq
(if (= etype "LWPOLYLINE")
(progn
(setq num-vert (dxf 90 p-ent)
elist (entget p-ent)
elist (member (assoc 10 elist) elist)
vvlist nil
) ; setq
(repeat num-vert
(setq vlist (list (cdr (assoc 10 elist))))
(setq vlist
(append vlist
(list (cdr (assoc 42 elist)))
) ;_ end of append
) ;_ end of setq
(setq vvlist (append vvlist
(list vlist)
) ;_ end of append
) ;_ end of setq
(setq elist (cdr elist)
elist (member (assoc 10 elist) elist)
) ; setq
) ; repeat
) ; progn lwpolyline
(progn
(setq vvlist nil
p-ent (entnext p-ent)
) ; setq
(while (/= "SEQEND"
(cdr
(assoc 0 (entget p-ent))
) ;_ end of cdr
) ;_ end of /=
(setq vlist (list (dxf 10 p-ent)))
(setq vlist (append vlist
(list (dxf 42 p-ent))
) ;_ end of append
) ;_ end of setq
(setq vvlist (append vvlist
(list vlist)
) ;_ end of append
) ;_ end of setq
(setq p-ent (entnext p-ent))
) ; while
) ; progn polyline
) ; if
(setq p-list (mapcar 'car vvlist)
p-list (reverse p-list)
b-list (mapcar 'cadr vvlist)
b-list (reverse b-list)
b-first (car b-list)
b-list (cdr b-list)
b-list (append b-list (list b-first))
b-list (mapcar '- b-list)
) ; setq
(setq enlist (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length p-list))
(cons 70 (dxf 70 x-ent))
(cons 8 (dxf 8 x-ent))
) ; list
) ; setq
(setq elst nil)
(repeat (length p-list)
(setq
elst (append elst
(list (cons 10 (car p-list)))
) ;_ end of append
) ; setq
(setq
elst (append elst
(list (cons 42 (car b-list)))
) ;_ end of append
) ; setq
(setq p-list (cdr p-list))
(setq b-list (cdr b-list))
) ; repeat
(setq enlist (append enlist elst))
(entdel x-ent)
(entmakex enlist)
;;;;;(prompt "\nPolyline direction is reversed.\n ")
;;;;(princ)
);rpl
(defun dxf (code ename)
(cdr (assoc code (entget ename)))
)

Tháng 6 20, 2015

Đã ok rồi

Cám ơn mọi người

Tháng 6 20, 2015

Ok con bê! Diễn đàn có nhiều cao thủ quá nể :D !

Tháng 7 8, 2019

Diễn đàn cho hỏi lisp này có thể chỉnh sửa lại xíu là có thể chọn nhiều đối tượng 1 lúc k ạ

Tháng 9 9, 2021

Vào lúc 20/6/2015 tại 07:24, Tue_NV đã nói:

Sorry! Do mình làm trên 2 CAD2008 và 2012, buồn ngủ nữa nên test CAD2012 cứ tưởng là test trên CAD 2008

code mình sửa

dopl.lsp
[✎]


(defun c:dopl(/ ghidim acadObj doc modelSpace e ddat)
(defun ghidim(e ddat i / dis lst-dim)
       (setq obj (vlax-ename->vla-object e))
       (setq dis (distance ddat (vlax-curve-getclosestpointto e ddat t)))
     (Repeat (fix (vlax-curve-getEndParam e))
       (if (= 0 (vla-GetBulge obj i))
      (vla-AddDimAligned modelSpace
                    (vlax-3d-point (vlax-curve-getpointatparam e i)) (vlax-3d-point (vlax-curve-getpointatparam e (1+ i)) )
                    (vlax-3d-point (polar (vlax-curve-getpointatparam e (+ i 0.5))
                           (- (angle '(0 0 0) (vlax-curve-getFirstDeriv e (+ i 0.5))) (/ pi 2.0)) dis)
                    )
      )
(progn
 (vla-adddimradial modelSpace (vlax-3d-point (mapcar '+ (vlax-curve-getpointatparam e (+ i 0.5)) (vlax-curve-getSecondDeriv e (+ i 0.5)))) 
  (vlax-3d-point (vlax-curve-getpointatparam e (+ i 0.5))) 0.0
 ) (setq lst-dim (append lst-dim (list (entlast))))
          (vla-AddDimArc modelSpace (vlax-3d-point (mapcar '+ (vlax-curve-getpointatparam e (+ i 0.5)) (vlax-curve-getSecondDeriv e (+ i 0.5))))
                    (vlax-3d-point (vlax-curve-getpointatparam e i)) (vlax-3d-point (vlax-curve-getpointatparam e (1+ i)) )
                    (vlax-3d-point (polar (vlax-curve-getpointatparam e (+ i 0.5))
                           (- (angle '(0 0 0) (vlax-curve-getFirstDeriv e (+ i 0.5))) (/ pi 2.0)) dis)
                    )
          )
)
        );if
(setq lst-dim (append lst-dim (list (entlast))))
    (setq i (1+ i))
    );Repeat
lst-dim
)
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
 
    (setq modelSpace (vla-get-ModelSpace doc))
  (if (and (setq e (car(entsel "\n Chon Pline : "))) (setq ddat (getpoint (vlax-curve-getstartpoint e) "\nDist (Pick diem) :")))
     (progn
(setq lst-dim (ghidim e ddat 0))
(initget "Y N")
(if (= "Y" (getkword "\nBan muon ghi dim theo huong nguoc lai <Y/N>")) (progn
   (mapcar 'entdel lst-dim) ;(command "._pedit" e "R" "") 
   (ghidim (Rpl e) ddat 0)
))
  );progn
 );if
(princ)
)
(defun rpl (p-ent)
(setq again nil)
;;;;(setq p-ent nil)
;;;;;;;;;;(prompt "\nSelect a polyline: ")
;;;;;(while (not p-ent)
;;;(setq p-ent (car (entsel)))
(if (not p-ent)
(progn
(if (and (/= (dxf 0 p-ent) "POLYLINE")
(/= (dxf 0 p-ent) "LWPOLYLINE")
) ;_ end of and
(progn
(prompt "\nNot a polyline, select again:"
) ;_ end of prompt
(setq p-ent nil)
) ; progn
) ;_ end of if
) ;_ end of progn
) ;_ end of if
;;;) ;_ end of while
(setq etype (dxf 0 p-ent)
x-ent p-ent
is-closed (dxf 70 p-ent)
) ; setq
(if (= etype "LWPOLYLINE")
(progn
(setq num-vert (dxf 90 p-ent)
elist (entget p-ent)
elist (member (assoc 10 elist) elist)
vvlist nil
) ; setq
(repeat num-vert
(setq vlist (list (cdr (assoc 10 elist))))
(setq vlist
(append vlist
(list (cdr (assoc 42 elist)))
) ;_ end of append
) ;_ end of setq
(setq vvlist (append vvlist
(list vlist)
) ;_ end of append
) ;_ end of setq
(setq elist (cdr elist)
elist (member (assoc 10 elist) elist)
) ; setq
) ; repeat
) ; progn lwpolyline
(progn
(setq vvlist nil
p-ent (entnext p-ent)
) ; setq
(while (/= "SEQEND"
(cdr
(assoc 0 (entget p-ent))
) ;_ end of cdr
) ;_ end of /=
(setq vlist (list (dxf 10 p-ent)))
(setq vlist (append vlist
(list (dxf 42 p-ent))
) ;_ end of append
) ;_ end of setq
(setq vvlist (append vvlist
(list vlist)
) ;_ end of append
) ;_ end of setq
(setq p-ent (entnext p-ent))
) ; while
) ; progn polyline
) ; if
(setq p-list (mapcar 'car vvlist)
p-list (reverse p-list)
b-list (mapcar 'cadr vvlist)
b-list (reverse b-list)
b-first (car b-list)
b-list (cdr b-list)
b-list (append b-list (list b-first))
b-list (mapcar '- b-list)
) ; setq
(setq enlist (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length p-list))
(cons 70 (dxf 70 x-ent))
(cons 8 (dxf 8 x-ent))
) ; list
) ; setq
(setq elst nil)
(repeat (length p-list)
(setq
elst (append elst
(list (cons 10 (car p-list)))
) ;_ end of append
) ; setq
(setq
elst (append elst
(list (cons 42 (car b-list)))
) ;_ end of append
) ; setq
(setq p-list (cdr p-list))
(setq b-list (cdr b-list))
) ; repeat
(setq enlist (append enlist elst))
(entdel x-ent)
(entmakex enlist)
;;;;;(prompt "\nPolyline direction is reversed.\n ")
;;;(princ)
);rpl
(defun dxf (code ename)
(cdr (assoc code (entget ename)))
)

Mong AD có thể sửa code về cad 2007 được không ạ?

Tháng 9 9, 2021

7 giờ trước, trungkaka119 đã nói:

Mong AD có thể sửa code về cad 2007 được không ạ?

Tôi không phải AD, nhưng tôi đoán bạn nhấn phím download nên chạy bị lỗi, chứ không phải lisp dùng cho cad cao hay thấp gì cả.

Bạn dùng cái này không bị lỗi download.

dopl.lsp

Tháng 11 1, 2021

Mình muốn bạn giúp chỉnh lisp trên, không thể hiện đường line và mũi têm của Dim. Cảmơn

do kthuoc.dwg

do kthuoc 2.dwg

Tháng 11 1, 2021

19 phút trước, tientracdia đã nói:

Mình muốn bạn giúp chỉnh lisp trên, không thể hiện đường line và mũi têm của Dim. Cảmơn

do kthuoc.dwg

do kthuoc 2.dwg

Bạn cài đặt trong dim nhé

Tháng 11 2, 2021

Mình muốn thể hiện thêm các chấm tròn trên từng đình, phải thể hiện sao vậy anh

do kthuoc 3.dwg

Tháng 11 2, 2021

2 giờ trước, tientracdia đã nói:

Mình muốn thể hiện thêm các chấm tròn trên từng đình, phải thể hiện sao vậy anh

do kthuoc 3.dwg

Tạo 1 block tên "1" như trong file này và chạy lisp.

do kthuoc 3.dwg

dopl.lsp

Tháng 11 3, 2021

Vẩn không đưa được điểm nút đỉnh vào được anh à

do kthuoc 3_2.dwg

Tháng 11 3, 2021

1 giờ} trướ}c, tientracdia đã nói:

Vẩn không đưa được điểm nút đỉnh vào được anh à

do kthuoc 3_2.dwg

Cái block của tôi nó đẹp như thế mà bạn nỡ nào dời điểm chèn nó tít tận đâu đâu để làm gì vậy? Nó vẫn chèn đó chứ nhưng do điểm chèn không đúng nên zoom all mới thấy.

Hay là bạn muốn vẽ cái circle và hatch thay vì block? Nếu vậy chờ người khác viết cho bạn nhé.

Tháng 11 3, 2021

(defun c:mocranhgioi ( / ENT I LS MODELSPACE N P1 P2)
  (if (not (tblsearch "block" "mocranhgioi"))
    (progn
      (entmake '((0 . "BLOCK")(2 . "mocranhgioi")(70 . 2)(10 0.0 0.0 0.0)))
      (entmake '((0 . "LINE")(8 . "0") (10 -0.7 0.0 0.0) (11 0.7 0.0 0.0)))
      (entmake '((0 . "LINE")(8 . "0") (10 0.0 0.7 0.0) (11 0.0 -0.7 0.0)))
      (entmake '((0 . "CIRCLE")(8 . "0") (10 0.0 0.0 0.0) (40 . 0.7)))
      
      (entmake '((0 . "ENDBLK")))
      ))
    
  
(setq ent (car (entsel)))
 
(setq modelSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq ls (car(acet-pline-segment-list (entget ent)))
      n (length ls)
      i 0)
(while (< i (- n 1))
  
    (progn
      (setq p1 (vlax-3d-point (nth i ls))
            p2 (vlax-3d-point (nth (+ i 1) ls))
            )
     (vla-AddDimAligned modelSpace p1 p2 p2)
     (vla-InsertBlock modelSpace p1 "mocranhgioi" 1 1 1 0)
     )
   
  (setq i (1+ i))
  )
  )

6 giờ trước, alisp đã nói:

Cái block của tôi nó đẹp như thế mà bạn nỡ nào dời điểm chèn nó tít tận đâu đâu để làm gì vậy? Nó vẫn chèn đó chứ nhưng do điểm chèn không đúng nên zoom all mới thấy.

Hay là bạn muốn vẽ cái circle và hatch thay vì block? Nếu vậy chờ người khác viết cho bạn nhé.

Nên code thêm block vào, vì trong bản vẽ không phải lúc nào cũng có block đó.

Tháng 11 4, 2021

Sorry, mình không hiểu block bạn tạo và nằm ở đâu.

Nếu việc tạo block khó vậy mình có thể dùng điểm point trê cad để chèn vào được không bạn

canh moc ranh.dwg

Tháng 11 4, 2021

2 giờ trước, tientracdia đã nói:

Sorry, mình không hiểu block bạn tạo và nằm ở đâu.

Nếu việc tạo block khó vậy mình có thể dùng điểm point trê cad để chèn vào được không bạn

canh moc ranh.dwg

dopl.lsp

Đăng nhập

Lisp dim khoảng cách liên tiếp trên Polyline - Pline

Các bài được khuyến nghị

quocmanh04tt 634

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

huunhantvxdts 195

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

quocmanh04tt 634

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

snowman.hms 59

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

snowman.hms 59

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

Tue_NV 3.912

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

huunhantvxdts 195

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

thanhduan2470 1

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

NGUYENVANHIEUGTVT 7

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

trungkaka119 2

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

alisp 72

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

tientracdia 16

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

huunhantvxdts 195

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

tientracdia 16

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

alisp 72

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

tientracdia 16

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

alisp 72

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

cuongtk2 332

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

tientracdia 16

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

alisp 72