Đến nội dung


Hình ảnh
- - - - -

[Nhờ chỉnh sửa] lisp matext (copy nội dung text này sang text kia)


  • Please log in to reply
4 replies to this topic

#1 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 07 October 2011 - 02:23 PM

Mình có download trên diễn đàn lisp matext: copy nội dung text A cho text B. Nhưng nó chỉ dùng được 1 lần cho copy nội dung từ A sang B, đôi khi mình gặp các trường hợp cần dùng tiếp copy nội dung text A cho text C, D, E... nữa. Các bác chỉnh dùm cho nó thành mutiple dùm mình với nhé!
Lisp matext: http://www.cadviet.c...es/3/matext.lsp
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 07 October 2011 - 02:31 PM

Lisp đã cho sẵn chức năng chọn text đích đến khi nào chán thì thôi rồi mà :o
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 07 October 2011 - 02:36 PM

Mình có download trên diễn đàn lisp matext: copy nội dung text A cho text B. Nhưng nó chỉ dùng được 1 lần cho copy nội dung từ A sang B, đôi khi mình gặp các trường hợp cần dùng tiếp copy nội dung text A cho text C, D, E... nữa. Các bác chỉnh dùm cho nó thành mutiple dùm mình với nhé!
Lisp matext: http://www.cadviet.c...es/3/matext.lsp

Bạn nói sao ấy chứ! Lisp của bác Duy copy nội dung của Text A cho nội dung các Text B, C, D, E... thoải mái và chỉ một lần là thay tất cả. Miễn là khi dòng này xuất hiện "Chon TEXT,MTEXT,DIMENSION muon chinh :" thì bạn chọn tất cả các text B, C, D, E... luôn.
Thân thương!
  • 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.


#4 Detailing

Detailing

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 667 Bài viết
Điểm đánh giá: 278 (khá)

Đã gửi 07 October 2011 - 02:38 PM

Mình có download trên diễn đàn lisp matext: copy nội dung text A cho text B. Nhưng nó chỉ dùng được 1 lần cho copy nội dung từ A sang B, đôi khi mình gặp các trường hợp cần dùng tiếp copy nội dung text A cho text C, D, E... nữa. Các bác chỉnh dùm cho nó thành mutiple dùm mình với nhé!
Lisp matext: http://www.cadviet.c...es/3/matext.lsp

yêu cầu này thực ra ko cần vì bạn có thể chọn nhiều text 1 lần nhưng chỉ thêm vài dòng nên mình "múa rìu" vậy.
goodluck!



;Viet boi: KTS_DUY BINH SON - QUANG NGAI
;Dien dan: tailieukythuat.com
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:mat ()
(command "undo" "be")
(setq donvi (/ (getvar "viewsize") 40))
(setq ddd (entsel "\nChon doi tuong mau"))
(while
(or
(null ddd)
(and (/= "TEXT" (cdr (assoc 0 (entget (car ddd))))) (/= "MTEXT" (cdr (assoc 0 (entget (car ddd))))) (/= "DIMENSION" (cdr (assoc 0 (entget (car ddd)))))
)
)
(setq ddd (entsel "\nDoi tuong phai la TEXT, MTEXT hoac DIMENSION! Chon lai"))
)
(setq DT (car ddd))
(setq DTM (entget DT))
(setq NOIDUNG (cdr (assoc 1 DTM)))
(setq DIEMCHENMAU (cdr (assoc 10 DTM)))

(setq diemvt1 (polar DIEMCHENMAU pi donvi))
(setq diemvt2 (polar DIEMCHENMAU (* 2 pi) donvi))
(setq diemvt3 (polar DIEMCHENMAU (/ pi 2) donvi))
(setq diemvt4 (polar DIEMCHENMAU (- 0 (/ pi 2)) donvi))
(grdraw diemvt1 diemvt2 3)
(grdraw diemvt3 diemvt4 3)
(while T
(Princ "\nChon TEXT,MTEXT,DIMENSION muon chinh :")
(setq xx (ssget '((0 . "TEXT,MTEXT,DIMENSION"))))
(if(not xx) (exit))
(setq L 0)
(setq M (sslength XX))
(while (< L M)
(setq DTs (ssname XX L))
(setq DTMs (entget DTs))
(setq NOIDUNGM NOIDUNG)
(setq DTMs (subst (cons 1 NOIDUNGM) (assoc 1 DTMs) DTMs))
(entmod DTMs)

(setq L (1+ L))
)
)
(command ".pan" DIEMCHENMAU DIEMCHENMAU)
(command "undo" "end")
(setvar "MODEMACRO" "**TAILIEUKYTHUAT.COM**")
(Princ))


  • 1

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#5 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 12 October 2011 - 01:28 PM

OK, đúng là cái yêu cầu của mình là thừa, mình chưa thử quét nhiều đối tượng cùng lúc. Thành thật xin lỗi vì đã làm phiền mọi người.
  • 0