Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
bienda

Xin Chỉnh Sửa Lisp Xuất Tọa Độ Block

Các bài được khuyến nghị

bienda    4

Em có lisp xuất tọa độ của Block, nhờ các bác chỉnh sửa hộ em bỏ cột A và cột D đi, em chỉ muốn giữ lại tọa độ X,Y và chia cho 1000

Xin chân thành cảm ơn sự giúp đỡ  :wub:

 

http://www.cadviet.com/upfiles/6/66051_blockinfo.lsp

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quocmanh04tt    385

Đây:

(defun c:ttt  (/ e f i s)
 (if (and (setq s (ssget '((0 . "INSERT") (410 . "Model"))))
          (setq f (getfiled "Create TXT File" "" "txt" 1))
          (setq f (open f "w")))
  (progn (repeat (setq i (sslength s))
          (setq e (entget (ssname s (setq i (1- i)))))
          (write-line (apply 'strcat
                             (mapcar '(lambda (x) (strcat (rtos (* x 0.001)) "\t")) (reverse (cdr (reverse (cdr (assoc 10 e)))))))
                      f))
         (close f)))
 (princ))

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
bienda    4

Đây:

(defun c:ttt  (/ e f i s)

 (if (and (setq s (ssget '((0 . "INSERT") (410 . "Model"))))

          (setq f (getfiled "Create TXT File" "" "txt" 1))

          (setq f (open f "w")))

  (progn (repeat (setq i (sslength s))

          (setq e (entget (ssname s (setq i (1- i)))))

          (write-line (apply 'strcat

                             (mapcar '(lambda (x) (strcat (rtos (* x 0.001)) "\t")) (reverse (cdr (reverse (cdr (assoc 10 e)))))))

                      f))

         (close f)))

 (princ))

 

Bác xem lại giúp em với, lisp k chạy ạ :(

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quocmanh04tt    385

Bạn copy có bị thiếu không? Mình copy lại từ bài trên vẫn chạy mà! Nếu không chạy thì cad báo thế nào? Bấm phím F2 chụp màn hình gửi lên.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
bienda    4

Bạn copy có bị thiếu không? Mình copy lại từ bài trên vẫn chạy mà! Nếu không chạy thì cad báo thế nào? Bấm phím F2 chụp màn hình gửi lên.

 

Vâng, em xin lỗi bác, em vẫn để lisp của bác trong cái lisp cũ bên trên nên nó không hoạt động

Bác cho em hỏi với, sao khi em copy từ file txt vào excel nó paste thành 3 cột nhỉ (mặc dù chỉ có tọa độ x,y) làm sao để chỉnh lại được ạ?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quocmanh04tt    385

Số liệu làm gì mà cầu kỳ vậy?

Sửa:

(defun c:ttt  (/ e f i s)
 (vl-load-com)
 (if (and (setq s (ssget '((0 . "INSERT") (410 . "Model"))))
          (setq f (getfiled "Create TXT File" "" "txt" 1))
          (setq f (open f "w")))
  (progn (repeat (setq i (sslength s))
          (setq e (entget (ssname s (setq i (1- i)))))
          (write-line
           (vl-string-right-trim "\t"
(apply 'strcat
(mapcar '(lambda (x) (strcat (rtos (* x 0.001)) "\t"))
(reverse (cdr (reverse (cdr (assoc 10 e))))))))
                      f))
         (close f)))
 (princ))

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
bienda    4

Em cảm ơn bác nhiều ạ

Chả là em làm cái bảng tính liên quan đến vị trí của block trong Cad ^^

Cách đây 3 năm có xem qua biết tí ti về lisp giờ em chả nhớ gì :(

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×