Đến nội dung


Hình ảnh
- - - - -

xin lisp tính tổng line xuất ra text


  • Please log in to reply
9 replies to this topic

#1 thienha.haui

thienha.haui

    biết vẽ line

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

Đã gửi 23 February 2014 - 08:56 AM

chào các bạn.mình đã tìm trên diễn đàn và đã tìm dc các lisp về tính tổng text số,hay tính tổng các line,pline.nhưng mình có 1 yêu cầu thế này mong các bạn giúp đỡ.

đối với tính tổng các text số như sau:

-chọn các text cần tính tổng

-chọn điểm đặt text đã tính( nhưng text đã tính thì phải hiển thị như sau.vd :  12=3+4+4+1)

phần tính tổng line và pline tương tự

 

mình đã thấy có người có lisp đó nhưng xin người ta không cho.mong các cao thủ giúp đỡ.chân thành cảm ơn


  • 0

#2 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 23 February 2014 - 01:03 PM

Thử cái này:

http://www.cadviet.c...7168_tmp1_5.lsp


  • 0

#3 thienha.haui

thienha.haui

    biết vẽ line

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

Đã gửi 23 February 2014 - 05:24 PM

rất tuyệt bạn ak.mình làm phiền bạn 1 chút nhé.mình muốn các số hạng đó đổi ra m dc ko ban.vì theo lisp đó thì các số hạng đang dc tính theo mm

 

vd.8617= 4123+4494 ==>8.7 = 4.2+4.5( tức là khi tính thì các số hạng này đã dc làm tròn ra m rồi bạn ak)

 

mong mọi ng giúp đỡ


  • 0

#4 Han Tinh

Han Tinh

    biết vẽ pline

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

Đã gửi 23 February 2014 - 07:25 PM

Bạn Tot77 viết rất hay, bạn có thể sửa lại tí để dùng cho các dim thì tuyệt lắm!


  • 0

#5 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 24 February 2014 - 10:24 AM

Thử lại cái này, có thêm dim. 

Cách làm tròn của thienha hình như là làm tròn lên hết , nghĩa là "nhích 1 ly đi 1 tấc" phải không? tức là 8601 = 8.7?

 

http://www.cadviet.c...7168_tmp1_7.lsp


  • 1

#6 thienha.haui

thienha.haui

    biết vẽ line

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

Đã gửi 24 February 2014 - 11:55 AM

Thử lại cái này, có thêm dim. 

Cách làm tròn của thienha hình như là làm tròn lên hết , nghĩa là "nhích 1 ly đi 1 tấc" phải không? tức là 8601 = 8.7?

 

http://www.cadviet.c...7168_tmp1_7.lsp

cảm ơn anh rất nhiều.a có thể đổi lại cho e thành lam tròn bình thường dc ko ạ.  >0.5 =1 ,0.5< =0. 8611=8.6          8651 = 8.7


  • 0

#7 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 24 February 2014 - 01:30 PM

vậy thay cái hàm lamtron bằng dòng này:

 

(defun lamtron(x)   (if (>= (rem x 100) 50) (* 0.1 (fix (1+ (/ x 100)))) (* 0.1 (/ x 100))))


  • 1

#8 thienha.haui

thienha.haui

    biết vẽ line

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

Đã gửi 24 February 2014 - 02:47 PM

vậy thay cái hàm lamtron bằng dòng này:

 

(defun lamtron(x)   (if (>= (rem x 100) 50) (* 0.1 (fix (1+ (/ x 100)))) (* 0.1 (/ x 100))))

hihi.a ơi vẫn chưa được vd giá trị thực là :  8675 = 4111 +4564 thì lisp sau khi a sửa là  8.711 = 4.111+4.6

e muốn nó là ; 8.7 = 4.1 + 4.6 cơ ạ


  • 0

#9 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 24 February 2014 - 04:20 PM

OK, sửa lại rồi.

http://www.cadviet.c...7168_tmp1_8.lsp


  • 1

#10 Han Tinh

Han Tinh

    biết vẽ pline

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

Đã gửi 24 February 2014 - 09:03 PM

Mình có thử nhưng nó ra không đúng bạn Tot77 ơi! Cụ thể là nó


  • 0