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

dovananh.xd

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

  • Số lượng nội dung

    185

  • Đã tham gia

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

Bài đăng được đăng bởi dovananh.xd

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

    khi mình vẽ 1 vật thể có kích thước lớn với tỷ lệ 1:1, ví dụ như là 10000mm. Cho mình hỏi cách ghi kích thước mà sau khi in ra A4 cỡ chữ chỉ là 2.75mm và cách tạo kích thước mà với mọi độ lớn vật thể thì kích thước vẫn cố định

     

    đo kích thước bên layout thì chỉ cần 1 style, một chiều cao text...

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

    89140_untitled_1.jpg

     

    1/ Tự động chèn text (giống ô khoanh tròn) vào một điểm bất kỳ với số tăng dần, nếu số <10 thì thêm một số 0 đằng trước;

    2/ Chữ "MC-KL-" có thể thay đổi (tức là cho vào tiền tố);

    3/ Chiều cao text tùy chọn;

     

    P/S: Lisp trên dùng kèm với lisp innhanh:

    http://www.cadviet.c...140_innhanh.lsp

    Chi tiết xem thêm:

    http://www.cadviet.c...opic=42078&st=0

    Em có một file đuôi fas giải quyết được vấn đề này nhưng không thay đổi được chiều cao của chữ mỗi khi thay đổi tỷ lệ khung của bản vẽ. Pro có thể giải mã giúp em:

    http://www.cadviet.com/upfiles/3/89140_giai_ma.rar

    Cám ơn các pro trước.

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

    Chắc là không bạn ạ :) Để làm như thế thì cần biết cái khung của bạn nó trông như thế nào, cái Text nó ra làm sao, nó làm bằng Text hay ATT, nó nằm trong Block Khung tên hay nó rời rạc, quy luật tăng là như thế nào ...v...v Nói chung là rất nhiều lý do. Tuy nhiên lý do lớn nhất vẫn là bạn k để ý Nội quy yêu cầu lisp, mà mình thì nói nhiều rồi, mệt rồi, xin không nói nữa ^^

    File đây bác. Xem giúp em nhé!

    http://www.cadviet.com/upfiles/3/89140_mckl75doanab.dwg

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

    Aloooo!

    Lisp của bác rất hay.

    Em xin có một chút đóng góp vào lisp này để bác tham khảo xem nhé.

    Bây h bên model có rất nhiều bản vẽ như thế, mà bây h chỉ có một khung bên layout. Tức là khung bên layout là cố định rồi đúng không ạ? Nhưng vấn đề bây h là mỗi một bản vẽ lại một ký hiệu (ví dụ như: NV-BACBIEN-01...n), hoặc ngày tháng vào thì không có.

    Ý em bây h là bác thêm cái tiện ích nữa là tự động đánh số thứ tự ký hiệu bản vẽ vào.

    Mong bác sớm có câu trả lời!

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

    Sửa lại 1 chút theo ý bạn, còn nguyên lý làm việc vẫn giữ nguyên ý bác Tuệ, chạy mượt hay không bạn tìm bác ấy nhé :)

    (defun c:hlay(/ ss Tue-dxf Tue-ent-Lpoint ename ename2 ss2 lh ent fl)
(setq fl "")
(defun Tue-dxf (dxf ename)(cdr(assoc dxf (entget ename))))
(defun lh(dt tle goc)
(setvar "hpgaptol" 50.0)
(vl-cmdf "bhatch" "P" (getvar "hpname") tle goc "S" dt "" "")
)
(defun Tue-ent-Lpoint(e / i Lpoint);Tue-dxf
(if (wcmatch (Tue-dxf 0 e) "*POLYLINE")
(progn
 (if (= (type e) 'VLA-OBJECT) (setq e (vlax-vla-object->ename e)))
 (setq i -1)
 (Repeat (if (wcmatch (Tue-dxf 0 e) "*POLYLINE") (fix (1+ (vlax-curve-getEndParam e))) 2)
(setq Lpoint (append Lpoint (list (vlax-curve-getPointatParam e (setq i (1+ i))))))
 )
)
)
(if (wcmatch (Tue-dxf 0 e) "LINE")
 (setq Lpoint (append Lpoint (list (Tue-dxf 10 e) (Tue-dxf 11 e))))
)
Lpoint
)
(while (setq ent (entsel "\nDoi tuong chua layer mau :"))
 (setq  lay (Tue-dxf 8 (car ent))
fl (cond ((not (wcmatch lay fl))(strcat fl  lay ",")))
 )
)
(setq fl (vl-string-left-trim "," fl))
 (if (setq ss (ssget (list (cons 0 "*POLYLINE")
 (cons  8 (cond  ((setq tmp (vl-string-search "," fl)) (substr fl 1 (vl-string-search "," fl)))
  	(fl)
 )))))
(Progn    
 	(setq i -1)
 	(while (setq ename (ssname ss (setq i (1+ i))))
(setq ss2 (ssget "f" (Tue-ent-Lpoint ename) (list (cons 0 "*POLYLINE") (cons 8 fl))))
(lh  ss2  "1" "0")
 	)
))
)

    Cám ơn bác nhiều nhé!

    Nhưng hình như bác mới sửa được một ý thứ 2 trong 2 ý mà em muốn.

    Còn lựa chọn mẫu hatch và scale nữa.

    Mong bác giúp đỡ!

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

    Em muốn hatch nhiều vùng kín được tạo từ các layer, mà chỉ cần chọn theo layer không phải pick điểm hoặc chọn đối tượng. Ví dụ như trong hình vẽ có 3 layer với 3 màu khác nhau, bây h muốn hacth theo trong vùng kín được tạo bởi layer màu xanh và màu vàng chẳng hạn thì chỉ cần chọn layer không cần pick điểm. Nếu pick điểm thì rất mất thời gian. Xin cám ơn!89140_1.jpg

×