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

daotukl

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

  • Số lượng nội dung

    140

  • Đã tham gia

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

  • Ngày trúng

    3

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

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

    Happy birthday to Huyền Trân

     

    Happy birthday to you, this is your day.

    On this day for you we’re gonna love you in every way.

    This is your day, your day, happy birthday to you, to you, to you.

     

    Happy birthday to you, you’re still young.

    Age is just a number, don’t you stop having fun.

    This is your day, your day, happy birthday to you.

    This day only comes once every year,

    Because you’re so wonderful with each and everything you do, hey!

     

    Happy birthday to you, this is your day.

    On this day for you we’re gonna love you in every way.

    This is your day, your day, happy birthday to you, to you.

    This day is only for you, ’cause you’re so special in every way,

    Happy birthday to you!

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

    các bác ơi cho em hỏi Em có nhiều hình giống nhau bây giờ em muốn scale các hình đó mà sau khi scale thì các hình đó vẫn giữ nguyên trọng tâm( tất nhiên là scale 1 lần) thì làm thế nào ạ?

    theo em bác block hình đó lại thì quản lý (phóng to thu nhỏ lại... ) dễ hơn. còn cái bác hỏi em bó tay, đợi cao thủ thôi !

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

    'Layer của nó' là layer nào?

     

    Hiện nay, các block được chèn vào sẽ mang layer hiện hành. Khoảng cách @ đang được nhớ, bạn chỉ cần nhấn enter là sử dụng khoảng cách @ của lần trước đó.

     

    khoảng cách @ của lần trước đó nó không nhớ bác hoành ơi:(tên lệnh em sửa lại là II)

     

    Command:

    II

    CBL - free lisp from CADViet.com

    Ten block, nhap dau * de pick block: <M16 FF>:

    Hay vao diem thu nhat:

    Hay vao diem thu hai:

    Hay vao khoang cach: 180

    Command:

    Command: II

    CBL - free lisp from CADViet.com

    Ten block, nhap dau * de pick block: <M16 FF>:

    Hay vao diem thu nhat:

    Hay vao diem thu hai:

    Hay vao khoang cach:

    ; error: bad argument type: numberp: nil

    Command:

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

    Lệnh là CBL1 dưới đây giống CBL ngoại trừ trường hợp khi khoảng cách giữa 2 điểm không chẵn với khoảng cách giữa hai block thì chương trình sẽ trừ khoảng trống hai bên bằng nhau:

    (defun c:cbl1 (/ tmp ok p1 p2 kc cur l)
 (princ "\nCBL - free lisp from CADViet.com")
 (if (not bln)
   (setq bln "*")
 )
 (while (not ok)
   (setq tmp (getstring t
		 (strcat "\nTen block, nhap dau * de pick block: <"
			 (if bln
			   bln
			   ""
			 )
			 ">: "
		 )
      )
  tmp (if (or (not tmp) (= tmp ""))
	bln
	tmp
      )
  ok  (or (tblsearch "block" tmp) (= tmp "*"))
   )
   (if	(not ok)
     (alert (strcat "Khong co block "
	     (if tmp
	       tmp
	       ""
	     )
     )
     )
   )
 )

 (if (= tmp "*")
   (setq
     tmp (cdr
    (assoc 2 (entget (car (entsel "\nHay pick vao block: "))))
  )
   )
 )

 (setq	p1 (getpoint "\nHay vao diem thu nhat: ")
p2 (trans (getpoint p1 "\nHay vao diem thu hai: ") 1 0)
kc (getdist p1 "\nHay vao khoang cach: ")
p1 (trans p1 1 0)
 )

 (setq	bln tmp	
a   (angle p1 p2)
l   (distance p1 p2)
cur (/ (- l (* kc (float (fix (/ l kc))))) 2.0)
 )
 (if (< kc 0)
   (setq kc (/ l kc -1.0))
 )
 (while (> l (- cur 0.001))
   (entmake (list (cons 0 "insert")
	   (cons 10 (polar p1 a cur))
	   (cons 2 bln)
     )
   )
   (setq cur (+ cur kc))
 )  
 (princ)
)

    THANKS bác nhiều

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

    lệnh là CBL (Chèn BLock)

    - Lúc chương trình hỏi tên block: nếu bạn muốn tên giống lần dùng lệnh trước đó chỉ cần nhấn enter, nếu bạn không nhớ tên block hãy nhập * rồi enter để pick vào 1 block trên màn hình.

    - Lúc chương trình hỏi khoảng cách: nếu bạn không nhớ khoảng cách giữa 2 block là bao nhiêu, chỉ nhớ là có k khoảng nằm giữa hai điểm, bạn chỉ cần nhập -k. Ví dụ nếu bạn muốn divide khoảng giữa hai điểm là 5 khoảng, bạn nhập vào -5. K không nhất thiết phải là số nguyên, bạn có thể nhập vào -4.5.

     

    (defun c:cbl( / tmp ok p1 p2 kc cur l)
 (princ "\nCBL - free lisp from CADViet.com")
 (if (not bln) (setq bln "*"))
 (while (not ok)
    (setq tmp (getstring t (strcat "\nTen block, nhap dau * de pick block: <" (if bln bln "") ">: "))
   tmp (if (or (not tmp) (= tmp "")) bln tmp)
   ok (or (tblsearch "block" tmp) (= tmp "*"))
    )
    (if (not ok) (alert (strcat "Khong co block " (if tmp tmp ""))))
 )

 (if (= tmp "*") (setq tmp (cdr (assoc 2 (entget (car (entsel "\nHay pick vao block: ")))))))

 (setq p1 (getpoint "\nHay vao diem thu nhat: ")
p2 (trans (getpoint p1 "\nHay vao diem thu hai: ") 1 0)
kc (getdist p1 "\nHay vao khoang cach: ")
       p1 (trans p1 1 0)
 )

 (setq bln tmp
cur 0.0
a (angle p1 p2)
l (distance p1 p2)
 )  
 (if (< kc 0) (setq kc (/ l kc -1.0)))
 (while (> l (+ cur 0.001))
   (entmake (list (cons 0 "insert") (cons 10 (polar p1 a cur)) (cons 2 bln)))
   (setq cur (+ cur kc))
 )
 (entmake (list (cons 0 "insert") (cons 10 (polar p1 a l)) (cons 2 bln)))
 (princ)
)

    bác hoành ơi em muốn hai đầu nó có khoảng trống (khoảng trống đó <=1/2@)

    thanks bác rất nhiều

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

    Danh sách CADViet Thái Bình như sau:

    1- Vanduong

    2- MANHHUNGXDA

    3- phankhoi

    4- 0123

    5- lê văn tuấn

    6- Luơng Xuân Hậu

    7- kientn1504

    8- nhatha

    9- son08

    10- hadongnat

    11- trankhoactm

    12- lolita_kt

    13- daotukl

    14- khuyennd81

    ...

    500 -

    ...

    mình có sửa lại tên của mình hehehehe

    ở kiên giang nơi mình sống cung có hội đồng hương thái bình tết năm nào cũng có họp hội và khen thưởng cho các em học sinh sv hay cá nhân có thành tích xuất sắc (ai nói là không đoàn kết đâu nhỉ )

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

    Bạn muốn đổi tên tất cả các file trong thư mục thành chữ hoa, hay đánh số, hay chèn thêm các kí tự vào trước hay sau tên file, …? Tất cả đều được làm nhanh gọn chỉ với 1 click trên RenameFiles.

     

    Bạn chỉ cần chọn thư mục, hoặc danh sách các file cần đổi tên, rồi lựa chọn các tùy chọn tương ứng mà bạn muốn rồi nhấn OK là xong. Công việc rất đơn giản và nhẹ nhàng.

    và dỉ nhiên là sửa cad file hàng loạt rồi hy vọng có người cần

    http://www.cadviet.com/upfiles/renamefiles_v242_us.exe

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

    ok

    Như vậy cho đến thời điểm này CADViet Thái Bình đã có những thành viên sau:

    1- Vanduong

    2- MANHHUNGXDA

    3- phankhoi

    4- 0123

    5- lê văn tuấn

    6- Luơng Xuân Hậu

    7- kientn1504

    8- nhatha

    9- son08

    10- hadongnat

    11- trankhoactm

    12- lolita_kt

    ...

    Thái Bình ơi Thái Bình - Ai đặt tên cho đất - Thái Bình từ bao giờ ...

     

    Anh em tiếp nhé

    không có em à em không đủ điều kiện sao hả bác -_-

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

    Đố mọi người biết:

    Câu 1:

    Sừng sững mà đứng cửa quan

    Giáo đâm không chết lòi gan ra ngoài.

    Câu 2:

    Một cây mà chẳng có cành

    Từ gốc đến ngọn dành dành là hoa,

    Người bán thì bảo là già,

    Người mua thì bảo bẩm bà còn non.

    câu 1: cái ổ khoá

    câu 2 : cái cân tay

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

    Cadviet là nơi giao lưu, học hỏi, giúp đỡ và chia sẻ... cái đó ai cũng biết rồi. Mới là thành viên cadviet vài tháng nay nhưng mỗi vào máy là tôi lại bật cadviet lên cứ như một thói quen :gun: , và tôi nghĩ mọi thành viên trong diễn đàn này cũng vậy :angry: . Thấy mọi người sốt sắng như vậy thì đủ biết là tình cảm mà mọi người dành cho cadviet như thế nào rồi :leluoi:. Sự cố hôm 24/10 vừa rồi đúng là bực thật :gun: nhưng mà cũng nên nhìn vào cái tích cực của nó đem lại, đó chính là cơ hội để bạn kiểm chứng tình cảm của bạn với cadviet, hehe đó không phải là cái tích cực của nó sao?? :angry: :s_dead:

    phải thanks bạn một cái mới được

×