Đến nội dung


Hình ảnh
- - - - -

Nhờ Chỉnh Sửa Lisp.


  • 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 09 August 2016 - 11:03 AM

 bác nào  có thể giúp em chỉnh sửa lisp chọn text cùng nội dung thành lisp chọn tất cả text khác nhau.

Lisp chọn text cùng nôi dung: 

(defun C:HA( / txt)

(setq txt (cdr (assoc 1 (entget (car (entsel "\nChon Text mau: "))))))

(princ "\nChon nhom Text...")

(setq ss (ssget (list '(0 . "*TEXT")

(cons 1 txt))))

(sssetfirst nil ss))

Cảm ơn các bác nhé./.

 

 

 


  • 0

#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 09 August 2016 - 11:21 AM

Delete đoạn này đi:

(cons 1 txt)


  • 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 jangboko

jangboko

    biết vẽ arc

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

Đã gửi 09 August 2016 - 11:32 AM

Delete đoạn này đi:

(cons 1 txt)

cảm ơn bác nhiều. ngon lành rồi :D


  • 0