15 replies to this topic

[PUCH]

HI!!!!!
Cho mình hỏi có lisp nào có thể tự tính toán các đọan thẳng rùi sau đó cộng lại với nhau và cuối cùng là cho ra kết wả tổng chiều dài cuối hok
tương tự như lệnh list nhưng lệnh này chỉ hiện thông tin cho từng đọan thẳng và ho kcho ra tổng chiều dài
Có bạn nào bit chỉ mình với
thankssUUUUU!

Similar topics from web:
+: Nhờ viết lisp
Làm sao lấy dữ liệu trong cad qua excel? [Lưu Trữ]
-: Yêu cầu viết lisp
GÓT BÙN: Hướng dẫn viết lispcad
nguoidanongdocthan: Yêu cầu viết lisp
Cadviet Forum news
+: Copy kiểu sketchup.
tháng năm

[gia_bach]

HI!!!!!
Cho mình hỏi có lisp nào có thể tự tính toán các đọan thẳng rùi sau đó cộng lại với nhau và cuối cùng là cho ra kết wả tổng chiều dài cuối hok
tương tự như lệnh list nhưng lệnh này chỉ hiện thông tin cho từng đọan thẳng và ho kcho ra tổng chiều dài
Có bạn nào bit chỉ mình với
thankssUUUUU!

Bạn chạy thử LISP này :

(defun C:Chdai( / ss e d cdai total )  (setq ss (ssget '((0 . "LINE")))	total 0	)  (while (setq e (ssname ss 0))    (setq d (entget e)	  cdai (distance (cdr(assoc 10 d)) (cdr(assoc 11 d)))	  total ( + total cdai)	  )    (write-line (strcat "chieu dai : " (rtos cdai) ) )    (ssdel e ss)    )  (write-line (strcat "Tong chieu dai : " (rtos total) ) )  (textscr)  (princ)    )

[PUCH]

Bạn chạy thử LISP này :

(defun C:Chdai( / ss e d cdai total )  (setq ss (ssget '((0 . "LINE")))	total 0	)  (while (setq e (ssname ss 0))    (setq d (entget e)	  cdai (distance (cdr(assoc 10 d)) (cdr(assoc 11 d)))	  total ( + total cdai)	  )    (write-line (strcat "chieu dai : " (rtos cdai) ) )    (ssdel e ss)    )  (write-line (strcat "Tong chieu dai : " (rtos total) ) )  (princ)  )

Hi!!!!!!
thanks bạn
nhưng sao mình thử hok dc
chỉ mới xong bước chọn đối tượng thui
soa đó ho k thấy có tác dụng ji hết
XIn bạn chỉ dẫn cho mình tí
thank!!!!!!!!!

[phamthanhbinh]

HI!!!!!
Cho mình hỏi có lisp nào có thể tự tính toán các đọan thẳng rùi sau đó cộng lại với nhau và cuối cùng là cho ra kết wả tổng chiều dài cuối hok
tương tự như lệnh list nhưng lệnh này chỉ hiện thông tin cho từng đọan thẳng và ho kcho ra tổng chiều dài
Có bạn nào bit chỉ mình với
thankssUUUUU!

Chào bạn puch,
Bạn hãy chịu khó tìm trên diễn đàn nhé. Cái lisp này đã có rồi. Hãy chịu khó tìm kiếm trước khi post yêu cầu của mình.
Cám ơn bạn.

[PUCH]

Chào bạn puch,
Bạn hãy chịu khó tìm trên diễn đàn nhé. Cái lisp này đã có rồi. Hãy chịu khó tìm kiếm trước khi post yêu cầu của mình.
Cám ơn bạn.

hi !!!!
mình cũng bit chứ
nhưng hok thấy nên mới hỏi đó
bạn bit chổ nào chỉ cho mình tí
hoặc có cách nào tìm nhanh tí,
mình mò hoài chẳng ra
thankssss!!!!!

[nataca]

hi !!!!
mình cũng bit chứ
nhưng hok thấy nên mới hỏi đó
bạn bit chổ nào chỉ cho mình tí
hoặc có cách nào tìm nhanh tí,
mình mò hoài chẳng ra
thankssss!!!!!

ko chạy được vì đường của bạn có thể là polyline chứ không phải là line như bạn yêu cầu viết lisp. Chắc chắn trên diễn đàn có lisp tính tổng chiều dài không những chỉ đoạn thẳng mà còn cả đường cong...

[doanduyhung]

Nè cu thử nhé:
(defun c:dotongpl(/)
(setq chieudai 0.00)
(setq sspolyline (ssget))
(setq i 0)
(repeat (sslength sspolyline)
(setq polylinechon (ssname sspolyline i))
(setq polylinechon (vlax-ename->vla-object polylinechon))
(setq chieudai1 (vlax-get-property polylinechon 'length))
(setq chieudai (+ chieudai1 chieudai))
(setq i (+ i 1))
)
(princ (rtos chieudai 2 3))
)

[PUCH]

ko chạy được vì đường của bạn có thể là polyline chứ không phải là line như bạn yêu cầu viết lisp. Chắc chắn trên diễn đàn có lisp tính tổng chiều dài không những chỉ đoạn thẳng mà còn cả đường cong...

hi
thanhs u!
nhưng bạn có ho k gởi cho mình lun đi
thanks bạn ngen!!

[PUCH]

Nè cu thử nhé:
(defun c:dotongpl(/)
(setq chieudai 0.00)
(setq sspolyline (ssget))
(setq i 0)
(repeat (sslength sspolyline)
(setq polylinechon (ssname sspolyline i))
(setq polylinechon (vlax-ename->vla-object polylinechon))
(setq chieudai1 (vlax-get-property polylinechon 'length))
(setq chieudai (+ chieudai1 chieudai))
(setq i (+ i 1))
)
(princ (rtos chieudai 2 3))
)

cái lisp này cũng vậy bạn ơi
coi giúp lại mình tí đi
thanks!!!!!!

[ssg]

HI!!!!!
Cho mình hỏi có lisp nào có thể tự tính toán các đọan thẳng rùi sau đó cộng lại với nhau và cuối cùng là cho ra kết wả tổng chiều dài cuối hok
tương tự như lệnh list nhưng lệnh này chỉ hiện thông tin cho từng đọan thẳng và ho kcho ra tổng chiều dài
Có bạn nào bit chỉ mình với
thankssUUUUU!

Lisp tính tổng chiều dài của mọi đối tượng có thuộc tính chiều dài (line, pline, spline, arc, circle, ellipse). Lệnh TL:

;;;--------------------------------------------------------------------(defun Length1(e) (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)));;;--------------------------------------------------------------------(defun C:TL( / ss L e)(setq    ss (ssget  (list (cons 0 "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))    L 0.0)(vl-load-com)(while (setq e (ssname ss 0))    (setq L (+ L (length1 e)))    (ssdel e ss))(alert (strcat "Total length = " (rtos L))));;;--------------------------------------------------------------------

[phamthanhbinh]

cái lisp này cũng vậy bạn ơi
coi giúp lại mình tí đi
thanks!!!!!!

Lisp này chạy ngon bạn ơi, chỉ có điều kết quả trả về giá trị tổng và lặp lại một lần nữa. Bạn thêm dòng lệnh (princ) nữa là Ok.

[PUCH]

Lisp tính tổng chiều dài của mọi đối tượng có thuộc tính chiều dài (line, pline, spline, arc, circle, ellipse). Lệnh TL:

;;;--------------------------------------------------------------------(defun Length1(e) (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)));;;--------------------------------------------------------------------(defun C:TL( / ss L e)(setq    ss (ssget  (list (cons 0 "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))    L 0.0)(vl-load-com)(while (setq e (ssname ss 0))    (setq L (+ L (length1 e)))    (ssdel e ss))(alert (strcat "Total length = " (rtos L))));;;--------------------------------------------------------------------

Thanks U!
Có món này rùi mọi vic sẻ rất tiện lợi
MÌnh chờ mấy ngày nay mà hok thấy
cám ơn bạn lần nữa ngen, mà nó có tính dc các polyline hok vậy bạn

[ngochop]

Bạn chạy thử LISP này :

(defun C:Chdai( / ss e d cdai total )  (setq ss (ssget '((0 . "LINE")))	total 0	)  (while (setq e (ssname ss 0))    (setq d (entget e)	  cdai (distance (cdr(assoc 10 d)) (cdr(assoc 11 d)))	  total ( + total cdai)	  )    (write-line (strcat "chieu dai : " (rtos cdai) ) )    (ssdel e ss)    )  (write-line (strcat "Tong chieu dai : " (rtos total) ) )  (textscr)  (princ)    )

Em cũng đã dùng mấy cái lisp tính chiều dài rồi, nhưng dùng cái líp này không thấy kết quả đâu vậy , em dùng cad 2008, mong các bác xem lại

[thiep]

Em cũng đã dùng mấy cái lisp tính chiều dài rồi, nhưng dùng cái líp này không thấy kết quả đâu vậy , em dùng cad 2008, mong các bác xem lại

Đây là lisp Thiep viết cho conghoan1003 dùng tính tổng tất cả các chiều dài curve: LWPOLYLINE, LINE, SPLINE, ARC, CIRCLE. Link đây:
http://www.cadviet.c...&...ost&p=62765

[zippo.113]

Xin các cao thủ chỉ giáo !
Trong cad em thấy để sửa nhiều đối tượng cùng một thật dài dòng, ví dụ như sủa text trong bình đồ cứ phải ghõ như sau: SSX / select/ enter/ - CHT / select +P/ enter rồi tiếp tục chọn chiều cao, rộng...., mỗi lần làm như vậy thật khó chịu, em mong các bác cao thủ giúp em một cái lisp nào đó đơn giản hơn, ngắn hơn. Cảm ơn các bác nhiều !

[ngkcuong]

Lisp tính tổng chiều dài của mọi đối tượng có thuộc tính chiều dài (line, pline, spline, arc, circle, ellipse). Lệnh TL:

;;;--------------------------------------------------------------------(defun Length1(e) (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)));;;--------------------------------------------------------------------(defun C:TL( / ss L e)(setq    ss (ssget  (list (cons 0 "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))    L 0.0)(vl-load-com)(while (setq e (ssname ss 0))    (setq L (+ L (length1 e)))    (ssdel e ss))(alert (strcat "Total length = " (rtos L))));;;--------------------------------------------------------------------

Cám ơn bác nhiều.