DIỄN ĐÀN TÂM NĂNG DƯỠNG SINH PHỤC HỒI SỨC KHỎE
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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 https://tamnangduongsinh.forumvi.com
 
Trang ChínhPortalGalleryLatest imagesTìm kiếmĐăng kýĐăng Nhập
Đă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
Hỗ trợ trực tuyến
Admin : Nguyễn Gia Sơn điện thoại 0983559480
Thống kê truy cập diễn đàn
Top posters
tamnangduongsinh (586)
Copy doi tuong tu XREF hoac Block I_vote_lcapCopy doi tuong tu XREF hoac Block I_voting_barCopy doi tuong tu XREF hoac Block I_vote_rcap 
Admin (372)
Copy doi tuong tu XREF hoac Block I_vote_lcapCopy doi tuong tu XREF hoac Block I_voting_barCopy doi tuong tu XREF hoac Block I_vote_rcap 
tamphat (129)
Copy doi tuong tu XREF hoac Block I_vote_lcapCopy doi tuong tu XREF hoac Block I_voting_barCopy doi tuong tu XREF hoac Block I_vote_rcap 
Latest topics
» Hàm lượng cốt thép
Copy doi tuong tu XREF hoac Block I_icon_minitimeTue Apr 09, 2024 11:15 am by tamnangduongsinh

» Hướng dẫn cách kiểm tra độ chai pin laptop, máy tính cực đơn giản
Copy doi tuong tu XREF hoac Block I_icon_minitimeFri Mar 29, 2024 9:20 am by tamnangduongsinh

» GIẾNG CÁT
Copy doi tuong tu XREF hoac Block I_icon_minitimeWed Mar 27, 2024 3:58 pm by tamnangduongsinh

» HƯỚNG DẪN PHÂN TÍCH THÀNH PHẦN HẠT CỦA CÁT
Copy doi tuong tu XREF hoac Block I_icon_minitimeSat Mar 23, 2024 9:53 am by tamnangduongsinh

» Hướng dẫn cách xả pin laptop đúng cách
Copy doi tuong tu XREF hoac Block I_icon_minitimeSat Mar 23, 2024 9:35 am by tamnangduongsinh

» "Vụ tử vong vì laptop phát nổ ở Hải Dương": Có thật là vừa cắm sạc vừa dùng sẽ khiến máy tính phát nổ?
Copy doi tuong tu XREF hoac Block I_icon_minitimeSat Mar 23, 2024 8:56 am by tamnangduongsinh

» Hướng dẫn khắc phục lỗi không ghost được với ổ cứng SSD
Copy doi tuong tu XREF hoac Block I_icon_minitimeFri Mar 15, 2024 2:35 pm by Admin

» Cách Boot WinPE từ ổ cứng không cần USB với 1 click
Copy doi tuong tu XREF hoac Block I_icon_minitimeFri Mar 15, 2024 2:33 pm by Admin

»  Cách bung file Ghost (.GHO) trên máy tính chuẩn UEFI
Copy doi tuong tu XREF hoac Block I_icon_minitimeFri Mar 15, 2024 2:31 pm by tamnangduongsinh

» Hướng dẫn sử dụng Grab Booking trên điện thoại cực kỳ đơn giản
Copy doi tuong tu XREF hoac Block I_icon_minitimeFri Mar 15, 2024 11:36 am by tamnangduongsinh

Tìm kiếm
 
 

Display results as :
 

 


Rechercher Advanced Search

KẾT QUẢ XỔ SỐ
Keywords
CHIỀU tròn 1 3 4 cống thiết 6 trắc lisp 2 5 tiện nước ct_height

 

 Copy doi tuong tu XREF hoac Block

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




Tổng số bài gửi : 586
Tổng số điểm : 1397
Được cảm ơn : 85
Join date : 05/12/2014

Copy doi tuong tu XREF hoac Block Empty
Bài gửiTiêu đề: Copy doi tuong tu XREF hoac Block   Copy doi tuong tu XREF hoac Block I_icon_minitimeThu Oct 13, 2016 4:44 pm

;;;--- CPYXREF - Copy any entity from an XREF or a block.
;;;
;;;--- Legalities:
;;; Copyright 2002-2004 by JefferyPSanders.com
;;; All rights reserved.
;;;
;;;; You may use this program for free. You may not obtain profit without consent
;;; from Jeffery P Sanders. You may make copies of this program and distribute as
;;; long as the legalities remain in tact.
;;;
;;; End of Legalities
;;;
;;;--- Created on 7/18/02
;;;

;;;--- Main application
(defun C:CXF()

;;;--- Turn the command echo off
(setvar "cmdecho" 0)

;;;--- Save some system variables
(setq origCmddia(getvar "cmddia"))
(setq origFiledia(getvar "filedia"))

;;;--- Set some system variables
(setvar "cmddia" 0)
(setvar "filedia" 0)

;;;--- Select an entity
(if (setq entselected(entsel "\n Select XRef or Block: "))
(progn

;;;--- Save the entity name
(setq en(car entselected))

;;;--- Save the point selected
(setq selectedPt(cadr entselected))

;;;--- Get entity's DXF group codes
(setq enlist(entget en))

;;;--- If it is a block
(if(= "INSERT" (cdr(assoc 0 enlist)))
(progn

;;;--- Get the dxf group codes for the first sub-entity
(setq enlist2(tblNext "block" en))

;;;--- Save the file name of the block
(setq shortFileName(cdr(assoc 2 enlist))) ;thanks to Günther Bittner for fix

;;;--- Set a mark for the undo command
(command "undo" "mark")

;;;--- Make the XREF part of the drawing temporarily
(command "-xref" "bind" shortFileName)

;;;--- Explode the block temporarily
(command "explode" en)

;;;--- Get the entity at the point selected originally if it exist
(if (setq eset(ssget selectedPt))
(progn

;;;--- Get the name of the entity selected
(setq en(ssname eset 0))

;;;--- Get the DXF group codes of the entity
(setq enlist(entget en))

;;;--- Make a wblock named "X2"
(if(findfile "x2.dwg")
(command "_wblock" "x2" "y" "" selectedPt en "")
(command "_wblock" "x2" "" selectedPt en "")
)

;;;--- Undo everything back to the marked position
(command "undo" "Back")

;;;--- Insert the X2 block
(setq pt1(getpoint selectedPt "\n Insertion Point: "))
(command "insert" "*x2" pt1 "" "")

)
(alert "*Error* - Select a sub-entity.")
)
)
(alert "*Error* - Select a block or an XREF.")
)
)
(alert "*Error* - Select a block or an XREF please.")
)

;;;--- Reset system variables
(setvar "cmddia" origCmddia)
(setvar "filedia" origFiledia)

;;;--- Turn command echo back on
(setvar "cmdecho" 1)

;;;--- Inform the user
(princ "\n ...CPYXREF.lsp Complete. ")
(princ "\n By: Jeffery P. Sanders 7/19/02 Copyright 2002-2004 by JefferyPSanders.com")

;;;--- Suppress last echo for a clean exit
(princ)
)
Về Đầu Trang Go down
 
Copy doi tuong tu XREF hoac Block
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Lisp copy nhiều text được chọn cộng hoặc trừ 1 số bất kỳ
» Lisp lọc đối tượng block
» Lisp copy xoay đối tượng hay hơn lệnh mocoro
» Mirror đối tượng text không quay trong block
» Lisp cad : copy tăng dần copy đến hàng nghìn cũng OK

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