Bạn xài cái này, có điều là tôi chỉ làm phần đầu thống kê ra thôi, phần còn lại (kẻ bảng, nhập chữ, tính tổng) thi bạn tự làm.

Với yêu cầu của bạn thì cái lisp trên xem như đổi gần hết.

Chọn phương án nhập kết quả là nếu bạn nhập "1" nó sẽ ghi vào text có sẵn, còn không thì tạo text mới.

Lisp dưới đây bạn không cần nhập chiều cao chữ, font, nhưng phải có text mẫu trước,...

Với yêu cầu của bạn thì cái lisp trên xem như đổi gần hết.

Chọn phương án nhập kết quả là nếu bạn nhập "1" nó sẽ ghi vào text có sẵn, còn không thì tạo text mới.

Lisp dưới đây bạn không cần nhập chiều cao chữ, font, nhưng phải có text mẫu trước, nó căn cứ trên text mẫu để tạo text mới giống y.

Sau khi chọn text mẫu, bạn nhấp vào từng đối tượng, vị trí text mới ở ngay điểm bạn nhấp, chiều thì theo hướng bạn chọn.

Bạn bỏ cái dòng <span...>  ở dưới đi

Thử cái này xem sao.

Tôi hiểu tại sao rồi, vì lệnh -boundary thì màn hình phải zoom toàn bộ thì nó mới tạo được pline.

Bạn sửa lại như sau:

Tuyệt vời bạn ơi, cảm ơn bạn rất nhiều

Bạn có thể chỉnh thêm cho mình 1 chút nữa được không

1. Text có tới 3 chữ số 0 đằng sau mình không cần chĩnh xác đến đó ( minh chỉ cần tròn số thôi ( chẳng hạn như 1922 thành 1900 hay 2354 thanh 2400 ..)

2. Text và đường thẳng sát nhau quá có thể điều...

>>

Tuyệt vời bạn ơi, cảm ơn bạn rất nhiều

Bạn có thể chỉnh thêm cho mình 1 chút nữa được không

1. Text có tới 3 chữ số 0 đằng sau mình không cần chĩnh xác đến đó ( minh chỉ cần tròn số thôi ( chẳng hạn như 1922 thành 1900 hay 2354 thanh 2400 ..)

2. Text và đường thẳng sát nhau quá có thể điều chỉnh khoảng cách giữa text và đường thẳng được k bạn bởi sát nhau quá khi in nó bị trung nét

mà tại sao bỏ cái dòng <span...> vậy bạn

Thanks bạn

Sửa lại theo ý bạn, ở lisp này nếu bạn đã chon chữ mẫu 1 lần rồi thì nếu không muốn chọn lại thì cứ enter .

Sở dĩ bảo bạn xóa dòng span là vì dơn theo dạng giống mục #7 dễ phát sinh những ký tự lạ mà mình không muốn có, nó có thể làm lisp không chạy được.

Bạn thử cái này.

Bạn dùng thử cái này có tính trường hợp bylayer, còn cái lisp của bạn chưa down được, link cadviet up được mà down không được.

Bạn xài thử cái này.

http://www.mediafire.com/download/b73wvttcjl66q0n/pda.LSP

Bạn làm các bước sau:

1. Down cái lisp trên đây về, mở cad , vào lệnh ap > trong phần StartUp Suite > contents > Add > chỉ đường dẫn file mới down > close > close . Làm như vậy để mở file nào cũng load lisp này...

Bạn xài thử cái này.

http://www.mediafire.com/download/b73wvttcjl66q0n/pda.LSP

Bạn làm các bước sau:

1. Down cái lisp trên đây về, mở cad , vào lệnh ap > trong phần StartUp Suite > contents > Add > chỉ đường dẫn file mới down > close > close . Làm như vậy để mở file nào cũng load lisp này vào.

2. Mở file cần group layer. Đánh lệnh "pda", Nhấn 2 chữ (thí dụ "g" "1") để tạo tên lệnh (nhấn từng chữ một rời rạc chứ không phải nhấn 1 chữ rồi giữ nhấn chữ kia giống như ctrl-1), sau khi vừa nhấn xong 2 chữ thì chọn đối tượng thuộc nhóm layer đó (vừa xong 2 chữ là chuyển liền không cần enter). Cứ chọn 2 chữ rồi chọn layer như vậy đền khi nào hết group thì enter hoặc space để dừng lệnh.

3.Test lại bằng cách gõ "g1", "g2"... ở dòng command.

4.Làm việc xong nhớ save file lại, lần sau mở ra mới có sẵn các lệnh "g1" "g2"...để xài.

Chú ý: Nếu bạn chọn tên trùng tên lệnh có sẵn thì lệnh cũ không dùng được nữa (phải đổi tên lệnh cũ).

Vậy thì dùng cái này, bạn nhấp vào Att nào đó của block mẫu, sau đó chọn các block khác, cái nào có tag giống tag mẫu sẽ link.

Thử cái này xem sao: các đối tượng được chọn sẽ HighLight va nhấp nháy khi di chuột.

Đây bác ạ???

Hề hề hề,

Bạn chịu khó down lại từ đây vậy

(defun c:vnc (/ oldos p1 p2 p3 p4 p5 p6)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint "\n Chon diem dau cua net cat: ")
          p2 (getpoint p1 "\n Chon diem cuoi cua net cat: ")
          d...
>>

Đây bác ạ???

Hề hề hề,

Bạn chịu khó down lại từ đây vậy

(defun c:vnc (/ oldos p1 p2 p3 p4 p5 p6)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint "\n Chon diem dau cua net cat: ")
          p2 (getpoint p1 "\n Chon diem cuoi cua net cat: ")
          d (distance p1 p2)
          a (angle p1 p2)
) 
(command "line" p1 (setq p3 (polar p1 a (- (/ d 2) (/ d 25))))
                                   (setq p4 (polar p3 (- a (/ pi 2)) (/ d 10)))
                                   (setq p5 (polar (setq p6 (polar p2 (+ a pi) (- (/ d 2) (/ d 25)))) (+ a (/ pi 2)) (/ d 10)))
                                   p6 p2 "")
(setvar "osmde" oldos)
(princ)
)

Hy vọng không còn bị lỗi bởi trang download của diễn đàn cũng chưa được hoàn toàn ngon.

Chúc thành công.

rảnh rỗi sinh nông nổi nên làm liều cho bạn ! :D :D :D

;lisp copy noi dung tung text nhom nay sang nhom khac
(defun c:TEST( / ss ss1 i ct)
(prompt "\nChon cac text can copy noi dung !")
(setq ss (ssget '((0 . "TEXT,MTEXT"))))
(prompt "\nChon cac text can paste noi dung !")
(setq ss1 (ssget '((0 . "TEXT,MTEXT")))
	  i 0)
(while (and ss ss1 (<= (sslength ss) (sslength ss1)) (< i (sslength ss)))
	(setq ct (assoc 1 (entget (ssname ss...
>>

rảnh rỗi sinh nông nổi nên làm liều cho bạn ! :D :D :D

;lisp copy noi dung tung text nhom nay sang nhom khac
(defun c:TEST( / ss ss1 i ct)
(prompt "\nChon cac text can copy noi dung !")
(setq ss (ssget '((0 . "TEXT,MTEXT"))))
(prompt "\nChon cac text can paste noi dung !")
(setq ss1 (ssget '((0 . "TEXT,MTEXT")))
	  i 0)
(while (and ss ss1 (<= (sslength ss) (sslength ss1)) (< i (sslength ss)))
	(setq ct (assoc 1 (entget (ssname ss i))))
	(entmod (subst ct (assoc 1 (setq info (entget (ssname ss1 i)))) info))
	(setq i (1+ i))
)
(princ)
)

Chắc là vậy?

Cuối cùng cũng tìm ra được 1 giải thuật để giải quyết yêu cầu của chủ topic.

Lisp dưới đây có các chức năng sau:

- Làm đậm các đối tượng được chọn (tương tự như khi di chuột vào từng đối tượng).

- Highlight các đối tượng được chọn (tương tự như khi di chuột vào từng đối tượng).

- Làm nhấp nháy các đối tượng được chọn khi di chuột (cái này hình...

Cuối cùng cũng tìm ra được 1 giải thuật để giải quyết yêu cầu của chủ topic.

Lisp dưới đây có các chức năng sau:

- Làm đậm các đối tượng được chọn (tương tự như khi di chuột vào từng đối tượng).

- Highlight các đối tượng được chọn (tương tự như khi di chuột vào từng đối tượng).

- Làm nhấp nháy các đối tượng được chọn khi di chuột (cái này hình như Cad nguyên thủy chưa thấy có?).

Nếu chủ topic chấp nhận kiểu "làm mờ các đối tượng không được chọn" như trong lisp thì sử dụng. Còn bằng không thì hãy đợi đấy, lúc nào rảnh mần tiếp.

Nếu chỉ move text tới "dính" vào pline hoặc line mà không cần xoay text thì dùng cái dưới đây.

Ở đây text là left, và không kéo dài line hoặc pline, nếu bạn muốn kéo dài thì tìm chỗ nào có chữ "nil" đổi thành "t".

Nhờ các member ai biết chỉnh sửa giúp mình Lisp phun tọa độ từ file TXT vào trong CAD với

- File txt mình có cáu trúc STTXYZ

- Khi chạy lisp, nó không hiển thị giá trị Z

Help !

;; free lisp from cadviet.com

;;; this lisp was downloaded from

Nhờ các member ai biết chỉnh sửa giúp mình Lisp phun tọa độ từ file TXT vào trong CAD với

;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/20044-yeu-cau-lisp-phun-toa-do-cac-diem-tu-file-txt-vao-cad/page-3
;; free lisp from cadviet.com

(defun c:RFT (/ code data f h line pt pxy spc txt stt ten)

;Read File Txt

;| By : Gia Bach, gia_bach @ www.CadViet.com |;

(vl-load-com)

(defun Split (str / i kitu line lst txtPhanbiet)

(setq i 1

txtPhanbiet

(strcat (chr 9) (chr 32) (chr 44))

)

(while (< i (strlen str))

(setq kitu (substr str i 1))

(if (vl-string-search kitu txtPhanbiet)

(progn

(if (null Lst)

(setq Lst (list (substr Str 1 (- i 1))))

(setq Lst (append Lst (list (read (substr Str 1 (- i 1))))))

)

(setq Str (substr Str (+ i 1))

i 1

)

)

(setq i (1+ i))

)

)

(setq Lst (append Lst (list Str)))

)

(or *h* (setq *h* 2))

(initget 6)

(setq h (getdist (strcat "\nNhap chieu cao Text <" (rtos *h*) "> :")

)

)

(if h

(setq *h* h)

(setq h *h*)

)

(if (setq ten (getfiled "Chon File txt" (getvar "dwgprefix") "txt" 8))

(progn

(or (tblsearch "layer" "Point")

(command "-layer" "n" "Point" "")

)

(or (tblsearch "layer" "Sothutu")

(command "-layer" "n" "Sothutu" "c" 3 "Sothutu" "")

)

(or (tblsearch "layer" "Caodo")

(command "-layer" "n" "Caodo" "c" 4 "Caodo" "")

)

(or (tblsearch "layer" "Code")

(command "-layer" "n" "Code" "c" 2 "Code" "")

)

(setq spc (vla-get-ModelSpace

(vla-get-ActiveDocument (vlax-get-Acad-Object))

)

)

(setq f (open (findfile ten) "r"))

(while (setq Line (read-line f))

(if (wcmatch

Line

(strcat "*" (chr 9) "*,*" (chr 32) "*,*`" (chr 44) "*")

)

(progn

(setq data (split Line)

code (last data)

)

(if (and

(= (vl-list-length data) 5)

(setq pt (vl-remove code (cdr data)))

(not (vl-catch-all-error-p

(vl-catch-all-apply 'vlax-3d-point pt)

)

)

)

;;;neu du lieu data co 5 bien so

(progn

(setq stt (car data)

pXY (list (car pt) (cadr pt))

)

(vla-put-Layer

(vla-addpoint spc (vlax-3d-point pXY))

"Point"

)

(vla-put-Layer

(setq txt (vla-addtext

spc

stt

(vlax-3d-point (list 0 0 0))

h

)

)

"Sothutu"

)

(vla-put-Alignment txt 8)

(vla-put-TextAlignmentPoint txt (vlax-3d-point pXY))

(vla-put-Layer

(setq txt (vla-addtext

spc

code

(vlax-3d-point (list 0 0 0))

h

)

)

"Code"

)

(vla-put-Alignment txt 6)

(vla-put-TextAlignmentPoint

txt

(vlax-3d-point (polar pXY 0 (* 0.2 h)))

)

(vla-put-Layer

(vla-addtext spc (caddr pt) (vlax-3d-point pXY) h)

"Caodo"

)

)

;;het progn list data=5

;;;neu du lieu data co 4 bien so (ban co the dung ham COND hoac if de bay loi

(progn

(setq pt (vl-remove code (cdr data)))

(not (vl-catch-all-error-p

(vl-catch-all-apply 'vlax-3d-point pt)

)

)





(setq stt (car data)

pXY (list (car pt) (cadr pt))

)

(vla-put-Layer

(vla-addpoint spc (vlax-3d-point pXY))

"Point"

)

(vla-put-Layer

(setq txt (vla-addtext

spc

stt

(vlax-3d-point (list 0 0 0))

h

)

)

"Sothutu"

)

(vla-put-Alignment txt 8)

(vla-put-TextAlignmentPoint txt (vlax-3d-point pXY))

(vla-put-Layer

(vla-addtext spc (last data) (vlax-3d-point pXY) h)

"Caodo"

)

)

;;;het progn list=4

)

)

)

)

)

)

(princ)

)