Nhờ sửa list đo chiều dài tl

[sg0nline 5]

Mình có sửa list này làm tròn số thành 13.9 ( hình minh họa) nhưng ko hiểu sao vào cad lại không được, với bạn nào sửa dùm cho copy vào clipboard luôn được không . cảm ơn

;;;--------------------------------------------------------------------
(defun Length1(e) (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))
;;;--------------------------------------------------------------------
(defun C:TL( / ss L e)
(setq
   ss (ssget  (list (cons 0 "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))
   L 0.0
)(vl-load-com)
(while (setq e (ssname ss 0))
   (setq L (+ L (length1 e)))
   (ssdel e ss)
)
(alert (strcat "Total length = " (rtos (/ L 1000) 2 1 )))
)
;;;-------------------------------------------------------------

[Danh Cong 422]

(rtos (/ L 1000) 2 1) thay cho (rtos L 2 1)

[sg0nline 5]

còn copy vào clipboard làm sao mod danh cong 

[duy782006 1573]

Mình copy được trên cadviet này

(defun _SetClipBoardText ( text / htmlfile result )
    (setq result
        (vlax-invoke
            (vlax-get
                (vlax-get
                    (setq htmlfile (vlax-create-object "htmlfile"))
                   'ParentWindow
                )
               'ClipBoardData
            )
           'SetData
            "Text"
            text
        )
    )

    (vlax-release-object htmlfile)
    text
)