Nhờ sửa lisp chọn text

[jangboko 10]

Nhờ các bác sửa giùm hộ e cái lisp này với ạ. 

- Lisp này khi chọn đối tượng mẫu rồi quét vùng chọn thì nó hiện lên số lượng đối tượng giống đối tượng mẫu. Nhưng khi kết thúc lệnh ( ấn phím cách ) thì nó lại ko chọn đc đối tượng giống đối tượng mẫu. E nhờ các bác sửa hộ em khi kết thúc lệnh thì nó chọn được các đối tượng giống đối tượng mẫu. Cảm ơn các bac nhiều :D

lisp đây ạ:

 (defun c:t4 (/ txt)
  (if (not (setq txt (car (entsel "\nChon text mau: "))))
    (princ "\nBan da khong chon text mau!")
    (progn
      (if (not (setq ss    (ssget (list (cons 0 "TEXT")
                     (assoc 40 (entget txt))
                     (assoc 7 (entget txt))
                   )
            )
           )
      )
    (princ "\Ban da khong chon text.")
    (command "_Pselect" ss"")
      )
    )
  )
  (princ)
)
 

[tien2005 242]

Bạn thay dòng lệnh (command "_Pselect" ss"") bằng dòng lệnh (sssetfirst nil ss)

[jangboko 10]

9 phút trước, tien2005 đã nói:

Bạn thay dòng lệnh (command "_Pselect" ss"") bằng dòng lệnh (sssetfirst nil ss)

 

mình đã sửa thành như thế này: 

(defun c:t4 (/ txt)
  (if (not (setq txt (car (entsel "\nChon text mau: "))))
    (princ "\nBan da khong chon text mau!")
    (progn
      (if (not (setq ss    (ssget (list (cons 0 "TEXT")
                     (assoc 40 (entget txt))
                     (assoc 7 (entget txt))
                   )
            )
           )
      )
    (princ "\Ban da khong chon text.")
    (sssetfirt nil ss)
      )
    )
  )
  (princ)
)

 

 

nhưng vẫn ko được bạn ah

[Danh Cong 422]

25 phút trước, jangboko đã nói:

nhưng vẫn ko được bạn ah

Bạn không làm được vì thiếu 1 chữ "Ét sì" :v :v

(SSSETFIRST nil ss)

[jangboko 10]

5 phút trước, Danh Cong đã nói:

Bạn không làm được vì thiếu 1 chữ "Ét sì" :v :v

(SSSETFIRST nil ss)

 

mình làm được rồi. Cám ơn 2 bác nhiều :D