Đến nội dung


Hình ảnh
- - - - -

Nhờ Sửa Lisp Tính Chu Vi


  • Please log in to reply
2 replies to this topic

#1 jangboko

jangboko

    biết vẽ arc

  • Members
  • PipPip
  • 44 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 21 August 2016 - 11:23 PM

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ờ.


  • 0

#2 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 21 August 2016 - 11:34 PM

Vào đây xem thử thế nào: http://www.cadviet.c...o-sua-lisp-udt/


  • 1

#3 jangboko

jangboko

    biết vẽ arc

  • Members
  • PipPip
  • 44 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 21 August 2016 - 11:43 PM

Vào đây xem thử thế nào: http://www.cadviet.c...o-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


  • 0