NguyenNdait 5 Báo cáo bài đăng Đã đăng Tháng 12 7, 2010 Các bác Pro cho em hỏi, có cách nào để chọn được các đối tượng mình vừa copy ra không ? Cụ thể như sau: Có đối tượng A có sẵn, Em Copy đối tượng A ra, đối tượng mới sinh ra là B giống hệt A. Như vậy có cách nào chọn nhanh đối tượng B sau lệnh copy đó không ? mong các bác Pro chỉ giáo ! Một câu hỏi lớn không lời đáp . . . TB: Không dùng block cũng chẳng cần lsp phải không HG 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
ketxu 2984 Báo cáo bài đăng Đã đăng Tháng 12 7, 2010 Một câu hỏi lớn không lời đáp . . .TB: Không dùng block cũng chẳng cần lsp phải không HG :undecided: :wub: Nếu đúng ra phải dùng emotion cười sặc sụa nhưng ở đây k có :) 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
hhhhgggg 29 Báo cáo bài đăng Đã đăng Tháng 12 9, 2010 1. Sử dụng Lisp cp.lsp của Tue_NV để copy đối tượng A -> A12. Sử dụng lệnh Move -> Ở dòng select object : gõ p sẽ chọn lại đối tượng A1 Tue_NV hiểu như thế là sai chăng? mình copy bình thường, Nhóm đối tượng A => A1. Bây giờ nhiệm vụ là move các đối tượng thuộc nhóm A1 đi chỗ khác. Thì ko thể dùng "M" rùi "P" được ? Vì khi ta dùng như vậy thì đối tượng bị Move đi là đối tượng A chứ không phải A1. Mục đích muốn move A1 đi chỗ khác vì khi copy đặt nhầm vị trí của A1 ??? Như vậy thì ta không phải Select object nữa ! 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
ketxu 2984 Báo cáo bài đăng Đã đăng Tháng 12 9, 2010 Hự.Bạn thực sự đã thử chưa :undecided: 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
NguyenNdait 5 Báo cáo bài đăng Đã đăng Tháng 12 9, 2010 mình copy bình thường, Nhóm đối tượng A => A1. Bây giờ nhiệm vụ là move các đối tượng thuộc nhóm A1 đi chỗ khác. Thì ko thể dùng "M" rùi "P" được ? Vì khi ta dùng như vậy thì đối tượng bị Move đi là đối tượng A chứ không phải A1. Mục đích muốn move A1 đi chỗ khác vì khi copy đặt nhầm vị trí của A1 ??? Như vậy thì ta không phải Select object nữa ! Ok. được thôi. Hôm nào rảnh mình làm cho cái lsp thỏa mãn yêu cầu của bạn. 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
duy782006 1559 Báo cáo bài đăng Đã đăng Tháng 12 9, 2010 Ok. được thôi. Hôm nào rảnh mình làm cho cái lsp thỏa mãn yêu cầu của bạn. Eo chứ mô phật ông NguyenNdait và ông hhhhgggg không đọc bài của con ạ?? 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
ketxu 2984 Báo cáo bài đăng Đã đăng Tháng 12 9, 2010 :undecided:) BÁc Duy cũng k chịu được rồi kìa :wub:) .Rõ ràng là những bài reply của 2 pác NguyenNdaiit và hhhhgggg chẳng ăn nhập j với bao phương án anh em post lên cả ^^.Bác nào mod check IP xem nào ^^ 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
hhhhgggg 29 Báo cáo bài đăng Đã đăng Tháng 12 10, 2010 :undecided:) BÁc Duy cũng k chịu được rồi kìa :wub:) .Rõ ràng là những bài reply của 2 pác NguyenNdaiit và hhhhgggg chẳng ăn nhập j với bao phương án anh em post lên cả ^^.Bác nào mod check IP xem nào ^^ Huhu. Cái bác Duy này. Em đã dùng cái CPP của bác ngay từ khi bác post lên. Nhưng mà nó chỉ có tác dụng copy như bình thường . Em chẳng thấy nó khác lệnh copy chỗ nào. Hay là e chưa bit dùng. huhuhuhu 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
duy782006 1559 Báo cáo bài đăng Đã đăng Tháng 12 10, 2010 Huhu. Cái bác Duy này. Em đã dùng cái CPP của bác ngay từ khi bác post lên. Nhưng mà nó chỉ có tác dụng copy như bình thường . Em chẳng thấy nó khác lệnh copy chỗ nào. Hay là e chưa bit dùng. huhuhuhu Nó không khác lệnh copy chổ nào cả chỉ khác là sau khi dùng nó thì dùng lệnh MOVE hay lệnh gì gì đi nửa muốn chọn đối tượng tạo ra sau cùng thì gỏ P như cái yêu cầu của ông ấy ạ. 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
NguyenNdait 5 Báo cáo bài đăng Đã đăng Tháng 12 10, 2010 Huhu. Cái bác Duy này. Em đã dùng cái CPP của bác ngay từ khi bác post lên. Nhưng mà nó chỉ có tác dụng copy như bình thường . Em chẳng thấy nó khác lệnh copy chỗ nào. Hay là e chưa bit dùng. huhuhuhu Đây, xong rồi nè. Không phải chít liền (defun c:Pss (/ n l h ss k h1 Rh1 Rh2) ;Preview selection set (initget 7) (setq n (getint "\nSo lan copy : ")) (setq l (sslength (ssget "P")) h (cdr (assoc 5 (entget (entlast)))) ss (ssadd)) (repeat (* n l) (setq k 0 h1 h Rh2 "" ss (ssadd (handent h) ss)) (while (= (setq Rh (substr h (strlen h) 1)) "0") (setq k (1+ k) h (substr h 1 (1- (strlen h))))) (if (= k 0) (progn (setq Rh1 (substr h1 (strlen h1) 1)) (mapcar '(lambda (a b) (if (= Rh1 a) (setq Rh1 b))) '("1" "2" "3" "4" "5" "6" "7" "8" "9" "A" "B" "C" "D" "E" "F") '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "A" "B" "C" "D" "E")) (setq h (strcat (substr h1 1 (1- (strlen h1))) Rh1))) (progn (repeat k (setq Rh2 (strcat Rh2 "F"))) (mapcar '(lambda (a b) (if (= Rh a) (setq Rh b))) '("1" "2" "3" "4" "5" "6" "7" "8" "9" "A" "B" "C" "D" "E" "F") '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "A" "B" "C" "D" "E")) (setq h (strcat (substr h 1 (1- (strlen h))) Rh Rh2))))) (sssetfirst nil ss)) TB : Cẩn thận khi sử dụng 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
NguyenNdait 5 Báo cáo bài đăng Đã đăng Tháng 12 10, 2010 Xin lỗi, không hiểu sao chữ b lại ra thành bộ mặt cười 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
hhhhgggg 29 Báo cáo bài đăng Đã đăng Tháng 12 10, 2010 Xin lỗi, không hiểu sao chữ b lại ra thành bộ mặt cười ok ! hehe ! chuẩn không cần chỉnh ! thanks bác nhìu nhé. Em trân trọng kính tặng bác 1 con gà quay... hiiii http://www.google.com.vn/imglanding?imgurl...ved=0CB8Q9QEwAQ 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
then_dien 0 Báo cáo bài đăng Đã đăng Tháng 12 10, 2010 Cha chỉ cần hỏi là cha có A xong cha copy nó ra B, C,D bây giờ cha muốn chọn B,C,D thì người ta viết cái phẹt ra cho cha từ lâu rồi. Chả hiểu là ngu lâu hay dốt bền nửa. 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
ketxu 2984 Báo cáo bài đăng Đã đăng Tháng 12 10, 2010 Khá sáng tạo,n giải quyết theo hướng này copy đến lần nào đếm lần đó mất :"> @hhhhgggg : ..............Mình chẳng hiểu là bạn có hiểu bạn cần gì k.Và liệu bạn có biết cách dùng thứ mà bạn yêu cầu người ta viết không Tóm lại là đã có 3 cách 1 Chọn lại 1 tập đối tượng cuối cùng ( mọi người đã post,điển hình là cpp.Lệnh này thay thế cho lệnh copy.Sau khi kết thúc lệnh này,nhóm đối tượng cuối cùng đã được chọn,dùng lệnh j sau đó với tham số P là được) 2.Chọn lại số tập đối tượng thứ n trở về trước sau khi kết thúc lệnh copy (pss mà bạn j đó vừa post) 3.Chọn lại toàn bộ các đối tượng từ lúc bắt đầu copy ( khỏi đếm số lần,đã sưu tầm,mình post bên dưới,cách dùng cũng là dùng c1 thay cho lệnh copy.Sau đó sử dụng lại các đối tượngvừa copy ra với tham số P) (defun C:c1 ( / ss ) (setvar "CMDECHO" 1) ;;;Creat Marker (mip:mark) ;;;Preform commands (princ "\nSelect objects for copying... ") (setq ss (ssget "_:L")) (command "_COPY" ss "" "_M") (while (> (getvar "CMDACTIVE") 0)(command pause)) ;;; Select all entities created after copy (setq ss (mip:get-last-ss)) ;;; Change color new objects to red (if ss (command "_select" ss "" ) ) (setq ss nil) (princ) ) (defun mip:mark ( ) ;;;* Mark data base to allow KB:catch. ;;;* [url="http://www.theswamp.org/index.php?topic=15863.0"]http://www.theswamp.org/index.php?topic=15863.0[/url] (if (setq *mip:mark (entlast)) nil (progn (entmake '((0 . "point") (10 0.0 0.0 0.0))) (setq *mip:mark (entlast))(entdel *mip:mark)))(princ)) ;;;* returns selection set of entities since last mip:mark. (defun mip:get-last-ss (/ ss tmp val) (setq val (getvar "cmdecho"))(setvar "cmdecho" 0) (if *mip:mark (progn (setq ss (ssadd)) (while (setq *mip:mark (entnext *mip:mark))(ssadd *mip:mark ss)) (command "._select" ss "")(setq tmp ss ss nil));_progn (alert "*mip:mark not set. \n run (mip:mark) before mip:get-last-ss."));_if (setvar "cmdecho" val) tmp) p/s : .... 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