[Hỏi] Hàm ssget trong Autolisp

[huunhantvxdts 195]

Với câu lệnh này

(setq so (ssget '((0 . "*TEXT") (50 . 1.5708))))

không chọn được các text số có góc quay 90 độ

[Doan Van Ha 3.180]

Quăng câu hỏi lên thấy dễ ghét! Số pi là số thập phân không tuần hoàn có số chữ số thập phân dài vô tận.

(setq so (ssget (list '(0 . "*TEXT") (cons 50 (/ pi 2)))))

Thậm chí dòng code trên cũng chưa chắc 100% nữa.

[huunhantvxdts 195]

22 phút ago, Doan Van Ha cho biết:

Quăng câu hỏi lên thấy dễ ghét! Số pi là số thập phân không tuần hoàn có số chữ số thập phân dài vô tận.

(setq so (ssget (list '(0 . "*TEXT") (cons 50 (/ pi 2)))))

Thậm chí dòng code trên cũng chưa chắc 100% nữa.

OK được rồi bỡi thấy entget nó (50 . 1.5708) nên nghĩ vậy

có làm (/ pi 2) nhưng thay ở vị trí số 1.5708 thì báo lỗi

Cám ơn Bác nhiều 

[khanhkasu 2]

Vào lúc ‎7‎/‎2‎/‎2013 tại 12:43, saycaphe đã nói:

Các bác giúp em với, em muốn viết câu lệnh xoá toàn bộ các đường tròn có D<200, em viết lệnh chọn các đường tròn có R<100, câu lệnh như sau: 

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

thì trả về kq như thế này 

<selection set : xxx> với xxx là 1 ký tự gì đó.

Các bác chỉnh giúp em với.

Thanks 

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

<Selection set: 1f2>

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

<Selection set: 1f2>

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

<Selection set: 1f2>

Chữ "X" sau ssget có nghĩa là gì vậy ạ.

[Doan Van Ha 3.180]

"X": là chọn tất cả đối tượng trên bản vẽ, trong điều kiên lọc.

[khanhkasu 2]

5 phút trước, Doan Van Ha đã nói:

"X": là chọn tất cả đối tượng trên bản vẽ, trong điều kiên lọc.

Chào anh, anh cho em hỏi hàm con này mục đích để làm gì, có phải chuyển từ string sang list không.

==============================

(defun CK:str->lst (str del / len lst pos)
   (setq len (1+ (strlen del)))
   (while (setq pos (vl-string-search del str))
   (setq lst (cons (substr str 1 pos) lst)
      str (substr str (+ pos len))
   )
   )
   (reverse (cons str lst))
   )

============================================

Thân mến!

[Doan Van Ha 3.180]

Tại sao bạn không thử để biết?

(CK:str->lst "Toi;Di;Hoc" ";") >> ("Toi" "Di" "Hoc")

[khanhkasu 2]

12 phút trước, Doan Van Ha đã nói:

Tại sao bạn không thử để biết?

(CK:str->lst "Toi;Di;Hoc" ";") >> ("Toi" "Di" "Hoc")

Chào anh

Em mới nhập môn, chưa hiểu biết nhiều.

Anh cho em hỏi ngu một câu, với đoạn lisp như trên hay bất cứ đoạn lisp nào, em viết trên Vlide. Bây giờ em muốn nó chạy trên màn hình cad từng đoạn code để quan sát cách hoạt động của nó thì làm thể nào?

( Nghĩa là một bên màn hình thể hiện đoạn code trên vlide, màn hình bên kia thể hiện cách làm việc của chúng trên autocad).

Thân mến !

 

[khanhkasu 2]

Em cảm ơn anh Doan Van Ha.

Hy vọng sẽ học hỏi anh nhiều hơn.

Nếu anh không phiền, có thể cho em xin email để hỏi riếng anh một số vấn đề với ạ.

mail em: binhquangda@gmail.com

Thân mến anh!