Đến nội dung


Hình ảnh
- - - - -

Xin lisp đánh số thứ tự các dòng text (giống bullet and numbering trong word)


  • Please log in to reply
2 replies to this topic

#1 quochuyksxd

quochuyksxd

    biết lệnh fillet

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

Đã gửi 23 January 2015 - 07:36 AM

Mình cần xin lisp đánh số thứ tự đầu mục các các dòng dtext như trong word

Mô tả: 

-quét toàn bộ các dòng text cần đánh số thứ tự.

-Enter --> lisp tự động đánh số thứ tự từ 1 đến n (kiểu "n-" hoặc "n.") các dòng dtext từ trên xuống dưới.

Xin chân thành cảm ơn!


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 23 January 2015 - 09:40 AM

Lisp đánh số thứ tự cho các dòng Text.

; CadViet.com - 23/01/2015 - by Doan Van Ha
; Chuc nang: Danh STT cho cac dong Text, tu tren xuong duoi.
(defun C:HA(/ ss lst n str elist)
 (command "undo" "be")
 (if (setq ss (ssget '((0 . "TEXT"))))
  (progn
   (setq lst
    (vl-sort (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    '(lambda (x y)
      (> (caddr  (assoc 10 (entget x))) (caddr (assoc 10 (entget y)))))))
   (setq n 1 str "-")   ; Edit tai day!
   (foreach ent lst
    (setq elist (entget ent) ass (assoc 1 elist))
    (entmod (subst (cons 1 (strcat (itoa n) str (cdr ass))) ass elist))
(setq n (1+ n)))))
 (command "undo" "e")
 (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.


#3 quochuyksxd

quochuyksxd

    biết lệnh fillet

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

Đã gửi 23 January 2015 - 02:49 PM

Chân thành cảm ơn bác #Doan Van Ha nhé!


  • 0