Đến nội dung


Hình ảnh

LISP XÓA CHUỔI KÝ TỰ TEXT


  • Please log in to reply
3 replies to this topic

#1 minhngockt

minhngockt

    biết vẽ pline

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

Đã gửi 05 June 2013 - 11:12 AM

Nhờ các cao thủ viết hộ em lisp xóa các chuổi ký tự text trong một chuỗi ký tự. Đây là bản vẽ của em, em xin chân thành cảm ơn các bác.http://www.cadviet.c...s/3/61260_2.dwg


  • -1

#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 05 June 2013 - 11:49 AM

Nếu tất cả chuỗi đều có 4 ký tự trước ký tự "-" và 7 ký tự sau ký tự "-" thì dùng Find 2 lần, khỏi cần lisp.


  • 0

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

minhngockt

    biết vẽ pline

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

Đã gửi 05 June 2013 - 12:35 PM

Em cảm ơn bác


  • 0

#4 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 05 June 2013 - 02:18 PM

Nhờ các cao thủ viết hộ em lisp xóa các chuổi ký tự text trong một chuỗi ký tự. Đây là bản vẽ của em, em xin chân thành cảm ơn các bác.http://www.cadviet.c...s/3/61260_2.dwg

Hề hề hề,

Nếu còn thích lisp thì bạn thử xài cái này coi sao nhé:

http://www.cadviet.c...194_modtext.lsp

 

 

(defun Separate (S sym / i L ch)
(setq i 0 L nil)
(while (< i (strlen S))
      (setq i (1+ i) ch (substr S i 1))
      (if (= ch sym) (progn
(setq
     L (append L (list (substr S 1 (- i 1))))
     S (substr S (1+ i) (- (strlen S) i))
     i 0
)
      ))
)
(append L (list S))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tch ( / sst ltxt tx txl txn )
(vl-load-com)
(setq sst (acet-ss-to-list (ssget (list (cons 0 "text")))))
(foreach txt sst
      (setq ltxt (entget txt)
                tx (cdr (assoc 1 ltxt))
                txl (separate tx "-")               
      )
      (if (> (length txl) 1)
              (progn
                        (setq txn (nth 1 txl))
                        (setq ltxt (subst (cons 1 txn) (assoc 1 ltxt) ltxt))
                        (entmod ltxt)
              )
     )
     
)
(princ)
)

 

(defun Separate (S sym / i L ch)
(setq i 0 L nil)
(while (< i (strlen S))
      (setq i (1+ i) ch (substr S i 1))
      (if (= ch sym) (progn
(setq
     L (append L (list (substr S 1 (- i 1))))
     S (substr S (1+ i) (- (strlen S) i))
     i 0
)
      ))
)
(append L (list S))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tch ( / sst ltxt tx txl txn )
(vl-load-com)
(setq sst (acet-ss-to-list (ssget (list (cons 0 "text")))))
(foreach txt sst
      (setq ltxt (entget txt)
                tx (cdr (assoc 1 ltxt))
                txl (separate tx "-")               
      )
      (if (> (length txl) 1)
              (progn
                        (setq txn (nth 1 txl))
                        (setq ltxt (subst (cons 1 txn) (assoc 1 ltxt) ltxt))
                        (entmod ltxt)
              )
     )
     
)
(princ)
)
(defun Separate (S sym / i L ch)
(setq i 0 L nil)
(while (< i (strlen S))
      (setq i (1+ i) ch (substr S i 1))
      (if (= ch sym) (progn
(setq
     L (append L (list (substr S 1 (- i 1))))
     S (substr S (1+ i) (- (strlen S) i))
     i 0
)
      ))
)
(append L (list S))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tch ( / sst ltxt tx txl txn )
(vl-load-com)
(setq sst (acet-ss-to-list (ssget (list (cons 0 "text")))))
(foreach txt sst
      (setq ltxt (entget txt)
                tx (cdr (assoc 1 ltxt))
                txl (separate tx "-")               
      )
      (if (> (length txl) 1)
              (progn
                        (setq txn (nth 1 txl))
                        (setq ltxt (subst (cons 1 txn) (assoc 1 ltxt) ltxt))
                        (entmod ltxt)
              )
     )
     
)
(princ)
)
(defun Separate (S sym / i L ch)
(setq i 0 L nil)
(while (< i (strlen S))
      (setq i (1+ i) ch (substr S i 1))
      (if (= ch sym) (progn
(setq
     L (append L (list (substr S 1 (- i 1))))
     S (substr S (1+ i) (- (strlen S) i))
     i 0
)
      ))
)
(append L (list S))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tch ( / sst ltxt tx txl txn )
(vl-load-com)
(setq sst (acet-ss-to-list (ssget (list (cons 0 "text")))))
(foreach txt sst
      (setq ltxt (entget txt)
                tx (cdr (assoc 1 ltxt))
                txl (separate tx "-")               
      )
      (if (> (length txl) 1)
              (progn
                        (setq txn (nth 1 txl))
                        (setq ltxt (subst (cons 1 txn) (assoc 1 ltxt) ltxt))
                        (entmod ltxt)
              )
     )
     
)
(princ)
)
(defun Separate (S sym / i L ch)
(setq i 0 L nil)
(while (< i (strlen S))
      (setq i (1+ i) ch (substr S i 1))
      (if (= ch sym) (progn
(setq
     L (append L (list (substr S 1 (- i 1))))
     S (substr S (1+ i) (- (strlen S) i))
     i 0
)
      ))
)
(append L (list S))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tch ( / sst ltxt tx txl txn )
(vl-load-com)
(setq sst (acet-ss-to-list (ssget (list (cons 0 "text")))))
(foreach txt sst
      (setq ltxt (entget txt)
                tx (cdr (assoc 1 ltxt))
                txl (separate tx "-")               
      )
      (if (> (length txl) 1)
              (progn
                        (setq txn (nth 1 txl))
                        (setq ltxt (subst (cons 1 txn) (assoc 1 ltxt) ltxt))
                        (entmod ltxt)
              )
     )
     
)
(princ)
)

  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.