Dãn các dòng text đều nhau

[quyennv01 12]

Chào mọi người. các bạn giúp mình với nhé.

Giờ mình có các dòng text rời rạc nhau.mình muốn sắp xếp chúng sao cho các dòng chữ cách đều nhau một khoảng nào đó.mọi người viết cho mình xin cái lisp như vậy nhé.cám ơn.

[duongsatdn 763]

Chào mọi người. các bạn giúp mình với nhé.

Giờ mình có các dòng text rời rạc nhau.mình muốn sắp xếp chúng sao cho các dòng chữ cách đều nhau một khoảng nào đó.mọi người viết cho mình xin cái lisp như vậy nhé.cám ơn.

Bài này chưa vừa ý bạn chăng?

"Líp giãn dòng text"

mọi người giúp mình nhé.

giờ mình có các dòng text ở các vị trí khác nhau.mình muốn đưa nó về một chỗ rồi sắp xếp thẳng hàng căn lề nào đó (trái ,phải, giữa, )và mình muốn cho các dòng text nó giãn dòng đều nhau.giúp mình nhé.cám ơn.

[quyennv01 12]

Bài này chưa vừa ý bạn chăng?

"Líp giãn dòng text"

cái topic đó là do mình viết, nhưng các bài của mọi ngưòi vẫn chưa hiểu ý mình. ý mình là giờ các dòng text rời rạc của mình,mình dánh lệnh lisp.rồi chọn các dòng text. sau đó chọn khoảng cách giữa các dòng.mục đích để cho các dòng text chúng cách đều nhau.(các dòng text đây là các dòng rời rạc không phải là các dòng trong mtext).giúp mình nhé.thank.

[Tue_NV 3.912]

cái topic đó là do mình viết, nhưng các bài của mọi ngưòi vẫn chưa hiểu ý mình. ý mình là giờ các dòng text rời rạc của mình,mình dánh lệnh lisp.rồi chọn các dòng text. sau đó chọn khoảng cách giữa các dòng.mục đích để cho các dòng text chúng cách đều nhau.(các dòng text đây là các dòng rời rạc không phải là các dòng trong mtext).giúp mình nhé.thank.

Bạn đã chạy thử Code của bác Hoành chưa vậy? Code có tính năng dãn dòng Text chứ không phải là Mtext.

Bạn phải đọc kỹ bài chứ. Đường Link đó mình đã post ngay trong topic của bạn

Chào bạn. Chúc bạn vui.

[quyennv01 12]

Bạn đã chạy thử Code của bác Hoành chưa vậy? Code có tính năng dãn dòng Text chứ không phải là Mtext.

Bạn phải đọc kỹ bài chứ. Đường Link đó mình đã post ngay trong topic của bạn

Chào bạn. Chúc bạn vui.

mình làm rồi, nhưng mà khi nhập lệnh xong, chọn các dòng text thi cad không thwcj hiện lệnh nữa, bạn thử kêểm tra lại cái code đó hộ mình được không, mình chưa biết nhêều về lisp.cám ơn.

[Tue_NV 3.912]

mình làm rồi, nhưng mà khi nhập lệnh xong, chọn các dòng text thi cad không thwcj hiện lệnh nữa, bạn thử kêểm tra lại cái code đó hộ mình được không, mình chưa biết nhêều về lisp.cám ơn.

Bạn phải đọc cho kỹ từng trang chứ?

Lệnh Stext của bác Hoành đây bạn :

(defun c:stext (/ sst lstent egoc pgoc xgoc yht zgoc linespc ee tt)
(if (not tyledong)
(setq tyledong 1.5)
)
(princ "\nSap xep text © CADViet.com")
(setq sst (ssget '((0 . "TEXT")))
lstent (ss2ent sst)
tmp (getreal (strcat "\nVao ty le dong khoang cach dong (rtos tyledong 2 2)
">: "
)
)
tyledong (cond
(tmp tmp)
(t tyledong)
)
lstent (vl-sort lstent
'(lambda (e1 e2)
(> (cadr (cdr (assoc 10 (entget e1))))
(cadr (cdr (assoc 10 (entget e2))))
)
)
)
egoc (car lstent)
lstent (cdr lstent)
pgoc (cdr (assoc 10 (entget egoc)))
xgoc (car pgoc)
yht (cadr pgoc)
zgoc (caddr pgoc)
hgoc (cdr (assoc 40 (entget egoc)))
linespc (* hgoc (+ 1.0 tyledong))

)
(foreach ee lstent
(setq tt (entget ee)
tt (subst (list 10
xgoc
(setq yht (- yht linespc))
zgoc
)
(assoc 10 tt)
tt
)
)
(entmod tt)
(entupd ee)
)
(princ)
)
(defun ss2ent (ss / sodt index lstent)
(setq
sodt (cond
(ss (sslength ss))
(t 0)
)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent) 
)
(princ
"\nSTEXT - Sap xep text - free lisp from www.cadviet.com"
)
(vl-load-com)

[quyennv01 12]

Bạn phải đọc cho kỹ từng trang chứ?

Lệnh Stext của bác Hoành đây bạn :

(defun c:stext (/ sst lstent egoc pgoc xgoc yht zgoc linespc ee tt)
(if (not tyledong)
(setq tyledong 1.5)
)
(princ "\nSap xep text © CADViet.com")
(setq sst (ssget '((0 . "TEXT")))
lstent (ss2ent sst)
tmp (getreal (strcat "\nVao ty le dong khoang cach dong <"
(rtos tyledong 2 2)
">: "
)
)
tyledong (cond
(tmp tmp)
(t tyledong)
)
lstent (vl-sort lstent
'(lambda (e1 e2)
(> (cadr (cdr (assoc 10 (entget e1))))
(cadr (cdr (assoc 10 (entget e2))))
)
)
)
egoc (car lstent)
lstent (cdr lstent)
pgoc (cdr (assoc 10 (entget egoc)))
xgoc (car pgoc)
yht (cadr pgoc)
zgoc (caddr pgoc)
hgoc (cdr (assoc 40 (entget egoc)))
linespc (* hgoc (+ 1.0 tyledong))

)
(foreach ee lstent
(setq tt (entget ee)
tt (subst (list 10
xgoc
(setq yht (- yht linespc))
zgoc
)
(assoc 10 tt)
tt
)
)
(entmod tt)
(entupd ee)
)
(princ)
)
(defun ss2ent (ss / sodt index lstent)
(setq
sodt (cond
(ss (sslength ss))
(t 0)
)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent) 
)
(princ
"\nSTEXT - Sap xep text - free lisp from www.cadviet.com"
)
(vl-load-com)

úi trời.lần này thì ngon rồi.cám ơn bạn nhiều nhé.

[tuan_thietkedien 15]

úi trời.lần này thì ngon rồi.cám ơn bạn nhiều nhé.

 

Chào bạn

Mình thấy bạn cám ơn mà quên bấm nút thank cho những người đã giúp bạn í. :cheers:

[cad học việc 0]

Mình chưa biết sử dụng lip này bạn có thể hướng dẫn cụ thể được không ?

[dinhphuc2010 0]

Cái Lisp này chỉ dùng được cho text có Justify là Left thôi, các vị trí khác như Right, Center không được thì phải. Bác Tue_NV giúp sửa lại được không. Thanks bác nhiều.

[ketxu 2.983]

Cad đời cao đã có hẳn 1 lệnh rất pro cho yêu cầu này rồi mà :)