Chuyển đến nội dung
Diễn đàn CADViet
vipgun

Nhờ chỉnh sửa lisp dimension

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

Nhờ các bác sửa giùm em với!

Trong lisp này của bác hà, em dùng rất ok nhưng em muốn chỉnh sửa thêm chút là khi xuất dữ liệu ra excel, em muốn xuất như sau: (ô1)dữ liệu 1,(ô2)dữ liệu 2,(ô3)dữ liệu 3,(ô4)dữ liệu 4,(xuống dòng), các dòng dữ liệu sẽ tiếp theo như vậy. Em cám ơn

HA3.LSP

  • Vote giảm 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

Đây nhá:

 

(defun C:HA2 (/ fn fw i lst txt)
  ;Doan Van Ha Cadviet.com
  (princ "\nChon cac Text/Mtext/Dimension can xuat ra file..."
  )
  (setq	lst (acet-ss-to-list (ssget '((0 . "*TEXT,DIMENSION"))))
	fn  (getfiled "Chon file de save" "" "txt" 1)
	fw  (open fn "w")
  )
  (setq i 0)
  ; (setq n (nth 0 lst))
  (foreach n lst
    (cond
      ((= (cdr (assoc 0 (entget n))) "TEXT")
       (setq txt (cdr (assoc 1 (entget n))))
      )
      ((= (cdr (assoc 0 (entget n))) "MTEXT")
       (setq txt (cdr (assoc 1 (entget n))))
      )
      ((= (cdr (assoc 0 (entget n))) "DIMENSION")
       (if (= (cdr (assoc 1 (entget n))) "")
	 (setq txt (rtos (cdr (assoc 42 (entget n)))))
	 (setq txt (cdr (assoc 1 (entget n))))
       )
      )
    )
    (if (/= (rem (setq i (1+ i)) 4) 0)
      (princ (strcat txt ",\t") fw)
      (princ (strcat txt ",\n") fw))
  )
  (close fw)
)

 

  • Like 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

Cám ơn bác quansla. Đã like cho bác. Nhưng cho em hỏi thêm là sau khi em sử dụng thì nó bị lỗi dữ liệu như ảnh dưới, bác có cách nào khắc phục không 1401994995_nh.png.9e416e11674308f801600acefc0e8def.png1353847472_nh.png.06f6b7bc9a611c10c4ca1d2620985f9b.png

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

Không phải lỗi đâu. Cuối tuần mình về nhà rồi ko có máy để check

 

 

ban có biết chút về lisp ko

 

vaans đề của bạn đơn giản là nội dung của Dim được Format định dạng để có hiển thị theo ý người dùng, cách format đấy làm cho text của Dim xuất hiện thêm ký tự lạ

 

 

nhwng khi xuất ra các định dạng đấy lại thành thừa thãi và gây lỗi trên 

 

 

nếu biết lisp bạn dùng khoá remove format text list cad. Của Lee-mac. Và sửa thêm

 

 

neeus ko biết bạn dùng chức năng subtital của exel hoặc find and replace cũng được

 

 

ko thì đưa file càd bạn test nên nhờ mn giúp đỡ xem

  • Like 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
20 giờ trước, quansla đã nói:

Không phải lỗi đâu. Cuối tuần mình về nhà rồi ko có máy để check

 

 

ban có biết chút về lisp ko

 

vaans đề của bạn đơn giản là nội dung của Dim được Format định dạng để có hiển thị theo ý người dùng, cách format đấy làm cho text của Dim xuất hiện thêm ký tự lạ 

 

 

nhwng khi xuất ra các định dạng đấy lại thành thừa thãi và gây lỗi trên 

 

 

nếu biết lisp bạn dùng khoá remove format text list cad. Của Lee-mac. Và sửa thêm

 

 

neeus ko biết bạn dùng chức năng subtital của exel hoặc find and replace cũng được

 

 

ko thì đưa file càd bạn test nên nhờ mn giúp đỡ xem

UKM. Thanks bác. Mình đưa sang file khác thì ok. Chắc do cad mình bị lỗi

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

×