Đến nội dung


Hình ảnh
- - - - -

Chọn số thực và tính tổng các số đó


  • Please log in to reply
2 replies to this topic

#1 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 26 May 2014 - 10:08 AM

Đề nghịc các cao nhân giúp mình Autolisp:

1. Trên bản vẽ có các text là số thực

2. Lisp chon các số thực này

3. Tính tổng các số được chọn

Trân trọng cảm ơn!


  • -1

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 26 May 2014 - 04:11 PM

Code nhanh cho bạn đây.

(defun C:HA( / tong so a i)
 (if (setq tong 0 so (ssget '((0 . "*TEXT") (1 . "~*[~-0--9]*"))))
  (repeat (setq i (sslength so))
   (if (setq a (distof (cdr (assoc 1 (entget (ssname so (setq i (1- i))))))))
   (setq tong (+ tong a)))))
 tong)


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 26 May 2014 - 06:15 PM

Code nhanh cho bạn đây.

(defun C:HA( / tong so a i)
 (if (setq tong 0 so (ssget '((0 . "*TEXT") (1 . "~*[~-0--9]*"))))
  (repeat (setq i (sslength so))
   (if (setq a (distof (cdr (assoc 1 (entget (ssname so (setq i (1- i))))))))
   (setq tong (+ tong a)))))
 tong)

Cảm ơn bạn Hà


  • 0