Nhờ Sửa Lisp Tính Chu Vi

[jangboko 10]

nhờ các bác sửa hộ em cái lisp tính chu vi này em đã mót ở trên diễn đàn 

(defun add_mline ()

  (foreach e_record_sub	e_record

    (cond ((= 10 (car e_record_sub))

	   (setq pt1	   (cdr e_record_sub)

		 mline_len 0.0

	   )

	  )

	  ((= 11 (car e_record_sub))

	   (setq pt2	   (cdr e_record_sub)

		 mline_len (+ mline_len (distance pt2 pt1))

		 pt1	   pt2

	   )

	  )

    )

  )

  (setq tot_len (+ tot_len mline_len))

  (ssdel e_name ss)

)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun C:cl (/ tot_len ss e_name e_record e_type)

  (setq tot_len 0.0)

  (setq ss (ssget))

  (if (null ss)

    (exit)

  )

  (while (> (sslength ss) 0)

    (setq e_name (ssname ss 0))

    (setq e_record (entget e_name))

    (setq e_type (cdr (assoc '0 e_record)))

    (cond ((wcmatch e_type "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")

	   (command "lengthen" e_name "")

	   (setq tot_len (+ tot_len (getvar "PERIMETER")))

	   (ssdel e_name ss)

	  )

	  ((wcmatch e_type "MLINE") (add_mline))

	  (e_type (ssdel e_name ss))

    )

  )

  (prompt (strcat "\nTotal length is: " (rtos tot_len 2 2)))

  (princ)

)
 

nhờ các bác bổ xung thêm cho em phần ghi kết quả ra text. Em cám ơn các bác nhiều nhiều 

P/s: em đã cố tìm trên diễn đàn cái lisp tính chu vi mà có ghi kết quả ra text mà không thấy, nên đành mạo muội nhờ các bác. Chúc các bác luôn mạnh khỏe để các anh em dùng cad được nhờ.

[quocmanh04tt 635]

Vào đây xem thử thế nào: http://www.cadviet.com/forum/topic/157561-yeu-cau-nho-sua-lisp-udt/

[jangboko 10]

Vào đây xem thử thế nào: http://www.cadviet.com/forum/topic/157561-yeu-cau-nho-sua-lisp-udt/

hề hề, cám ơn bác, em đã tìm thấy thứ mình cần :)). Cái bài bác đưa em đã đọc qua rồi, thấy bài đó viết về lisp tính diện tích UDT nên em chỉ đọc lướt qua, do đó sót bài bác post.  cảm ơn bác nhiều

[nguyenbd1 13]

Nhờ anh e diễn đàn sửa dùm.

lisp tính chủ vi hình bất kỳ . với điều kiện là khi  chạy lisp xong cho ra kết quả text trên màn hình và sửa kích thước của hình thì kết quả của nó cập nhật theo

NHO SUA LISP.dwg

cv.lsp

[thiep 365]

Lisp này Thiệp đã viết rất tổng quát mã nguồn mở. Bạn xem ở đây:

 

[nguyenbd1 13]

E ko giỏi về lisp lắm mong bác giúp a

 

[NTHAHT 83]

3 giờ trước, nguyenbd1 đã nói:

E ko giỏi về lisp lắm mong bác giúp a