[Hỏi] Hàm ssget trong Autolisp

[Doan Van Ha 3.191]

lisp này hình như là chọn chiều dài bằng với chiều dài line mẫu phải không bác DoanVanHa? em muốn length nó nhỏ hơn length mẫu thì được không bác?

Tham khảo để suy luận sửa thành cái mình cần, vì vẩn vơ đã biết lisp rồi mà. Nếu không tự sửa được thì mới giúp chứ!

Chú ý: bỏ góc + thay equal bởi <= hoặc >= là OK thôi.

[Namvanvo 44]

Tham khảo để suy luận sửa thành cái mình cần, vì vẩn vơ đã biết lisp rồi mà. Nếu không tự sửa được thì mới giúp chứ!

Chú ý: bỏ góc + thay equal bởi <= hoặc >= là OK thôi.

yes, thank bác đã chỉ điểm, em sẽ ngâm cứu chỗ này, nhờ thầy Ket và các bác trên diễn đàn dẫn dắt nên vẩn vơ cũng đã biết một số kiến thức về lisp nhưng level còn vơ vẩn lắm, tuy luôn luôn lắng nge nhưng lâu lâu mới hiểu  :D

[tien2005 241]

mình có điểm p1 (10,10,0) và chọn tất cả các text có dxf 10 >= p1 với lệnh: (ssget "x" '((0 . "*text") (-4 . ">=,>=,*") (10 10.0 10.0 0.0) )) thì OK.

nhưng do p1 thay đổi (dùng getpoint) với lênh: (ssget "x" '((0 . "*text") (-4 . ">=,>=,*") (10 (car p1) (cadr p1) (caddr p1)) )) bị báo lổi "error: bad SSGET list value". xin chỉ cách khắc phục

Thanks

[Doan Van Ha 3.191]

(ssget "x" (list (cons 0 "*text") (cons -4 ">=,>=,*") (list 10 (car 

 

(ssget "x" (list (cons 0 "*text") (cons -4 ">=,>=,*") (list 10 (car p1) (cadr p1) (caddr p1))))

p1) (cadr p1) (caddr p1))))

[Polyline 19]

Mình muốn tạo một tập chọn từ một tập chọn đã có.

Ví dụ:

(setq ss1 (ssget '((0 . "LINE,TEXT")))))

 

Bây giờ mình muốn lấy riêng LINE và TEXT của tập chọn trên thì làm thế nào?

[Doan Van Ha 3.191]

Hàm này dùng để lấy tập chọn theo 1 kiểu nào đó từ tập đã có:

 

;----- Chon tap hop chon theo kieu doi tuong (by HA, khong dung Acet). 
;; VD: (Laydt ss "*TEXT") ; (Laydt ss "*LINE")
(defun Laydt (ss kieu / sss)
 (setq sss (ssadd))
 (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
  (if (wcmatch (cdr (assoc 0 (entget ent))) kieu)
   (ssadd ent sss)))
 sss)
 

[Polyline 19]

Thực ra mình không muốn dùng vòng lặp. Mình đã tìm tra câu trả lời cho câu hỏi ở trên rồi, hehe... Thông qua một câu lệnh của AutoCAD để gán lệnh tập chọn (ssget "p").

(setq ss1 (ssget '((0 . "LINE,TEXT"))))
(setq ss-line (ssget "p" '((0 . "LINE"))))
(command ".select" ss1 "")
(setq ss-text (ssget "p" '((0 . "TEXT"))))

[Polyline 19]

Các bác cho mình hỏi: Làm sao để gán tập chọn (ssget "p") về rỗng?

[Tot77 508]

Không biết có cách nào khác không, chứ muốn cho nó rỗng thì làm lệnh xoá các đt của (ssget "p") rồi undo.

(setq ss (ssget "p"))

(command "erase" ss "")

(command "undo" 1)

(setq ss (ssget "p"))

(command "erase" ss "")

(command "undo" 1)

[Tue_NV 3.912]

Cũng có cách làm lệnh CHỌN đối tượng của (ssget "p") rồi undo tương đương với hàm trong Express 

(ACET-SS-CLEAR-PREV)

 

(setq ss (ssget "p"))

(command "select" ss "")

(command "undo" 1)

[Doan Van Ha 3.191]

Ý nghĩa của 2 cách trên là khác nhau: của Tot77 thì trả về tập rỗng, của Tue_NV thì trả về Nil.

[Tue_NV 3.912]

Ý nghĩa của 2 cách trên là khác nhau: của Tot77 thì trả về tập rỗng, của Tue_NV thì trả về Nil.

 

Bác nói rõ hơn không? Tue_NV thấy cơ bản là giống nhau 

[Polyline 19]

Mình cũng tìm được cách tương tự

(command ".point" (list 0 0)

".erase" (entlast) "");set (ssget "p") to nil

[Doan Van Ha 3.191]

Cách của Tot77 trả về tập ss là tập rỗng, nghĩa là ss vẫn tồn tại tên tuổi nhưng không có phần tử nào:

(sslength ss) >> 0

Cách của Tue_NV trả về tập ss là NIL, nghĩa là không có ss:

(ACET-SS-CLEAR-PREV)

(setq ss (ssget "p"))

(sslength ss) >> error

[Polyline 19]

Mình muốn chọn text có cùng toạ độ X, nhưng sao câu lệnh này không được nhỉ?

(ssget (list (cons 0 "TEXT")(list 10 X '* '*)))

[Tue_NV 3.912]

Mình muốn chọn text có cùng toạ độ X, nhưng sao câu lệnh này không được nhỉ?

(ssget (list (cons 0 "TEXT")(list 10 X '* '*)))

 

Không được bởi kí tự * không đại diện cho số thực được 

[Polyline 19]

Không được bởi kí tự * không đại diện cho số thực được 

Vậy làm sao để chọn được hả bác? :)

[Doan Van Ha 3.191]

Mình muốn chọn text có cùng toạ độ X, nhưng sao câu lệnh này không được nhỉ?

(ssget (list (cons 0 "TEXT")(list 10 X '* '*)))

Này:

(ssget (list '(0 . "Text") '(-4 . "=,*,*") (list 10 x 0.0 0.0)))

(ssget (list '(0 . "Text") '(-4 . "=,*,*") (list 10 x 0.0 0.0)))

 

(ssget (list '(0 . "Text") '(-4 . "=,*,*") (list 10 x 0.0 0.0)))

 

(ssget (list '(0 . "Text") '(-4 . "=,*,*") (list 10 x 0.0 0.0)))

[Polyline 19]

Tuyệt! Nhưng mã -4 này không cần đóng nó lại hả bác? Không giống như (-4 . "<OR")....(-4 . "OR>") à?

[Doan Van Ha 3.191]

Tuyệt! Nhưng mã -4 này không cần đóng nó lại hả bác? Không giống như (-4 . "<OR")....(-4 . "OR>") à?

Thì bằng chứng là không đóng rồi đấy!

Cái đáng thắc mắc là 0.0 nhưng không thấy bạn thắc mắc.

[Doan Van Ha 3.191]

Mình cũng tìm được cách tương tự

(command ".point" (list 0 0)

".erase" (entlast) "");set (ssget "p") to nil

Bạn chú ý: với tập chọn thì Nil khác rỗng đấy nhé! Không như list thì Nil tức là rỗng. Câu hỏi ban đầu của bạn là RỖNG  <_<

[Polyline 19]

hihi, có bác ạ! Cả mã -4 nữa. Tại sao là (-4 . "=,*,*") nhỉ? Nó nghĩa là gì?

Hàm ssget này học mãi chẳng biết bao giờ mới hiểu và vận dụng tốt nó nữa. Điều này hoàn toàn không có trong Help của AutoLisp.

[ndtnv 481]

 

Nó nằm trong help phần Relational Tests và Logical Grouping of Filter Tests

[Polyline 19]

Oh, hay quá, cám ơn bác rất nhiều! Cái này là cho cả cần câu nè!

Vậy mà xưa nay mình luôn luôn tìm trợ giúp trong AutoLisp bằng cách bôi đen tên hàm và Ctrl+F1.

Mình hoàn toàn không biết những thông tin khác hữu ích như thế này!

(Hết quota rồi, không được  nữa)

[Polyline 19]

Hôm nay mới để ý nha, hình như cái vụ quota này không tính theo giờ Việt Nam hả bác Admin? Mình bị hết quota từ chiều hôm qua, đến sáng nay vẫn chưa vote được.