Nhờ viết giùm lisp xoay text

[buithengan1 1]

Bạn nào biết viết giùm mình lisp này tí. Mình có 1 bản vẽ có rất nhiều text và Mtext mình muốn khi sửa dụng lisp này sẽ lọc tất cả các text và Mtext có giá trị nhỏ hơn 1 và thay giá trị góc xoay của text thành 90 độ. cảm ơn các bạn.

[dinhvantrang 151]

QuickSelect phát nhé là xong

[buithengan1 1]

QuickSelect chỉ chon được giá trị bằng hoặc khác thôi ban ơi

[Danh Cong 422]

CadViet Search đi. Trên diễn đàn thiếu gì? Mục tiêu chỉ là lọc được Text, Mtext.  Xoay là vấn đề đơn giản, không cần xét đến.

[lp_hai 225]

Các bác làm khó chủ thớt quá :) cái này phải dùng lisp là đúng rồi, vì lọc theo giá trị của text nữa. Cơ mà chủ thớt cần đưa ra text hoặc Mtext có dạng như thế nào VD chỉ toàn số 0.001 hay là H=0.01 đó là mình vd, bạn phải nói rõ cái này để việc xử lý text lấy giá trị được đúng theo ý bạn

[buithengan1 1]

text hoặc mtext của mình chỉ toàn là số thôi bạn

 

[dinhvantrang 151]

23 phút trước, buithengan1 đã nói:

text hoặc mtext của mình chỉ toàn là số thôi bạn

 

 

bạn tham khảo bài này :Chọn dc cái Mtext/Text rồi thì việc xoay đơn giản

 

 

[buithengan1 1]

cái lisp này chỉ chon được text thôi bạn à

 

[doductiep 28]

1 giờ} trướ}c, buithengan1 đã nói:

cái lisp này chỉ chon được text thôi bạn à

 

Code bạn sài tạm

(defun c:xt ( / lst oldEntity Agl Val  )
(setvar "CMDECHO" 0)
(setvar "osmode" 0)

            (setq lst (acet-ss-to-list (ssget '((0 . "TEXT,MTEXT")))))

            (foreach i lst
                        (setq oldEntity (entget i))
                        (setq Val (atof (cdr (assoc 1 oldEntity))))
                            (if (< Val 1)
                                (progn
                                    (setq oldEntity (subst (cons 50 (/ PI 2)) (assoc 50 oldEntity) oldEntity))
                                    (entmod oldEntity)
                                    (entupd i)
                                );progn
                            ); if
            
            ); foreach
(setvar "osmode" 15359)
)

Xoaytext.lsp

[buithengan1 1]

cái lisp này nó xoay tất cả các text và mtext bạn à

[Danh Cong 422]

12 giờ trước, buithengan1 đã nói:

cái lisp này nó xoay tất cả các text và mtext bạn à

Cái kiểu người ta đã mất công giúp đỡ mà ko thèm cám ơn 1 câu. Đợi đến 1 năm sau khi dùng bị lỗi,  không thấy hợp thì bắt đầu vào lại diễn đàn bình luận này nọ.

Thể loại này riêng mình thì chắc mình cho tàu lượn. Văn hoá giao tiếp quá kém.