Nhờ viết lisp move block tới point

[vuhoach 1]

31 phút trước, tannguyen291 đã nói:

Của bạn đây nhé!

Vì bạn dùng nhiều loại BLOCK att nên mình bỏ chức năng chọn att. mọi att đều xuất ra. 

 

(defun c:QT (/ ss tag file_name lstbkatt lstpt file_write item ent lstatt pair str)
  (setq 
    ss (acet-ss-to-list (ssget '((0 . "INSERT"))))
    file_name (getfiled "Xuat du lieu" "Thong ke Toa do" "txt" 1)
  )
  (mapcar
    '(lambda (x) 
      (if (assoc 66 (entget x))
        (setq lstbkatt (cons x lstbkatt))
        (setq lstpt (cons (cdr (assoc 10 (entget x))) lstpt))
      )
     )
    ss
  )
  (if (and file_name (= (length lstbkatt) (length lstpt)))
    (progn
      (setq file_write (open file_name "W"))
      (foreach item lstpt
        (setq 
          ent (car (vl-sort lstbkatt '(lambda (a b) (< (distance item (cdr (assoc 10 (ENTGET a)))) (distance item (cdr (assoc 10 (ENTGET b))))))))
          str (strcat (cdr (assoc 2 (entget ent))) "\t" (rtos (Car item) 2 4) "\t" (rtos (Cadr item) 2 4))
          lstatt (vlax-invoke (vlax-ename->vla-object ent) 'getattributes)
        )
        (foreach pair lstatt
          (setq str (strcat str "\t" (vla-get-textstring pair)))
        )
        (write-line str file_write)
      )
      (close file_write)
    )
    (alert "\nNot match data!")
  )
  (princ)
)

 

Cảm ơn bác, lisp này đến đây là đã đủ giải quyết nhanh gọn công việc của em rồi

[huunhantvxdts 195]

1 giờ} trướ}c, vuhoach đã nói:

Nhìn trên video thì cũng rất tuyệt vời, nhưng máy em cad 2018 chạy báo lỗi. Ngoài ra kết quả xuất ra em muốn dưới dạng txt, csv để em có thể xử lý thêm dữ liệu. Thanks bác.

 

Mình cũng dùng 2018 mà. bạn export là ra file csv nhé. liên hệ Zalo: 0848.998.045 để mình hỗ trợ lỗi cho nhé