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

dragontalon0802

Thành viên
  • Số lượng nội dung

    98
  • Đã tham gia

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

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


  1. Đầu tiên là mình đã google, xem clip trên youtube nhưng vẫn không hiểu được bản chất trong lúc mình cần nhiều những block như thế này.

    Bác nào hướng dẫn giúp mình từng bước để có được kết quả như file này và thêm tính chất xoay 90 độ hoặc có tài liệu gì về block dynamic cụ thể và chi tiết thì nhờ share mình với.

    Thanks vì đã đọc.

     

     

    http://www.cadviet.com/upfiles/3/21973_block_dong.dwgi


  2. Chủ thớt là người đi nhờ vả mà ăn nói như thế thì đi chỗ khác mà nhờ nhé.

    Các bác cho em hỏi em dùng lisp này để xuất toạ độ trong autocad nhưng muốn đưa bảng toạ độ đó ra excel hay word thì làm như thế nào nhỉ?

    Và tiện thể cái lisp sau bị lỗi ngược toạ độ x với y, sau đó thứ tự mốc ko tự nhảy(em chọn mốc gốc là GT01 thì sau khi pic 100 điểm phải dùng lisp copy tăng dần để có GT02...GT100) có bác nào sửa giúp được ko?

    Thank các bác trước.

    : Ha Van Khanh 3/2003
    ;
    ; * Chuong trinh duoc lap bang ngon ngu AUTOLISP.
    ; ------------------------------------------------------------------------------
    (vmon)
    (defun C:bang (/ 1x 1y a1 2x 2y a2 3x 3y a3 b p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14  p15 p16x p16y p16 p17x p17y p17)
    (setvar "cmdecho" 0)  
    (initget 7)
    (setq osm (getvar "osmode" ))
    (setvar "osmode" 0)
     (command "-Style" "hoatbif" "hoatbif " "2.5" "" "" "" "" "") 
     (command "-Layer" "n" "Text" "c" "4" "Text" "")
      (setq p1 (getpoint "\nChän diÓm dÆt b¶ng thèng kª :"))
      (setq S (getint "\nSè ®iÓm cÇn tƯnh to¹ ®é :"))
     (setq p2 (polar p1 (/ (* Pi 3) 2) (+ 16 (* 8 S))))
     (setq p3 (polar p2 0 91))
     (setq p4 (polar p1 0 91))
     (setq p5 (polar p1 0 21))
     (setq p6 (polar p2 0 21))
     (setq p7 (polar p5 0 35))
     (setq p8 (polar p6 0 35))
     (setq p9 (polar p5 (/ (* Pi 3) 2) 8))
     (setq p10 (polar p4 (/ (* Pi 3) 2) 8))
     (setq p12 (polar p9 0 35))
     (setq p11 (polar p9 0 -10.5)) 
     (setq p13 (polar p1 (/ (* Pi 3) 2) 16))
     (setq p14 (polar p4 (/ (* Pi 3) 2) 16))
     (setq p15 (polar p7 (/ (* pi 3 ) 2) 4))
     (setq p16x (/ (+ (car p5) (car p7)) 2))
     (setq p16y (/ (+ (cadr p9) (cadr p13)) 2))
     (setq p17x (/ (+ (car p4) (car p7)) 2))
     (setq p17y (/ (+ (cadr p9) (cadr p13)) 2))
     (setq p16 (list p16x p16y))
     (setq p17 (list p17x p17y))
     (command "Plinewid" "0.5")
     (command "Pline" p1 p2 p3 p4 p1 "")
     (command "Line" p5 p6 "")
     (command "Line" p12 p8 "")
     (command "Line" p9 p10 "")
     (command "Line" p13 p14 "")
     (command "Array" "l" "" "Rec" S "1" "-8")
     (command "text" "j" "mc"  p11 "0"  "Tªn nót"  ) 
     (command "text" "j" "mc"  p15 "0"  "To¹ ®é" )
     (command "text" "j" "mc"  p16 "0"  "X" )
     (command "text" "j" "mc"  p17 "0"  "Y" )
    (setvar "osmode" 1)
     ;-------------------------------------------------
    ; PhÇn sö lư ch÷
    (setq b 0)
    (while (< b s )
    (setq b (+ b 1))
    (setq td (getstring "\NhËp tªn ®iÓm lÊy to¹ dé : "))
    (setq tp (getpoint "\Chän ®iÓm : "))
    (setq tx (rtos (car tp) 2 4 ))
    (setq ty (rtos (cadr tp) 2 4 ))
    (setq 1x (/ (+ (car p1) (car p5)) 2))
    (setq 1y (- (- (cadr p11) 4) (* 8 b)))
    (setq a1 (list 1x 1y))
    (setq 2x (/ (+ (car p5) (car p7)) 2))
    (setq 2y (- (cadr p16) (* 8 b)))
    (setq a2 (list 2x 2y))
    (setq 3x (/ (+(car p7) (car p4)) 2))
    (setq 3y (- (cadr p17) (* 8 b)))
    (setq a3 (list 3x 3y))
     (command "text" "j" "mc"  a1  "0"  td "" ) 
     (command "text" "j" "mc"  a3  "0"  tx "" )
     (command "text" "j" "mc"  a2  "0"  ty "" )
    )
    )
    
    
    

  3.  Hiện nay nhiều người dùng cad thường sử dụng layout vì lợi thế hơn hẳn trong trình bày và bố cục bản vẽ, nhưng cái này gây khó khăn cho những người ko biết và quản lý bản vẽ cũng khá phức tạp. Mình có ý tưởng lisp trình bày bản vẽ như file đính kèm, nếu lisp này thực hiện được sẽ giúp ích rất nhiều trong khâu trình bày và bố cục bản vẽ kể cả những người lâu năm trong nghề, rút ngắn thời gian.

    Các yêu cầu và thao tác mình ghi rõ trong file cad đính kèm, khá dài dòng và cũng phức tạp nên có lẽ tốn nhiều công sức của anh em, nhưng làm được thì sẽ lợi thế rất lớn trong việc thống nhất cách vẽ cad của rất nhiều người, thuận lợi trong việc bố cục bản vẽ cũng như có 1 bản vẽ đẹp, từ đó xây dựng tiêu chuẩn bản vẽ theo cadviet cũng như khẳng định thương hiệu của cadviet

    Mô tả ý tưởng:

    - Có 1 hình cần bố cục trong khung tỷ lệ 1/67 là đẹp nhất (tỷ lệ 67 là ví dụ chứ ko mấy ai dùng)

    - Chọn khung bản vẽ chuẩn và các đối tượng dim, text, hatch, block ký hiệu ở tỷ lê 1:1, khung tên phải là block

    - Quét qua khung tên tỷ lệ 1/67, các thông số của các đối tượng dim, text, hatch, block sẽ thay đổi phù hợp với khung 1:67

    Có nghĩa là khi in ra thì mọi thứ liên quan đến trình bày ở khung 1:67 và khung 1:1 y như nhau.

     

    Vì lisp này sẽ rất tốn nhiều thời gian và công sức của người viết và mình ko dám nhờ bỏ từng ấy công sức ra chỉ để mỗi mình dùng mà muốn xây dựng 1 tiêu chuẩn trình bày mang thương hiệu cadviet nên rất cần sự nhiệt huyết của mọi người.

    Thanks....

    http://www.mediafire.com/download/y5im09v79vjyp4v/Nho_viet_lisp.dwg

     

    Mình up mãi lên cadviet mà ko được nên up lên mediafire


  4. Vẽ kiến trúc nhiều khi thêm bớt 1 bản vẽ phải đánh lại số thứ tự 1 phần rất khó quản lý. Ý tưởng mình đưa ra nhằm tiện lợi cho anh em kiến trúc cũng như kết cấu nên mong bác nào bỏ time nghiên cứu.

    - Thường block khung tên sẽ có block att ở chỗ "tên bản vẽ" và "ký hiệu" và sẽ có các block khung cho các hạng mục khác nhau.

    - Ý tưởng hoạt động lisp:

    1. chọn 1 block khung cần đánh số thứ tự

    2. chọn att (thuộc block đã chọn) ghi ký hiệu bản vẽ (ví dụ: CT-03)

    3. kích vào block khung tiếp theo (các block khung này phải trùng tên với nhau) thì ở vị trí ký hiệu là bất kỳ cái gì nó cũng chuyển thành dạng tiếp theo của block mẫu (ví dụ KT-05 sẽ được đổi thành CT-04)

    Thanks các bác đã quan tâm.

×