DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE

DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE

Chào mừng quý vị và các bạn đến với diễn đàn http://tamnangduongsinh.forumvi.com
 
Trang ChínhPortalCalendarGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Hỗ trợ trực tuyến- Admin
Admin : Nguyễn Gia Sơn
Chat với Skype Admin!
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Tổng số lượt xem
Thống kê truy cập diễn đàn
Top posters
tamnangduongsinh (318)
 
Admin (308)
 
tamphat (130)
 
Latest topics
Tìm kiếm
 
 

Display results as :
 

 


Rechercher Advanced Search
Đồng hồ và Lịch âm dương

KẾT QUẢ XỔ SỐ
Keywords

Share | 
 

 lisp tính trung bình các đoạn thẳng,các số được chọn ( lệnh tbs và snn)

Go down 
Tác giảThông điệp
tamphat



Tổng số bài gửi : 130
Tổng số điểm : 331
Được cảm ơn : 59
Join date : 23/11/2014

Bài gửiTiêu đề: lisp tính trung bình các đoạn thẳng,các số được chọn ( lệnh tbs và snn)   Thu Oct 13, 2016 2:08 pm

;; free lisp from cadviet.com
;;; this lisp was downloaded from [You must be registered and logged in to see this link.]


(defun add_mline ()

 (foreach e_record_sub e_record

   (cond ((= 10 (car e_record_sub))

  (setq pt1   (cdr e_record_sub)

mline_len 0.0

  )

 )

 ((= 11 (car e_record_sub))

  (setq pt2   (cdr e_record_sub)

mline_len (+ mline_len (distance pt2 pt1))

pt1   pt2

  )

 )

   )

 )

 (setq tot_len (+ tot_len mline_len))

 (ssdel e_name ss)

)



(defun C:tbs (/ tot_len ss e_name e_record e_type)

(grtext -1 "Free from cadviet.com @ketxu")

(setq k (getvar "dimlfac"))

 (setq tot_len 0.0)

 (setq ss (ssget))

 (setq len (sslength ss))

 (if (null ss)

   (exit)

 )

 (while (> (sslength ss) 0)

   (setq e_name (ssname ss 0))

   (setq e_record (entget e_name))

   (setq e_type (cdr (assoc '0 e_record)))

   (cond ((wcmatch e_type "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")

  (command "lengthen" e_name "")

  (setq tot_len (+ tot_len (getvar "PERIMETER")))

  (ssdel e_name ss)

 )

 ((wcmatch e_type "MLINE") (add_mline))

 (e_type (ssdel e_name ss))

   )

 )

(setq tot_len (* k tot_len))

(setq tbinh (/ tot_len len))

 (alert (rtos tbinh 2 2))

)


(defun c:snn ()
(prompt "\nChon text de tinh trung binh cong:")
(setq ss (ssget '((0 . "TEXT")))
sl (sslength ss)
kqua 0
)
(while (and ss (> (sslength ss) 0))
(setq
kqua (+ kqua
(atof (cdr (assoc 1 (entget (setq ent (ssname ss 0))))))
)
)
(ssdel ent ss)
)
(setq kqua (rtos (/ kqua sl) 2 2))
(if (/= (substr kqua 1 1) "-") (setq kqua (strcat "+" kqua)))
(princ kqua)

(setq obj (vlax-ename->vla-object
(car (entsel "\nChon text de ghi ket qua:"))
)
)
(vla-put-TextString obj kqua)
)
Về Đầu Trang Go down
Xem lý lịch thành viên
 
lisp tính trung bình các đoạn thẳng,các số được chọn ( lệnh tbs và snn)
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» ĐỐ VUI TRUNG QUỐC
» Gửi Chồng yêu!Dương Trung Kiên.

Permissions in this forum:Bạn không có quyền trả lời bài viết
DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE :: Autocad :: Lisp autocad-
Chuyển đến