nhờ giúp list tính diện tích trong cad và tự động nhập trong excel

[nhờ giúp list tính diện tích trong cad và tự động nhập trong excel]

Vào lúc 22/9/2021 tại 14:48, gia_bach đã nói:

chủ đề hơn 10 năm rồi, tạm sửa thế này nhé.

• 2csv.lsp
  
• [✎]
   

(defun c:2Csv (/ chdai dtich ent1 ent2 ent3 lst solo tmp ent21 enttype len pt)
 (vl-load-com)  
 (while (setq ent1 (car (entsel "\nchon Text de lay So lo :")))
   (and
     (= (cdr (assoc 0 (entget ent1))) "TEXT")
     (setq solo (vlax-get(vlax-Ename->Vla-Object ent1)'TextString))
     (or
(and
  (setq ent2 (car (entsel "\nchon doi tuong (lo dat) de lay Dien tich :")))
  (setq ent2 (vlax-Ename->Vla-Object ent2))
  (vlax-property-available-p ent2 'area)
  (setq dtich (vlax-get ent2 'Area)   ) )
(and
  (setq pt (getpoint "\nPick diem (lo dat) de lay Dien tich :"))
  (vl-cmdf "-bhatch" "Advanced" "Island" "No" "Nearest" "" pt "")
  (setq ent2 (entlast))
  (setq ent21 (vlax-Ename->Vla-Object ent2))
  (vlax-property-available-p ent21 'area)
  (setq dtich (vlax-get ent21 'Area)   )
  (entdel ent2)) )
     (setq chdai "")
;;;     (while (setq ent3 (car (entsel "\nchon doi tuong de lay Khoang lui :")))
;;(setq enttype (cdr (assoc 0 (entget ent3))))
;;(cond
;;  ((eq enttype "TEXT") (setq len (vla-get-TextString (vlax-ename->vla-object ent3))) )
;;  ((eq enttype "DIMENSION") (setq len (rtos(vla-get-Measurement (vlax-ename->vla-object ent3)))) )
;;  (T (setq len (rtos (vlax-curve-getDistAtParam ent3 (vlax-curve-getEndParam ent3)))) ) )
;;(setq chdai (strcat chdai "," len))	 )
     (princ "\n")
     (princ (setq tmp (strcat solo "," (rtos dtich) chdai)))
     (setq lst (append lst (list tmp)))  ) ) 
 (if (setq tmp (getfiled "Ten file " (getvar "dwgprefix") "csv" 1))
   (progn
     (setq tmp (open tmp "a"))
     (write-line "So lo,Dien tich,Khoang lui" tmp)      
     (foreach txt lst
(write-line txt tmp)   )
     (close tmp)))
 (princ))

 

Vâng, chủ đề 10 năm nhưng vẫn rất hữu ích ạ.

Em cảm ơn anh nhiều.

[nhờ giúp list tính diện tích trong cad và tự động nhập trong excel]

Vào lúc 26/1/2010 tại 11:31, gia_bach đã nói:

Chào cả nhà.

Với tư cách là nguời có “quyền lợi và nghĩa vụ liên quan”, (dựa trên các phát biểu của các bác trong phạm vi CadViet) tui xin có vài lời cùng các bác :

 

To trinhvqh : có thể hơi quá khi nói bạn là nguời cầu toàn nghĩa là mọi thứ phải hoàn hảo nhất, hiệu quả nhất.

- Lisp giải quyết được vấn đề của người yêu cầu nhưng hiệu quả chưa Pro, Còn nhiều vấn đề phải hoàn thiện

- giải quyết vấn đề không rốt ráo

Thực tế ai ai cũng mong muốn đuợc như vậy, nhưng đó chỉ là uớc mơ thôi, thực tế thì như bạn đã biết ....

 

Bạn là 1 chuyên gia về ACA, do đó mọi thứ đều đuợc mang về hệ qui chiếu ACA :

- ACA có làm (giải quyết) đuợc không ?

- giải pháp mới có hay hơn ACA không ?

Không may là hầu hết các giải pháp bằng AutoLisp đều thiếu thuyết phục hay chưa thuyết phục đuợc bạn !

 

To Tue_NV : bạn là nguời có nhiều đam mê, nhiệt huyết với AutoLisp :

- AutoLisp thật tuyệt vời...

- khám phá hoài không hết

- tìm hiểu tới già cũng không hết được

Truớc 1 vấn đề, bạn trăn trở làm thế nào giải quyết đuợc bằng AutoLisp ? (cũng đúng thôi, vì vấn đề thuờng đặt ở mục AutoLisp) - I'm too !

 

Để giải quyết 1 bài toán, mỗi nguời tự luợng vào khả năng của mình để tự tìm ra giải pháp tốt nhất cho riêng mình. Không có 1 giải pháp chung cho tất cả mọi nguời.

Ai có súng dùng súng, ai có dao dùng dao, …

(ai có AKA dùng AKA, ai có Ô-tô dùng Ô-tô, ...)

hề hề (Copyright : phamthanhbinh)

Tui biết là AKA “bắn” rất tốt, nhưng ở nuớc tui chính phủ không cho dân dùng súng.

Tui biết là Ô-tô “chạy” thật tuyệt vời, nhưng tui chưa có bằng lái

 

Chúc mọi nguời vui vẻ và nhiệt tình đóng góp cho CadViet ngày càng phát triển hơn. :undecided:

Chào anh Gia_bach,

Em có tìm lại được chủ để này  và lisp anh đã viết về chuyển đổi thống kê diện tích, khoảng lùi đối tượng ra file Ecxel, em có nhắn riêng cho anh nhưng không được. Vậy e có thể nhờ anh chỉnh sửa lisp dừng lại ở bước thứ 2 là đo diện tích đối tượng mà không cần bước 3 là đo khoảng lùi (chuvi).

Em cám ơn anh