Chuyển đến nội dung
Diễn đàn CADViet

oishisnack

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    10

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi oishisnack

  3. Đã đăng · Trả lời báo cáo

    Ok. có vẻ di chuyển tiện hơn rùi, nhưng bạn biết cách nào kết hợp luôn ko như trong clip hướng dân này nè: https://www.youtube.com/watch?v=FtTqmkWZcVM, mình thấy nó hiện bàn tay bên trong cái con trỏ và di chuyển rất nhanh. THANK!

    khi bạn nhập lẹnh và thực hiện lệnh vẽ thìvaaxnx có thể kết hợp với nhấn con lăn chuột để di chuyển màn hình mà. ko mất lênh dang thực hiện đây mà lo.

  4. Đã đăng · Trả lời báo cáo

    Hôm nay cuối tuần chia sẽ cùng các Bạn lisp in bản vẽ mình đang sử dụng:

     

    * Công dụng: in nhiều bản vẽ trong file dwg với nhiều lựa chọn

    * Tên lệnh : MPL

    * Hướng dẫn:

    3202_mpl_1.jpg

     

    - Phần plotter, paper, plotstyle các Bạn chọn cho phù hợp với nhu cầu

    - Nút “Add” là để thêm file plotstyle (*.ctb hoặc *.stb) vào autocad

    - Có 3 chế độ chọn đối tượng để xác định khung in:

      +Polyline: chọn 1 polyline có các đoạn thẳng là đường chéo của các khung in, các đoạn thẳng lẻ (1, 2, 3, ..) của polyline sẽ xác định vùng in. Sau khi chọn thì polyline này sẽ được lisp chuyển sang 1 layer không in

      +Block: bấm nút "Pick" rồi chọn block khung tên để lisp xác định tên của block cần chọn sau này

      + Rectangle: bấm nút "Pick" rồi chọn polyline để lisp xác định tên layer của các polyline cần chọn sau này

     

    - Sort:

      +Normal: đối ttượng nào chọn trước thì in trước, chọn sau in sau

      + Left to Right  và Top to Bottom: chỉ các tác dụng khi chọn theo Block hoặc Rectangle, sắp xếp các khung in theo thứ tự từ trái qua phải hoặc từ trên xuống dưới

     

    - Plot to file: in ra các file *.plt, các file *.plt được tạo sẽ nằm cùng thư mục với file dwg, tên file sẽ là tên của file dwg + số thứ tự (cách đặt tên này tương tự cho các máy in *.pc3 xuất ra các file PDF và DWF)

    - Rotation paper: xoay trang giấy 90 độ (giống như Landscape ó Portrait)

    - Nút “Select” là để chọn các khung in theo Polyline, Block, Rectangle

     

    Sau khi chọn các khung in và plotter, plotstyle hợp lệ thì các nút “Preview” và “Print” sẽ sáng lên đồng thời cũng báo có bao nhiêu khung in đã được chọn

     

    Chú ý:

    - Lisp sẽ in giữa trang giấy (center the plot)

    - Danh sách các loại giấy mình đã lọc ra các loại thường dùng. Nếu có các loại giấy do người dùng tự định nghĩa thì chú ý đặt tên giấy phải có các ký tự A0, A1, A2, A3, A4, A5 , khi đó loại giấy này mới thể hiện trong danh sách

     

    http://www.cadviet.com/upfiles/3/3202_mplmultiplot_1.rar

     

    Chúc các Bạn cuối tuần vui vẽ.

     

     

    @30/5/2014: Cập nhật:

    - Chọn được các block dynamic

    - Thêm tùy chỉnh tỉ lệ khi in

    - Lấy lại cấu hình in lần trước (khi đóng autocad thi không lấy được cấu hình cũ)

     

    http://www.cadviet.com/upfiles/3/3202_mplmultiplot_2.rar

    chào bạn

    mình đã dùng thử nhưng plot nhung líp của bạn không tự động quay khổng giấy đứng và ngang được. mình thương xuyên phải in nhều bản vẽ nguyên công trong. nên hay phải dùng lips kiều này.

    lips của bạn có giao diện dễ nhìn và hay. thank!

  5. Đã đăng · Trả lời báo cáo

    @bạn chủ topic:

    Bạn gõ : Dimedit -> gõ N -> Hộp thoại Text formatting Xuất hiện (mặc định trong hộp thoại là cặp "<>") -> Bạn cứ Nhấn OK -> Quét chọn Dim -> Xong

    anh ơi cho em hỏi thêm 1 tý. bình thường dim của em ko chỉnh sửa số thì có thể dùng cách này được.

    nếu bản vẽ bị "ma số" rồi thì sao a. ví dụ như bản cad em gửi dưới đâyhttp://www.cadviet.com/upfiles/3/89080_chinh_sua_chieu_cao_text_dim.dwg

  6. Đã đăng · Trả lời báo cáo

     

    Làm dâu trăm họ smile.gif

    Thôi thì theo cái lisp cũ, mình viết thêm vài kiểu nữa cho chắc :

    1. Change cho toàn bộ DimStyle trong bản vẽ :

    (defun c:hdima (/ table tH)
(grtext -1 "Free lisp from Cadviet @Ketxu")
(command "undo" "be")
(defun table (s / d r)
(while (setq d (tblnext s (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
)
)
(setq tH (getreal "\n Text Height :"))
(setvar "cmdecho" 0)
(mapcar '(lambda(x)(command "DIMSTYLE" "R" x)(setvar "DIMTXT" tH)(command "DIMSTYLE" "S" x "Y")) (table "DIMSTYLE"))
(command "undo" "en"))
    2. Pick đến đâu change đến đó :

    (defun c:hdimb (/ lstDstyle tH ent dstyle)
(grtext -1 "Free lisp from Cadviet @Ketxu")
(command "undo" "be")
(setvar "cmdecho" 0)
(setq tH (getreal "\n Text Height :"))
(while (setq ent (car (entsel "\n Pick dim :")))
	(if (setq dstyle (cdr (assoc 3 (entget ent))))
		(if (not (vl-position dstyle lstDstyle))
			(progn
				(setq lstDstyle (cons dstyle lstDstyle))
				(command "DIMSTYLE" "R" dstyle)(setvar "DIMTXT" tH)(command "DIMSTYLE" "S" dstyle "Y")
			)
			(princ "\nAlready Dimension Style Picked")
		)
	)
)
(command "undo" "en")
)
    3. Chọn 1 loạt rồi change :

    (defun c:hdimc (/ lstDstyle tH i ss ent dstyle)
(grtext -1 "Free lisp from Cadviet @Ketxu")
(command "undo" "be")
(setvar "cmdecho" 0)
(setq tH (getreal "\n Text Height :") i 0 ss (ssget (list (cons 0 "DIMENSION"))))
(while (setq ent (ssname ss i))	
	(if (setq dstyle (cdr (assoc 3 (entget ent))))
		(if (not (vl-position dstyle lstDstyle))
			(progn
				(setq lstDstyle (cons dstyle lstDstyle))
				(command "DIMSTYLE" "R" dstyle)(setvar "DIMTXT" tH)(command "DIMSTYLE" "S" dstyle "Y")
			)			
		)
	)
	(setq i (1+ i))
)
(command "undo" "en")
)
    Đó là công việc mà mọi người trên diễn đàn đang cố gắng làm và chia sẻ bạn à smile.gif

    lips hay nhưng mình nhập chiều cao 1 đằng thì chiều cao thực tế của text dim lại kiểu khác bạn ah.

     

  9. Đã đăng · Trả lời báo cáo

    bạn biết dùng Layout không, nếu biết dùng thi chuyển sang layout mà làm.

    để tỷ lệ bao nhiu cung dc. (nếu 2 bản vẽ cùng 1 model) nếu không cùng (2 bản cad khác nhau)m thì dùng lênh XREF mà ánh xạ bản vẽ kia vào !

    hoặc bạn BLOCk no vào rui Scan tỷ lệ 1/4 rùi chèn vào bản vẽ kia là dc rùi
     

  10. Đã đăng · Trả lời báo cáo

    Trong quá trình chỉnh sửa bản vẽ minh gặp phải lỗi là chiều cao text trong Dim không bằng nhau. minh tìm nhiều cách mà không được (chỉnh sửa trong Dimension style manager và text style) đều không được.

    trong bản vẽ có nhiều Dimension nếu muốn sửa chiều cao chữ (height text ) mà cứ phải ED từng DIM thì rất lâu mà không khoa học cho lắm.

    Minh rất mong các bạn, anh em nào biết thì giúp mình vấn đề này.!

    Mình có đính kèm File ví dụ :mellow:

    cảm ơn !!

    http://www.cadviet.com/upfiles/3/89080_sua_text_dim_1.dwg

×