Nhờ chỉnh sửa lisp dimension

[vipgun 4]

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

[quansla 259]

Đâ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)
)

 

[vipgun 4]

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

[quansla 259]

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

[vipgun 4]

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

[vipgun 4]

gui bac doan.dwg

[Danh Cong 422]

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:

gui bac doan.dwg

 

[vipgun 4]

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.

 

[ketxu 2.984]

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 ^^

[vipgun 4]

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!