Góc Nhờ Viết Lisp ( chọn dim có giá trị giống nhau trong vùng chọn)

[timmaimotnguoi 8]

Nhờ các bác đi qua viết giùm e lisp có nội dung sau với ạ.

- ví dụ:

B1. Trong vùng chọn có các dim có giá trị như sau: 0.1, 0.4, 0.5, 0.19, 0.23, 0.1

B2. chọn dim có nội dung text 0.1 ( lisp yêu cầu người dùng nhập giá trị 0.1 vào mục đích để chọn dim có giá trị 0.1)

B3. Kết quả chọn được tất cả các dim có giá trị 0.1

[Danh Cong 422]

Code tham khảo: 

(defun c:test ( / DOITUONGI GIATRI I OBJECT TAPCHON THAPPHAN)

(setq     thapphan (getvar "dimdec")
     giatri (getreal "\nValue:")
      object (ssget '(( 0 . "DIMENSION")))
    i 0
    tapchon (ssadd))
(repeat (sslength object)
      (progn
        (setq doituongi (ssname object i))
          (if    (= (atof (rtos (cdr (assoc 42 (entget doituongi))) 2 thapphan)) giatri)
              (ssadd doituongi tapchon))
          (setq i (+ i 1))
     )
  ); end repeat
  (sssetfirst nil tapchon))

[dinhvantrang 151]

Qselect là được mà nhỉ

[timmaimotnguoi 8]

20 giờ trước, Danh Cong đã nói:

Code tham khảo: 

 

• test.lsp
  
• [✎]
   

(defun c:test ( / DOITUONGI GIATRI I OBJECT TAPCHON THAPPHAN)

(setq     thapphan (getvar "dimdec")
     giatri (getreal "\nValue:")
      object (ssget '(( 0 . "DIMENSION")))
    i 0
    tapchon (ssadd))
(repeat (sslength object)
      (progn
        (setq doituongi (ssname object i))
          (if    (= (atof (rtos (cdr (assoc 42 (entget doituongi))) 2 thapphan)) giatri)
              (ssadd doituongi tapchon))
          (setq i (+ i 1))
     )
  ); end repeat
  (sssetfirst nil tapchon))

 

Bạn ơi báo lỗi: 

Command: ap
APPLOAD test.lsp successfully loaded.
Command: ; error: syntax error

Lỗi trên là sao vậy bạn :(

[Danh Cong 422]

21 giờ trước, timmaimotnguoi đã nói:

Command: ap
APPLOAD test.lsp successfully loaded.
Command: ; error: syntax error

 

+ Có lỗi sảy ra trong việc tải file trên diễn đàn:

Giải quyết:

B1: Tạo 1 file đuôi .txt, rồi đổi đuôi file thành .lsp.

B2:  Copy nội dung của lisp tại diễn đàn vào file, rồi chạy lại lisp là ổn.

[timmaimotnguoi 8]

Vào lúc 1/31/2018 tại 14:47, Danh Cong đã nói:

 

+ Có lỗi sảy ra trong việc tải file trên diễn đàn:

Giải quyết:

B1: Tạo 1 file đuôi .txt, rồi đổi đuôi file thành .lsp.

B2:  Copy nội dung của lisp tại diễn đàn vào file, rồi chạy lại lisp là ổn.

:) thanks bác đã quan tâm nha. năm mới chúc bác sức khỏe thành công 

[ketxu 2985]

@Danh Cong : Hình như bạn chưa kiểm tra Text Override. K biết  OP có để ý vấn đề này k :D