cách chọn đối tượng vừa được copy ra ?

[NguyenNdait 5]

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

[ketxu 2.984]

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ó :)

[hhhhgggg 29]

1. Sử dụng Lisp cp.lsp của Tue_NV để copy đối tượng A -> A1

2. 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 !

[ketxu 2.984]

Hự.Bạn thực sự đã thử chưa :undecided:

[NguyenNdait 5]

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.

[duy782006 1.549]

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 ạ??

[ketxu 2.984]

: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 ^^

[hhhhgggg 29]

: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

[duy782006 1.549]

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 ạ.

[NguyenNdait 5]

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

[NguyenNdait 5]

Xin lỗi, không hiểu sao chữ b lại ra thành bộ mặt cười

[hhhhgggg 29]

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

[then_dien 0]

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.

[ketxu 2.984]

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 : ....