Tạo Khung tên

[mauhv 3]

Làm sao có thể tạo 1 khung tên bản vẽ để có thể sửa 1 lần là các bản vẽ khác sửa theo

Tôi tình cờ xem 1 bản vẽ có khung tên rất hay. Hình như là tạo từ (attribute block) gì đấy. Nhưng tôi thử mãi mà không được

Bác nào biết chỉ giúp với.

Thank all.

[KE AN MAY DI VANG 574]

Làm sao có thể tạo 1 khung tên bản vẽ để có thể sửa 1 lần là các bản vẽ khác sửa theo

Tôi tình cờ xem 1 bản vẽ có khung tên rất hay. Hình như là tạo từ (attribute block) gì đấy. Nhưng tôi thử mãi mà không được

Bác nào biết chỉ giúp với.

Thank all.

Nếu tất cả các khung tên cùng đặt một block có tên là KT chẳng hạn thì bạn có thể sửa được, bằng cách phá vỡ block của một khung tên rồi sửa. sau đó bạn tạo lại block đó nhưng nhớ là vẫn lấy tên bock cũ là KT. Như vậy bạn chỉ cần sửa một khung là tất cả các khung khác được sửa theo.Trường hợp này tôi chưa gặp trong thực tế, chẳng lẽ nhiều bản vẽ lại có khung tên giống nhau về khung hình và chữ viết sao, nó phải khác nhau về tên chi tiết chứ ?

Trong công việc hàng ngày tôi thường chỉnh sửa khung tên bằng lệnh FIND. Giả sử trong tất cả các bản vẽ có ghi ngày 2/12/07, nếu muốn sửa lại thành ngày 2/1/08 thì sẽ rất mất thời gian...Bạn chỉ cần dùng lệnh FIND sửa một ...phát là tất cả các bản vẽ đều được chỉnh sừa. Cách làm như sau:

-Bạn dùng lệnh ED sau đó nháy chuột phải vào dòng chữ cần sửa rồi copi và Esc để kết thúc lệnh ED

- Gõ lệnh FIND sẽ hiện ra bảng Find and Replac

- Paste dòng chữ vào vào ô Find text string

- Paste tiếp vào ô Replase with rồi chỉnh sửa ở dòng thứ 2 này.

[MANHHUNGXDA 458]

Nếu tất cả các khung tên cùng đặt một block có tên là KT chẳng hạn thì bạn có thể sửa được, bằng cách phá vỡ block của một khung tên rồi sửa. sau đó bạn tạo lại block đó nhưng nhớ là vẫn lấy tên bock cũ là KT. Như vậy bạn chỉ cần sửa một khung là tất cả các khung khác được sửa theo.Trường hợp này tôi chưa gặp trong thực tế, chẳng lẽ nhiều bản vẽ lại có khung tên giống nhau về khung hình và chữ viết sao, nó phải khác nhau về tên chi tiết chứ ?

Trong công việc hàng ngày tôi thường chỉnh sửa khung tên bằng lệnh FIND. Giả sử trong tất cả các bản vẽ có ghi ngày 2/12/07, nếu muốn sửa lại thành ngày 2/1/08 thì sẽ rất mất thời gian...Bạn chỉ cần dùng lệnh FIND sửa một ...phát là tất cả các bản vẽ đều được chỉnh sừa. Cách làm như sau:

-Bạn dùng lệnh ED sau đó nháy chuột phải vào dòng chữ cần sửa rồi copi và Esc để kết thúc lệnh ED

- Gõ lệnh FIND sẽ hiện ra bảng Find and Replac

- Paste dòng chữ vào vào ô Find text string

- Paste tiếp vào ô Replase with rồi chỉnh sửa ở dòng thứ 2 này.

 

đơn giản thôi mà, tôi vẫn sửa ngon lành

tôi tặng bạn 1 lisp tôi mới viết, có gì thì báo cho tôi 0977.69.1102

Cách sử dụng:

+copy cái file tvcn.dwg vào Support

+load lisp

+lệnh là bv

chú ý là số thứ tự bản vẽ nó nhẩy đấy

khi muốn sửa các cái khác thuộc khung tên, bạn dùng lệnh BE, chọn khung tên

http://www.cadviet.com/upfiles/mhpro.rar

VỚI CÁI LISP ĐƠN GIẢN NÀY, BẠN CÓ THỂ TẠO RA 1 CÁI # ĐỂ PHÙ HỢP VỚI KHUNG TÊN CỦA BẠN

+DÙNG LỆNH ATT CHO CÁC BIẾN TRONG KHUNG TÊN

+KHAI TRIÊN CÁI LISP CỦA MINH

chúc bạn thành công!!!

Phải nói thêm rằng, với cách của tôi, sau khi vẽ rất nhiều bản vẽ, bạn có thể làm 1 mục lục bản vẽ(số tthú tự và tên) chỉ trong 10'

hãy thử xem

[be_chanh 894]

sao lại có gắng làm phức tạp hóa vấn đề nên thế hả bạn. đơn giản thôi. đầu tiên ta cần xác định những thành tố nào trong khung tên sẽ thay đổi theo từng khung tên và những thành tố nào không thay đổi trong tưng khung tên.

 

với những thánh tố sẽ thay đổi thwo từng khung tên ta dùng với att, còn lại dùng với text thường. vd những thành tố sẽ thay đổi như, KT, KC..., tên bản vẽ, ti lệ....đó xong rồi bạn block hết với nhau là được mà. quá dễ phải không.

[thoclep 143]

Làm sao có thể tạo 1 khung tên bản vẽ để có thể sửa 1 lần là các bản vẽ khác sửa theo

Tôi tình cờ xem 1 bản vẽ có khung tên rất hay. Hình như là tạo từ (attribute block) gì đấy. Nhưng tôi thử mãi mà không được

Bác nào biết chỉ giúp với.

Thank all.

Bạn vào đây để tham khảo:

http://www.cadviet.com/forum/index.php?sho...ic=2085&hl=

[ro88 2]

Mình có cái khung tên này do ở công ty mình làm từ lâu giờ. toàn bộ làm thủ công hết.nhưng đối với bản vẽ nhỏ thì còn đỡ chứ mấy bản vẽ lớn thì làm mất phải vài ngày.Nhờ các bạn dựa trên khung tên có sẵn trên bản vẽ có thể viết cho mình cái lisp để làm cho nhanh hơn được ko. Cảm ơn rất nhiều.

đây là bản mẫu:

 

 

http://www.cadviet.com/upfiles/3/73751_khung_to_1.dwg

 

Mong được các bạn quan tâm

[VoHoan 6]

Làm sao có thể tạo 1 khung tên bản vẽ để có thể sửa 1 lần là các bản vẽ khác sửa theo

Nếu theo ý này của bạn thì nên dùng khung tên dạng Referencer thì hay nhất, cách dùng nó ntn thì bạn tìm trên diễn đàn nhé.

[ro88 2]

VoHoan ơi có thể giúp mình ko vậy?Tại vì đang làm gấp quá nên có gì anh em thông cảm mình nha.

[ro88 2]

Các bạn có thể bớt chút thời gian giúp mình với.Đang tạo khung tờ cho 59 tờ bản đồ mà ngồi sửa tùng tờ 1 lâu quá.nhìn loạn hết cả mắt.

Làm ơn giúp với.Cảm ơn các bạn nhiều lắm.CÓ bạn nào ở Nha Trang mình mời uống cafe.

[VoHoan 6]

Tạo khung tên là block hay Xref thì sau này chỉnh sửa khung tên thuận lợi hơn thôi. Còn bây giờ bạn vào khung tên hay sửa khung bản vẽ của người khác thì vẫn phải làm thủ công từng bản vẽ chứ.

[ro88 2]

VoHoan đã xem file bản vẽ của mình rồi ha?

Nguyên cái khung đấy là mình làm thủ công từng cái một cho nên rất mất thời gian

ở trong Topo co cái tạo khung bản đồ kiểu pick điểm dưới cùng bên trái rồi pick điểm trên cùng góc bên phải là nó chạy ra khung luôn cho mình có cả mắt lưới luôn

Nhưng nó lại không giống với cái khung mà ở cty mình đã làm,mình có up trên bản vẽ đấy.

Mình muốn nhờ bạn có thể xem bản vẽ rồi từ đó tạo lisp tạo khung tờ giúp minh được ko?

Hay là có cách nào khác bạn chỉ giúp nhé.

Cảm ơn rất nhiều.

Mình up lại bản vẽ nhé

 

http://www.cadviet.com/upfiles/3/73751_khung_to_2.dwg

 

 

Rất mong được các bạn giúp đỡ.

[VoHoan 6]

Cho mình hỏi là các text số mép ngoài bản vẽ có phải thay đổi không. Nếu chỉ có các dòng bạn chỉ dẫn phải thay đổi thì dùng khung tên block thuộc tính là làm được?

[ro88 2]

Các text số mép ngoài cũng thay đổi dựa theo mắt lưới.để mình ví dụ thế này nhé:

Bạn có thể tạo lips thế này:

Tên lệnh :KBD

pick chọn điểm góc dưới bên trái (điểm này là mắt lưới mình tạo ra co tọa độ chẵn VD: X=1349000 Y=602000)

pick chọn điểm trên cùng bên phải

VD:Tỉ lệ bản vẽ là 1/500 thì khoảng cách mỗi mắt lưới là 50 thi tọa độ sẽ tăng dần lên X=1349050 Y=602050

Text Tọa độ X và Y bạn để giống như bản vẽ của mình nhé 1349 là (0.85) 050là 1.25 và tọa độ Y cũng vậy

Quan trọng là tọa độ này thôi,tại vì khi mình có một bản vẽ lớn mình muốn tạo tờ bản đồ để in phải chia ra từng tờ mà mỗi tờ thì phải sủa lại các text tọa độ nên rất lâu, còn phần Khung tên , tỉ lệ xích, tên bản vẽ ,địa chỉ bạn tạo thế nào cũng được nhưng có thể chỉnh sủa là được rồi.

Nếu ko thấy phiền bạn có thể cho mình xin số điện thoại mình có thể trình bày rõ ràng hơn.

Thanks bạn nhiều nhé.

Bây giờ mình phải ngồi sửa từng cái lâu quá.

Để mình up bản vẽ này lên chắc bạn sẽ hình dung được,

 

 

http://www.cadviet.c...1_ban_mau_2.dwg

 

 

Sđt mình là 01662203938 có gì bạn nhá máy mình gọi lại nhé,mình tên vũ.

[VoHoan 6]

Mình làm cái lisp này bạn xem phải sửa những gì nữa nhé. Đế lisp chạy được bạn copy 3 block "Nut goc", "Nut canh" và "Nut canh dung" trong file mình gửi kèm đây vào các bản vẽ mới nhé. http://www.mediafire.com/?aziat8pathma09x (sao không dùng được up file cua CV nhi).

Riêng khung bản vẽ bạn nên tập làm theo block thuộc tính xem ntn.

(defun c:KDB ( / TLe P1 P2 P3 P4 X1 Y1 X2 Y2 Q1 Q2 Q3 Q4 Lx Ly mQ14 mQ23 mQ24 mQ13 Nx Ny
 i Qi Xi Yi)
(batdau)
(setq TLe (/ (getint "\nNhap ty le ban do <500>: ") 10)
P1 (getpoint "\nPick diem dau: ")
P2 (getpoint "\nPick diem cuoi: ")
X1 (getreal "\nNhap toa do X diem dau: ")
Y1 (getreal "\nNhap toa do Y diem dau: ")
Q1 (polar P1 (/ pi 4) (sqrt 72))
Q2 (polar P2 (* 5 (/ pi 4)) (sqrt 72))
Q3 (polar Q1 0 (- (car Q2) (car Q1)) )
Q4 (polar Q2 0 (- (car Q1) (car Q2)) )
Lx (abs (- (car Q1) (car Q2)) )
Ly (abs (- (cadr Q1) (cadr Q2)) )
mQ14 (polar Q1 (/ pi 2) (/ Ly 2))
mQ23 (polar Q3 (/ pi 2) (/ Ly 2))
mQ24 (polar Q4 0 (/ Lx 2))
mQ13 (polar Q1 0 (/ Lx 2))
X2 (+ Lx X1)
Y2 (+ Ly Y1)
Nx (fix (/ Lx TLe))
Ny (fix (/ Ly TLe))
)
(setvar "osmode" 0)
(command "RECTANG" P1 P2)
(command "PEDIT" "L" "W" 0.5 "")
(command "RECTANG" Q1 Q2)
(command "-INSERT" "Nut goc" Q1 1 1 0 "1349" (rtos Y1 2 2) (rtos X1 2 2) "589")
(command "-INSERT" "Nut goc" Q3 1 1 0 "1349" (rtos Y1 2 2) (rtos X2 2 2) "589")
(command "MIRROR" "L" "" Q3 Q2 "Y")
(command "-INSERT" "Nut goc" Q4 1 1 0 "1349" (rtos Y2 2 2) (rtos X1 2 2) "589")
(command "MIRROR" "L" "" Q4 Q2 "Y")
(command "-INSERT" "Nut goc" Q2 1 1 0 "1349" (rtos Y2 2 2) (rtos X2 2 2) "589")
(command "MIRROR" "L" "" Q3 Q2 "Y")
(command "MIRROR" "L" "" Q4 Q2 "Y")
(setq i 1)
(repeat Nx
(setq Qi (polar Q1 0 (* i TLe))
 Xi (+ X1 (* i TLe))
 i (1+ i)
)
(command "-INSERT" "Nut canh" Qi 1 1 0 "589" (rtos Xi 2 2))
(command "MIRROR" "L" "" mQ14 mQ23 "N")
)
(setq i 1)
(repeat Ny
(setq Qi (polar Q1 (/ pi 2) (* i TLe))
 Yi (+ Y1 (* i TLe))
 i (1+ i)
)
(command "-INSERT" "Nut canh dung" Qi 1 1 0 (rtos Yi 2 2) "1389")
(command "MIRROR" "L" "" mQ24 mQ13 "N")
)
(ketthuc)
)
;*******************
(defun batdau ( )
(setvar "MODEMACRO" "VoHoan")
(setvar "CMDECHO" 0)
(command "undo" "be")
(setq osl (getvar "osmode"))
(setvar "osmode" 5031)
)
;********************
(defun ketthuc ( )
(setvar "osmode" osl)
(command "undo" "end")
(princ loichao)
(princ)
)

[tranhuuanh_kt89 1]

đơn giản thôi mà, tôi vẫn sửa ngon lành tôi tặng bạn 1 lisp tôi mới viết, có gì thì báo cho tôi 0977.69.1102 Cách sử dụng: +copy cái file tvcn.dwg vào Support +load lisp +lệnh là bv chú ý là số thứ tự bản vẽ nó nhẩy đấy khi muốn sửa các cái khác thuộc khung tên, bạn dùng lệnh BE, chọn khung tên http://www.cadviet.com/upfiles/mhpro.rar VỚI CÁI LISP ĐƠN GIẢN NÀY, BẠN CÓ THỂ TẠO RA 1 CÁI # ĐỂ PHÙ HỢP VỚI KHUNG TÊN CỦA BẠN +DÙNG LỆNH ATT CHO CÁC BIẾN TRONG KHUNG TÊN +KHAI TRIÊN CÁI LISP CỦA MINH chúc bạn thành công!!! Phải nói thêm rằng, với cách của tôi, sau khi vẽ rất nhiều bản vẽ, bạn có thể làm 1 mục lục bản vẽ(số tthú tự và tên) chỉ trong 10' hãy thử xem

anh có thể chỉ rõ hơn k anh? em chưa hiểu mấy thông số trong đó có ý nghĩa gì?

[tranhuuanh_kt89 1]

Nếu tất cả các khung tên cùng đặt một block có tên là KT chẳng hạn thì bạn có thể sửa được, bằng cách phá vỡ block của một khung tên rồi sửa. sau đó bạn tạo lại block đó nhưng nhớ là vẫn lấy tên bock cũ là KT. Như vậy bạn chỉ cần sửa một khung là tất cả các khung khác được sửa theo.Trường hợp này tôi chưa gặp trong thực tế, chẳng lẽ nhiều bản vẽ lại có khung tên giống nhau về khung hình và chữ viết sao, nó phải khác nhau về tên chi tiết chứ ? Trong công việc hàng ngày tôi thường chỉnh sửa khung tên bằng lệnh FIND. Giả sử trong tất cả các bản vẽ có ghi ngày 2/12/07, nếu muốn sửa lại thành ngày 2/1/08 thì sẽ rất mất thời gian...Bạn chỉ cần dùng lệnh FIND sửa một ...phát là tất cả các bản vẽ đều được chỉnh sừa. Cách làm như sau: -Bạn dùng lệnh ED sau đó nháy chuột phải vào dòng chữ cần sửa rồi copi và Esc để kết thúc lệnh ED - Gõ lệnh FIND sẽ hiện ra bảng Find and Replac - Paste dòng chữ vào vào ô Find text string - Paste tiếp vào ô Replase with rồi chỉnh sửa ở dòng thứ 2 này.

cách này cũng được, nhưng thủ công quá..

[ketxu 2.984]

Xem bản vẽ của ro88 lại nhớ đến cái lisp in bản đồ dài chỉ dùng 1 khung tên bên Layout làm lâu lâu rồi, xét cho cùng cũng có thể update cho cái này để chỉ pick 1 phát là trình bày xong cả đống hình trích xuất kia :)

Mình cũng k hiểu sao với các text ro k dùng lisp cộng text, ngồi sửa mần chi :| Mỗi khung mất mấy phút sao hết vài ngày được :o

[ro88 2]

Ngày hôm nay mới đi làm về ko trả lời được.

Cảm ơn VoHoan và ketxu nhiều nhé.

ý của mình cũng giống như ketxu nói đấy

tạo lisp sao cho pick 2 điểm ở 2 góc khung bản đồ với nhập tỉ lệ vào là là chạy một phát ra hết cái đống lằn nhằn kia là được

ko biết là có khả thi ko nữa

[ketxu 2.984]

Không. Ý của mình là quét chọn tất cả các khung HCN, đánh dấu gốc tọa độ -> Xong cơ ^^

[ro88 2]

Để nhờ bạn master_worse sửa lại lisp (+c) cho nó xuất kết quả đè lên text cũ là ok rồi. còn mấy cái kia để sửa 1 cái rồi copy qua cho mấy bản khác.ketxu xem có thể giúp mình sửa lisp đó được ko vậy.

À cho minh hỏi cái này nhé

VD mình có text A=5000 (hay một số bất kỳ) B=6000 (hay một số bất kỳ) C= 7000 (hay một số bất kỳ),v.v.......

mình copy text A =5000 (hay một số bất kỳ) past đè vào text B,C,v.v.....đó.nó sẽ thay đổi text của B,C,v.v.. đấy thành text của A

có lisp nào như vậy ko,và nếu có thì bạn có thể cho mình cái tên để minh seach trên diễn đàn nhé.

Thanks rất nhiều.

[ketxu 2.984]

- Lisp cộng trừ nhân chia text (thay trực tiếp lên text cũ) trên diễn đàn có một lố, bạn tìm tiếp đi, k chỉ có +c đâu :)

- Lisp copy nội dung text, tìm trực tiếp trên tab Lisp của diễn đàn

[ro88 2]

ketxu ơi mình tìm thấy lisp này bác có thể sửa lại mình tí nhé VD minh co text A=700 +50 thì cho nó là số 750 còn lisp xuất ra 750,00

sửa lại giúp mình nhé

;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=13203&st=80&p=72664entry72664
(defun c:tinh()
(setq i 0 nhan 1 chia 1 cong 0)
(setq  nhan1 (getreal (strcat "\n nhap so muon nhan hoac chia <" (rtos nhan 2 3) ">: "))
cong1 (getreal (strcat "\n nhap so muon cong hoac tru <" (rtos cong 2 3) ">:")))
(if nhan1 (setq nhan nhan1))
(if cong1 (setq cong cong1))
(prompt "\nchon cac so can sua ...")
(setq txt (ssget '((0 . "TEXT"))))
(command "undo" "begin")
(repeat  (sslength txt)
(setq txt_name (ssname txt i))
(setq txt_ent (entget txt_name))
(setq cont1 (cdr(assoc 1 txt_ent)))
(setq cont (atof cont1))
(if (distof cont1 2)
 (progn
 (setq s (+ (* cont nhan) cong))
 (setq txt_ent  (subst (cons 1 (rtos s)) (assoc 1 txt_ent) txt_ent))
 (entmod txt_ent));if
);if
(setq i (+ i 1))
);repeat
(command "undo" "end")
);defun

 

cảm ơn bác.

[ro88 2]

ketxu ch­ưa onl hay sao nhỉ.có lên thì xem sửa giúp mình với nhé.Thanks.

[duy782006 1.544]

ketxu ơi mình tìm thấy lisp này bác có thể sửa lại mình tí nhé VD minh co text A=700 +50 thì cho nó là số 750 còn lisp xuất ra 750,00

sửa lại giúp mình nhé

cảm ơn bác.

Bạn thêm dòng này đầu lisp xem!

(setvar "dimzin" 8)