[Hỏi] Hàm ssget trong Autolisp

[hieuroi 1]

mình tưởng đơn giản, hóa ra lại phức tạp như vậy, đọc xong chả hiểu mô tê răng rứa chi cả. :D

máy mình có cài Express tools.

Thanks

[phamthanhbinh 3.146]

mình tưởng đơn giản, hóa ra lại phức tạp như vậy, đọc xong chả hiểu mô tê răng rứa chi cả. :D

máy mình có cài Express tools.

Thanks

Hề hề hề,

Nếu có cài express tools thì hãy thử làm như sau xem nó ra cái gì nhé:

1/- Nhập trên dòng command:

(setq lst (list '(2 2) '(10 10)))

2/- nhấn enter Cad sẽ trả về trên dòng command list ((2 2) (10 10))

3/- Nhập dòng code loằng ngoằng sau đây:

(foreach p lst (setq ss (acet-list-to ss (append (acet-ss-to-list ss) (acet-ss-to-list (ssget p))))))

4/- Nhấn Enter và nếu bạn thấy xuất hiện một cái tên chi chi đó trên dòng command thì có nghĩa đó là tên của tập chọn các đối tượng đi qua hai điểm (2 2) và (10 10)

 

Hy vọng bạn sẽ Hieuroi......

[hieuroi 1]

hi, làm theo tới bước 2 thì ok, tới bước nhập loằng ngoằng vào thì nó báo lỗi thế này:

 

(foreach p lst (setq ss (acet-list-to ss (append (acet-ss-to-list ss)

(acet-ss-to-list (ssget p))))))

; error: no function definition: ACET-LIST-TO

 

nó bị gì thế bác?

 

Nếu mình muốn đi qua nhiều điểm nữa thì chỉ cần thêm điểm đó vào cái lst ở bước 1 phải k bác?

[phamthanhbinh 3.146]

hi, làm theo tới bước 2 thì ok, tới bước nhập loằng ngoằng vào thì nó báo lỗi thế này:

 

(foreach p lst (setq ss (acet-list-to ss (append (acet-ss-to-list ss)

(acet-ss-to-list (ssget p))))))

; error: no function definition: ACET-LIST-TO

 

nó bị gì thế bác?

 

Nếu mình muốn đi qua nhiều điểm nữa thì chỉ cần thêm điểm đó vào cái lst ở bước 1 phải k bác?

Hề hề hề,

Sorry bạn.

Nó lỗi là do cái ni mình gõ sai chính tả:

(foreach p lst (setq ss (acet-list-to ss (append (acet-ss-to-list ss) (acet-ss-to-list (ssget p))))))

Phải sửa lại thế này:

(foreach p lst (setq ss (acet-list-to-ss (append (acet-ss-to-list ss) (acet-ss-to-list (ssget p))))))

 

Chắc do mình cẩu thả không check lại khi gõ đấy mà.

Cái bạn hỏi thì đúng như vầy, phải thêm vào ở bước 1.

[hieuroi 1]

kakaka, mình đã làm được. :lol:

[Namvanvo 44]

các bác cho em hỏi, khi chọn đối tượng trong bản vẽ cad bằng hàm lisp, nếu em không zoom phần đối tượng được chọn lên màn hình thì không chọn được đối tượng đó, vậy làm sao đối tượng đó nằm ngoài giao diện màn hình đồ họa mà mình vẫn chọn được đối tượng đó (đã biết trước vị trí và vị trí chứa đối tượng này cố định trong bản vẽ)  :)

[huunhantvxdts 195]

Mình cũng gặp phải trường hợp như vậy và đã nghĩ cách là "Zoom" đến điểm đó rồi trước khi chọn và đã làm được

[Namvanvo 44]

hehe, zoom thì mình cũng đã biết và đang áp dụng, tuy nhiên khi chạy nó cứ cà giựt nên mình thấy không được chuyên nghiệp cho lắm, không biết có cách chọn đối tượng nào mà khi thao tác nó mượt mà, nhẹ nhàng hơn không  :D

[Doan Van Ha 3.191]

Cad nó thế thì đành chịu thế. Hàm ssget còn không cho chọn quá 128 tập chọn nữa cơ. Không biết cad mới thì có sửa số 128 chưa (?).

Zoom nó cà giựt nếu bản vẽ nặng. Với bản vẽ nhẹ thì nó lướt êm hơn. Và bạn có thể zoom bằng hàm vla thì nhanh hơn dùng command.

Ví dụ zoom window bằng vla:

(defun c:zoom1 ()

(setq acadapplic (vlax-get-acad-object))
(setq util (vla-get-utility (vla-get-activedocument acadapplic)))
(setq PT1 (vla-getpoint util nil "\nFirst Point : "))
(setq PT2 (vla-getcorner util PT1 "\nSecond Point : "))
(vla-ZoomWindow acadapplic PT1 PT2)
(princ))

)

[Namvanvo 44]

TẬP CHỌN được hiểu như thế nào vậy bác, là 128 đối tượng được chọn trong bản vẽ, hay là 128 nhóm (tập hợp các đối tượng)  đối tượng được chọn trong bản vẽ đó ?

[Doan Van Ha 3.191]

Hiểu theo nghĩa thứ 2, nhưng cũng ít khi dùng tới đó lắm.

[Thaistreetz 539]

các bác cho em hỏi, khi chọn đối tượng trong bản vẽ cad bằng hàm lisp, nếu em không zoom phần đối tượng được chọn lên màn hình thì không chọn được đối tượng đó, vậy làm sao đối tượng đó nằm ngoài giao diện màn hình đồ họa mà mình vẫn chọn được đối tượng đó (đã biết trước vị trí và vị trí chứa đối tượng này cố định trong bản vẽ)  :)

Đối tượng mà bạn chọn là gì? Các đối tượng có điểm chèn: point, text, insert... hoàn toàn có thể chọn được tại mọi điểm ngoài phạm vi màn hình

[Thaistreetz 539]

Cad nó thế thì đành chịu thế. Hàm ssget còn không cho chọn quá 128 tập chọn nữa cơ. Không biết cad mới thì có sửa số 128 chưa (?).

Zoom nó cà giựt nếu bản vẽ nặng. Với bản vẽ nhẹ thì nó lướt êm hơn. Và bạn có thể zoom bằng hàm vla thì nhanh hơn dùng command.

Ví dụ zoom window bằng vla:

(defun c:zoom1 ()

(setq acadapplic (vlax-get-acad-object))

(setq util (vla-get-utility (vla-get-activedocument acadapplic)))

(setq PT1 (vla-getpoint util nil "\nFirst Point : "))

(setq PT2 (vla-getcorner util PT1 "\nSecond Point : "))

(vla-ZoomWindow acadapplic PT1 PT2)

(princ))

 

)

Zoom bằng VLA theo tôi nhớ thì không hề nhanh hơn command. và còn bị nhảy dòng tại command screen nữa.

[Namvanvo 44]

Đối tượng mà bạn chọn là gì? Các đối tượng có điểm chèn: point, text, insert... hoàn toàn có thể chọn được tại mọi điểm ngoài phạm vi màn hình

đối tượng mình chọn là text, mình dùng ssget để chọn, nhưng khi ở ngoài màn hình thì lại không chọn được,bạn có cao kiến gì không?  :)

[abcf4ab 0]

http://www.cadviet.com/upfiles/3/125711_pl.dwg

chào các anh em,mình mới học cad 3d,mình muốn nối các đường như hình vẽ lại thành 1 đương để sử dụng lệnh SU mong các bác giúp

[Doan Van Ha 3.191]

Zoom bằng VLA theo tôi nhớ thì không hề nhanh hơn command. và còn bị nhảy dòng tại command screen nữa.

Chắc là nhớ nhầm ấy chứ! Điều này dễ kiểm tra bằng cách mở 1 bản vẽ bất kỳ đủ nặng, thử zoom và zoom1 là thấy ngay thôi.

[Tue_NV 3.912]

đối tượng mình chọn là text, mình dùng ssget để chọn, nhưng khi ở ngoài màn hình thì lại không chọn được,bạn có cao kiến gì không?  :)

Namvanvo dùng (ssget) để chọn nhưng không nói rõ là chọn với cách thức "method" gì?  

Nếu chỉ dùng (ssget) thôi thì chỉ sử dụng chuột mà tự đi quét chọn thôi, ở ngoài màn hình thì tự "Pan" đến đó mà chọn vậy

Còn nếu dùng (ssget "x") thì ở trong lẫn ở ngoài màn hình đều chọn tất.

Vậy ý định của Namvanvo là dùng (ssget) như thế nào?

[Namvanvo 44]

Namvanvo dùng (ssget) để chọn nhưng không nói rõ là chọn với cách thức "method" gì?  

Nếu chỉ dùng (ssget) thôi thì chỉ sử dụng chuột mà tự đi quét chọn thôi, ở ngoài màn hình thì tự "Pan" đến đó mà chọn vậy

Còn nếu dùng (ssget "x") thì ở trong lẫn ở ngoài màn hình đều chọn tất.

Vậy ý định của Namvanvo là dùng (ssget) như thế nào?

sory bác, em nói chung chung quá, em dùng ssget với method "W","C",F" và tọa độ là cố định

[Namvanvo 44]

Bạn có thể dùng như vầy :

(setq a (ssget "X" ' ((0 . "CIRCLE") (-4 . "<") (40 . 100.0))))

(command ".erase" a "")

Các bác cho em hỏi là muốn chọn những đối tượng Line có chiều dài nhỏ hơn 100 thì viết code thế nào? em không tìm thấy mã DXF chiều dài của Line của LWPOLYLINE?   :)

[Thaistreetz 539]

đối tượng mình chọn là text, mình dùng ssget để chọn, nhưng khi ở ngoài màn hình thì lại không chọn được,bạn có cao kiến gì không?  :)

Bạn sử dụng method "X" nhưng kết hợp filter gồm các toán tử AND, OR, <,<,< và >,>,> cho mã dxf 10 để lọc các đối tượng trong khu vực muốn chọn. Mình gợi ý ban vậy thôi vì vao cadviet bằng đt ko code đc. Nhiều lisp của mình từng post lên cadviet có sử dụng cách này. Bạn có thể tìm để tham khảo

[Doan Van Ha 3.191]

Các bác cho em hỏi là muốn chọn những đối tượng Line có chiều dài nhỏ hơn 100 thì viết code thế nào? em không tìm thấy mã DXF chiều dài của Line của LWPOLYLINE?   :)

Có lẽ không chọn trực tiếp bằng ssget được vì chúng không có mã dxf, nhưng có thể chọn và lọc gián tiếp.

Bạn xem link này:

http://www.cadviet.com/forum/index.php?showtopic=67360&pid=217754&st=0&&do=findComment&comment=217754

[Namvanvo 44]

Bạn sử dụng method "X" nhưng kết hợp filter gồm các toán tử AND, OR, <,<,< và >,>,> cho mã dxf 10 để lọc các đối tượng trong khu vực muốn chọn. Mình gợi ý ban vậy thôi vì vao cadviet bằng đt ko code đc. Nhiều lisp của mình từng post lên cadviet có sử dụng cách này. Bạn có thể tìm để tham khảo

Thank Thaistreetz, mình đã làm được  :)

[Namvanvo 44]

các bác cho em hỏi: 

em muốn lọc text trong bản vẽ có nội dung như sau : STN-PF-D1-1000-2H1-CD-D-SD

với cú pháp : (ssget "X" '((0. "TEXT") (-4. "=") (1. "STN-*-SD"))) mà sao không được, sai chỗ nào các bác nhỉ?  :)

[Namvanvo 44]

Có lẽ không chọn trực tiếp bằng ssget được vì chúng không có mã dxf, nhưng có thể chọn và lọc gián tiếp.

Bạn xem link này:

http://www.cadviet.com/forum/index.php?showtopic=67360&pid=217754&st=0&&do=findComment&comment=217754

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?

[Doan Van Ha 3.191]

các bác cho em hỏi: 

em muốn lọc text trong bản vẽ có nội dung như sau : STN-PF-D1-1000-2H1-CD-D-SD

với cú pháp : (ssget "X" '((0. "TEXT") (-4. "=") (1. "STN-*-SD"))) mà sao không được, sai chỗ nào các bác nhỉ?  :)

(ssget "X" '((0 . "TEXT") (1 . "STN-*-SD")))