Chuyển text sẵn có thành ATT

[almodeus 1]

có cách nào chuyển text sẵn có sang ATT không các bạn, có thể viết lisp giúp mình ko

[nghiautc 19]

có cách nào chuyển text sẵn có sang ATT không các bạn, có thể viết lisp giúp mình ko

http://www.mediafire.com/?buh6hcr6aob3lhm

bạn download xuống dùng ap vào dùng lệnh att

:=================

Sub Att()

On Error Resume Next

Dim Att As AcadAttribute

Dim ObjText As AcadText

ThisDrawing.Utility.GetEntity ObjText, basePnt, vbCr & "Chon Text"

ThisDrawing.ModelSpace.AddAttribute ObjText.Height, acAttributeModeVerify, ObjText.TextString, ObjText.InsertionPoint, ObjText.TextString, ObjText.TextString

ObjText.Delete

End Sub

:=================

[almodeus 1]

ko dung duoc ban oi tét lai zum minh nhe...

[ketxu 3005]

ko dung duoc ban oi tét lai zum minh nhe...

Search là thấy ngay cho bạn đây ^^

 

;free lisp from cadviet.com posted by ketxu
(defun c:t2att (/ ss i en ed)
 (while (not ss)
        (princ "\nChon text de chuyen thanh ATT :")
        (setq ss (ssget (list (cons 0 "TEXT")
                              (if (getvar "CTAB")
                                  (cons 410 (getvar "CTAB"))
                                  (cons 67 (- 1 (getvar "TILEMODE"))))))))

 (setq i (sslength ss))
 (while (not (minusp (setq i (1- i))))
        (setq en (ssname ss i)
              ed (entget en))
        (if (wcmatch (cdr (assoc 1 ed)) "* *")
            (alert "\nDay ky tu chua khoang trong, khong thuc hien duoc")
            (progn
              (entmake (list (cons 0 "ATTDEF")
                             (assoc 8 ed)
                             (assoc 10 ed)
                             (assoc 11 ed)
                             (assoc 7 ed)
                             (assoc 40 ed)
                             (assoc 41 ed)
                             (assoc 50 ed)
                             (assoc 51 ed)
                             (cons 70 0)
                             (assoc 71 ed)
                             (assoc 72 ed)
                             (cons 74 (cdr (assoc 73 ed)))
                             (assoc 210 ed)
                             (cons 1 "")
                             (cons 2 (cdr (assoc 1 ed)))
                             (cons 3 (cdr (assoc 1 ed)))
                             (if (assoc 6 ed) (assoc 6 ed)'(6 . "BYLAYER"))
                             (if (assoc 39 ed) (assoc 39 ed)'(39 . 0))
                             (if (assoc 62 ed) (assoc 62 ed)'(62 . 256))))
              (entdel en))))
 (redraw)
 (prin1))

[nghiautc 19]

ko dung duoc ban oi tét lai zum minh nhe...

Bạn tải xuống và áp cả 2 phần vào rồi chạy đó là VBA ko phải Lisp

[envirtech2002 9]

Mình có cái lisp ngược lại, chuyển att thành text, bác nào có cần không nhỉ?

[trungnv61 11]

mình cần cái lisp chuyển đối tượng att thành text. nhìu bản vẽ bên kiến trúc chuyển sang k hỉu sao họ để tên trục là att mà cũng k phải block nên khi mình xref các att k hiện lên.........bác nào có lisp chuyển các đối tượng att này thành text làm ơn share cho mình với nha!!!!!!!!chân thành cảm ơn

[Doan Van Ha 3211]

Của thằng Tây, bạn dùng nhé.

 

(defun C:A2T (/ eset1 blkcnt en enlist vl space)
  (setq eset1  (ssget (list (cons 0 "ATTDEF")))
blkcnt 0)
  (if eset1
    (while (<= blkcnt (- (sslength eset1) 1))
      (setq en    (ssname eset1 blkcnt)
   enlist (entget en)
   space  (cdr (assoc 67 enlist)))
      (setq vl (list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbText")
(assoc 7 enlist)
(assoc 8 enlist)
(assoc 10 enlist)
(assoc 40 enlist)
(cond ((assoc 62 enlist))
      ((cons 62 256)))
(cons 1 (cdr (assoc 2 enlist)))
(if (= space nil)
  (cons 67 0)
  (cons 67 space))))
      (entdel en)
      (entmake vl)
      (setq blkcnt (1+ blkcnt)))))
 

[trungnv61 11]

Thanks pác Hà nhìu nhé.hihi

[Doan Van Ha 3211]

Có lẽ do forum bị lỗi. Bạn down lại nhé.

 

(defun C:A2T (/ eset1 blkcnt en enlist vl space)
  (setq eset1  (ssget (list (cons 0 "ATTDEF")))
blkcnt 0)
  (if eset1
    (while (<= blkcnt (- (sslength eset1) 1))
      (setq en    (ssname eset1 blkcnt)
   enlist (entget en)
   space  (cdr (assoc 67 enlist)))
      (setq vl (list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbText")
(assoc 7 enlist)
(assoc 8 enlist)
(assoc 10 enlist)
(assoc 40 enlist)
(cond ((assoc 62 enlist))
      ((cons 62 256)))
(cons 1 (cdr (assoc 2 enlist)))
(if (= space nil)
  (cons 67 0)
  (cons 67 space))))
      (entdel en)
      (entmake vl)
      (setq blkcnt (1+ blkcnt)))))

[Doan Van Ha 3211]

Em copy file về, đừng down. Forum dạo này hay lỗi down load.

[giaoducviet 0]

sao mình copy về mà không dùng được nhỉ, báo lỗi

[vuonghung018 1]

Mình có cái lisp ngược lại, chuyển att thành text, bác nào có cần không nhỉ?

có bạn gửi vào email: hungdhnt2004@gmail.com hộ mình nhé