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

Chắc mạng internet nhà bạn này chạy chậm như ốc sên ::))) Bình luận mà tận 1 năm sau bạn ấy mới trả lời lại. @@

4 giờ trước, vipgun đã nói:

 

  • 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

Hi! do tính chất công việc của em thay đổi nên không cần xử dụng lisp đó nữa. Nhưng hiện tại lại cần mà vẫn không thể khắc phục lỗi font nên em up lên nhờ các cao thủ giúp.

 

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
Vào lúc 6/8/2020 tại 16:28, vipgun đã nói:

Hi! do tính chất công việc của em thay đổi nên không cần xử dụng lisp đó nữa. Nhưng hiện tại lại cần mà vẫn không thể khắc phục lỗi font nên em up lên nhờ các cao thủ giúp.

 

Cũng có thể do tính chất công việc, người sửa được thì không cần lisp của bạn, người cần thì lại không sửa được, nên có khi bạn ráng chờ sang năm sau xem có ai giúp k ^^

  • Like 1
  • Vote giảm 2

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
17 giờ trước, ketxu đã nói:

Cũng có thể do tính chất công việc, người sửa được thì không cần lisp của bạn, người cần thì lại không sửa được, nên có khi bạn ráng chờ sang năm sau xem có ai giúp k ^^

Bác cứ đùa em!

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

×