Đến nội dung


Hình ảnh
- - - - -

Nhờ Viết Lisp Cộng Các Số Trong Text (Hoặc Mtext) Và Output Sang Một Mtext Khác


  • Please log in to reply
23 replies to this topic

#21 Danh Cong

Danh Cong

    biết lệnh hatchedit

  • Members
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 43 (tàm tạm)

Đã gửi 15 October 2016 - 09:47 AM

Xin chào các anh. Mình tìm trên diễn đàn thấy cái này gần như cái em mong muốn. Nhờ các anh sửa giúp em bước sau cùng là output ra text mới thì sửa lại thành chọn text có sãn để thay đổi kết quả. Em cảm ơn cá anh.

Ví dụ: Text 1: 22.5

          Text 2: 10,5

          Text 3: 2,34.

 Khi đó cộng Text 1 và Text 2 lại cho kết quả nhấp chọn vào Text 3 sẽ cho kết quả Text 3: 23,00

Em cảm ơn các anh.

 

Của bạn đây: 

 

 

 

(defun c:congtext ()
(setq object (ssget '((0 . "*TEXT")))
      number 0)
(repeat (sslength object)
  (progn
    (setq number (+ number (atof (cdr (assoc 1 (entget (ssname object 0)))))))
    (ssdel (ssname object 0) object)
  )
)
 ;;;;; Chon text thay ket qua
  (setq sstext (car (entsel "Chon Text Thay Ket Qua ")))
  (setq sstext (subst (cons 1 (rtos number 2 2)) (assoc 1 (entget sstext)) (entget sstext)))
  (ENTMOD sstext)
  (princ)
  )

  • 0

             ***  Vô lo - Vô nghĩ - Vô sầu hận  ***

***  Chẳng thương - Chẳng giận - Chẳng đau lòng  ***


#22 Danh Cong

Danh Cong

    biết lệnh hatchedit

  • Members
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 43 (tàm tạm)

Đã gửi 15 October 2016 - 09:51 AM

Chạy LISP này thử coi.

 

 

Của bạn đây: 

 

(defun c:congtext ()
(setq object (ssget '((0 . "*TEXT")))
      number 0)
(repeat (sslength object)
  (progn
    (setq number (+ number (atof (cdr (assoc 1 (entget (ssname object 0)))))))
    (ssdel (ssname object 0) object)
  )
)
 ;;;;; Chon text thay ket qua
  (setq sstext (car (entsel "Chon Text Thay Ket Qua ")))
  (setq sstext (subst (cons 1 (rtos number 2 2)) (assoc 1 (entget sstext)) (entget sstext)))
  (ENTMOD sstext)
  (princ)
  )

  • 1

             ***  Vô lo - Vô nghĩ - Vô sầu hận  ***

***  Chẳng thương - Chẳng giận - Chẳng đau lòng  ***


#23 hotanphi

hotanphi

    biết vẽ polygon

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

Đã gửi 15 October 2016 - 10:50 AM

Chạy LISP này thử coi.

Dạ được rồi anh. Em cảm ơn anh.


  • 0

#24 toaneurowindow

toaneurowindow

    biết zoom

  • Members
  • Pip
  • 16 Bài viết
Điểm đánh giá: -7 (bình thường)

Đã gửi 17 October 2016 - 08:53 AM

Chung chung thế này thì bạn chờ cao thủ viết nhé. ^_^

* tks bạn, ý mình là vầy 

mình có 10 bản vẽ mình mỗi 1 bv có 1 ô số thứ tự, mình muốn đánh số từ 01-02-03-...-10 mà ko làm thủ công, vậy anh em nghiên cứu dùm mình với :)
 


  • -1