[Hỏi]Chọn đối Tượng Pline Sau Khi Break

[ketxu 2.984]

sam8xd đọc bài trên của mình chưa :o Nếu bạn không dùng mẹo thì có thể sử dụng các phương thức ssget c,cp qua các điểm, đỉnh Pline (cách này có hơi mạo hiểm)

[sam8xd 47]

tạo 1 point ở đâu đó rồi lấy elast

Đã hiểu :lol: cảm ơn anh.

Phương thức (ssget "PO" point) (ssget "O" ptlist) nó có trong cad nào không nhỉ. Dùng C, CP mạo hiểm lắm.

http://www.kxcad.net/progesoft/ProgeSOFT_IntelliCAD_Developer_Reference/idr_lisp_b273.htm

[quac 0]

Xin mọi người giúp tạo lisp cop dãy text được ko ạ, mình đã tìm trong diễn đàn nhưng chỉ có copy nội dung 1 text ra nhiều text chứ không tìm thấy lisp copy nội dung dãy tẽt này sang dãy text khác:
 

Bài toán: Có 2 dãy số A B C D và K X Y Z

Yêu cầu: Quét chọn dãy số A B C D sau đó quét chọn dãy K X Y Z thì sẽ được 2 dãy A B C D

 

Mục đích là do dãy A B C D xếp lung tung, muốn cho vào bảng có form sẵn.

 

Trân trọng cảm ơn

[hiepttr 538]

rảnh rỗi sinh nông nổi nên làm liều cho bạn ! :D :D :D

;lisp copy noi dung tung text nhom nay sang nhom khac
(defun c:TEST( / ss ss1 i ct)
(prompt "\nChon cac text can copy noi dung !")
(setq ss (ssget '((0 . "TEXT,MTEXT"))))
(prompt "\nChon cac text can paste noi dung !")
(setq ss1 (ssget '((0 . "TEXT,MTEXT")))
	  i 0)
(while (and ss ss1 (<= (sslength ss) (sslength ss1)) (< i (sslength ss)))
	(setq ct (assoc 1 (entget (ssname ss i))))
	(entmod (subst ct (assoc 1 (setq info (entget (ssname ss1 i)))) info))
	(setq i (1+ i))
)
(princ)
)

[phamthanhbinh 3.146]

 

rảnh rỗi sinh nông nổi nên làm liều cho bạn ! :D :D :D

;lisp copy noi dung tung text nhom nay sang nhom khac
(defun c:TEST( / ss ss1 i ct)
(prompt "\nChon cac text can copy noi dung !")
(setq ss (ssget '((0 . "TEXT,MTEXT"))))
(prompt "\nChon cac text can paste noi dung !")
(setq ss1 (ssget '((0 . "TEXT,MTEXT")))
	  i 0)
(while (and ss ss1 (<= (sslength ss) (sslength ss1)) (< i (sslength ss)))
	(setq ct (assoc 1 (entget (ssname ss i))))
	(entmod (subst ct (assoc 1 (setq info (entget (ssname ss1 i)))) info))
	(setq i (1+ i))
)
(princ)
)

Hề hề hề,

Bác hieptr ơi, có nhẽ nên check cả số lượng các đối tượng trong tập ss và tập ss1 phải bằng nhau nữa bác ạ.

[hiepttr 538]

Hề hề hề,

Bác hieptr ơi, có nhẽ nên check cả số lượng các đối tượng trong tập ss và tập ss1 phải bằng nhau nữa bác ạ.

ý đồ của mình là nếu số lượng các đối tượng trong ss1 nhiều hơn ss thì chỉ sửa các đối tượng đầu, các "chú phía sau" giữ nguyên

p/s:

để lisp làm việc tốt thì cần thủ thuật chọn đối tượng tốt, VD: pick chọn lần lượt hoặc tùy chọn F ...