Đến nội dung


Hình ảnh
- - - - -

[Yêu Cầu] Lisp nối text trước vào text sau


  • Please log in to reply
4 replies to this topic

#1 Nauvtran

Nauvtran

    biết zoom

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

Đã gửi 05 January 2013 - 01:41 AM

Xin chào các anh chị trong diễn đàn!
Em tham khảo trên diễn đàn lisp nối phần nguyên và phần thập phân rất ổn nhưng em muốn thay đổi chút. Kết quả lisp này là nối text sau vào text trước rồi xoá bỏ text sau, em muốn làm ngược lại là sau khi nối xong thì xoá bỏ text trước. Loay hoay mãi mà không ra được. Mong các anh chị giúp đỡ!


(prompt "\n NT : Lisp noi phan nguyen va phan thap phan cua text cao do")
(defun c:NT ( / SSET HND LAY OBJ)
(setq hnd (car (entsel "\nDS> Phan nguyen : ")))
(setq e (entget hnd))
(setq text1 (cdr (assoc 1 e)))
(setq hnd2 (car (entsel "\nDS> Phan thap phan : ")))
(setq text2 (cdr (assoc 1 (entget hnd2))))
(setq chunoi (strcat text1 "." text2))
(command "ERASE" hnd2 "")
(setq e (subst (cons 1 chunoi) (assoc 1 e) e))
(entmod e)
(princ)
);;end defun
  • 0

#2 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 05 January 2013 - 07:07 AM

chưa hỉu lắm :D
  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 05 January 2013 - 07:45 AM

Của bạn đây! Lần sau cho code lisp vào thẻ code nhé!

(prompt "\n NT : Lisp noi phan nguyen va phan thap phan cua text cao do")
(defun c:NT ( / SSET HND LAY OBJ)
(setq hnd1 (car (entsel "\nDS> Phan nguyen : ")))
(setq text1 (cdr (assoc 1 (setq e1 (entget hnd1)))))
(setq hnd2 (car (entsel "\nDS> Phan thap phan : ")))
(setq text2 (cdr (assoc 1 (setq e2 (entget hnd2)))))
(setq chunoi (strcat text1 "." text2))
(command "ERASE" hnd1 "")
(entmod (subst (cons 1 chunoi) (assoc 1 e2) e2))
(princ))

  • 2

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


#4 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 05 January 2013 - 08:03 AM

ah thì ra là vấn đề về vị trí giờ thì nhoc đã hỉu thanks anh Hà, chôm về xài :D
  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#5 Nauvtran

Nauvtran

    biết zoom

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

Đã gửi 05 January 2013 - 08:14 PM

Dạ em cám ơn anh Hà rất nhiều!
  • 0