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 | 
 

 nối hatch

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 đề: nối hatch   Thu Oct 13, 2016 2:17 pm

(defun c:mh (/ ss entht sl i dt dtht) (princ "\nMerge Hatch - free lisp from CADViet.com") (setq ss (ssget '((0 . "HATCH"))) sl (if ss (sslength ss) 0 ) i 0 l 0 ) (repeat sl (setq entht (ssname ss i) dtht (getbdata entht) dt (append dt dtht) l (+ l (cdr (assoc 91 (entget entht)))) i (1+ i) ) ) (setq ent (ssname ss 0) ss (ssdel ent ss) tt (entget ent) duoi (member (assoc 75 tt) tt) dau (reverse (member (assoc 91 tt) (reverse tt))) tt (append dau dt duoi) tt (subst (cons 91 l) (assoc 91 tt) tt) ) (entmod tt) (command ".erase" ss "") (princ))(defun getbdata (ent) (setq tt (entget ent) tt (cdr (member (assoc 75 tt) (reverse tt))) tt (cdr (member (assoc 91 tt) (reverse tt))) ))(princ "\nMerge Hatch is loaded, please type MH to start!")(princ)
Về Đầu Trang Go down
Xem lý lịch thành viên
 
nối hatch
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

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