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

kien_long

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

  • Số lượng nội dung

    8

  • Đã tham gia

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

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

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

    Mình tặng các bạn chương trình tắt máy tự động, thời gian tính bằng giây

    Tối muốn nghe nhạc nhưng sợ ngủ quên, bạn mở chương trình lên đánh số giây vào xong nghe nhạc ngủ luôn khỏi sợ hao điện, khi hết thời gian ấn định máy tính tự tắt.

    Dung lượng chỉ có 23 K thôi.

    Lưu ý: di chuyển chuột vào khung chỉnh thời gian từ trên xuống

     

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

     

    Nếu thích thì cám ơn mình nha!

    Xin cám ơn đã quan tâm!

    KO cần phần mềm đâu

    Start - Run

    đánh

    shutdown -s -f -t {thòi gian}

    Sau đó đi ngủ -_-

    • Vote tăng 3

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

    Tên lệnh là DBL (Devide by Line)

    (defun c:DBL( / p1 p2 pgx pgy pgz)
 (princ "\ndevide by line\nFree lisp from cadviet.com!")
 (setq p1 (trans (getpoint "\nDiem dau: ") 1 0)
p2 (trans (getpoint p1 "\nDiem cuoi: ") 1 0)
sl (cond
     ((setq tmp (getint "\nSo lan:")) tmp)
     (t 2)
   )
x1 (car p1)
y1 (cadr p1)
x2 (car p2)
y2 (cadr p2)
pgx (/ (+ (car p1) (car p2)) 2.0)
pgy (/ (+ (cadr p1) (cadr p2)) 2.0)
pgz (/ (+ (caddr p1) (caddr p2)) 2.0)
tm (/ 1.0 sl)
index -1
g (+ (angle p1 p2) (/ pi 2.0))	
 )  
 (repeat (1+ sl)
   (setq index (1+ index)
  tht (* tm index)
  xht (+ (* x1 tht) (* x2 (- 1.0 tht)))
  yht (+ (* y1 tht) (* y2 (- 1.0 tht)))
  p (list xht yht 0.0)
  p1 (polar p g 250.0)
  p2 (polar p g -250.0)
   )
   (entmake (list (cons 0 "LINE") (cons 10 p1)(cons 11 p2)))    
 )    
 (princ)
)

     

    Cảm ơn a Nguyễn Hoành rất nhiều !

    Chúc tất cả ae tên CV mạnh khoẻ nhé

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

    Em nhờ các bác trên CadViet giúp e viết 1 lệnh với

    - Lệnh này khi chọn 2 điểm trên màn hình

    (thì có 1 khoảng cách khác 0)

    - NHập vào số điểm cần chia đều

    (chia đều khoảng cách bên trên giống lệnh Divide)

    - Vẽ các đoạn line có chiều dài 500 đơn vị và chèn vào các điểm đó

    (Ở lệnh Div có tuỳ chon là Block )

    Cảm ơn các bác trước nhé !

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

    Cam on anh Hoanh

    Em muon anh ho em cai lenh ma dung o bat ky may nao khi cam USB vao deu nhan co

    Chứ nếu cụ thể là ổ A,B,C...Z thì em nghi la ko vấn đề

    Vấn đề làm sao cho CAD tự động nhận ra ổ USB khi mình cắm vào và lưu ra nó

    Phải công nhận là aHoành "rỏi" lisp thật

    Anh nghiên cứu thêm nhé , mong anh giúp em

    Anh ngocquan mời anh 1Ken là hơi ky , em mời anh gấp đôi

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

    Khó để Lisp làm được điều này. Sao bạn không vào Windows Explorer, chọn ổ H, Ctrl+A rồi nhấn phím del là được mà.

    -- Nếu vậy ngay trong acad tôi dùng lệnh shell --> dùng lệnh format của Win -- > xong :( cần gì phải dùng như bác hoanh

    VD: shell > format h : > XONG

    Cái mà em muốn làm ở đây là : ACAD có thể làm đc nhiều thứ miễn là mình có đủ khả năng hiểu nó :lol: . Nó ko bằng Win nhưng để quản lý thì Win cũng ko bằng nhiều thằng khác như NC chẳng hạn

     

     

    Cái này bạn gõ lệnh save tại dòng command rồi enter, hộp thoại hiện ra, bạn chọn đường dẫn tới USB rồi nhấn phím save.

    Đây là một điểm lạ lùng của CAD, lệnh save không có trong menu (Menu chỉ có 2 lệnh là QSave=Ctr+S và SaveAs=Ctr+Shf+S).

     

    -- Như vậy là vẫn phải tìm đường dẫn cho nó , ở trên mạng nước ngoài em có lấy đc 1 file asave.lsp , khi đánh lệnh asave này thì bản vẽ của mình tự đọng ghi qua ổ đĩa A , mà ổ đĩa này em bị hỏng chưa kịp mua :lol:

    Buôn dưa với các bác vài lời thế có chiến đấu thì em xin lui về tuyến sau :D dưỡng bệnh

    Các đại ca cố gắng nhé , em ko làm đc nhưng ý tưởng để hoàn thiện cho người dùng CAD ở Việt nam đến 01 mức cao hơn hiện tại thì em xin đóng góp ý tưởng của mình

    Mong bac NguyenHoanh thử xem hộ em 02 cái lệnh mà em đề xuất có hợp lý ko ? Nếu ko tiện phát tán :D thì bác gửi cho em vào hộp thư architect@mobifone.com.vn em thích 02 lệnh này lắm vì em ko biết LISP nhưng em rất hay táy máy vào CAD và em đã đọc của tác giả N.T.Lộc quyển CAD nâng cao nên muốn thôi

    THANKS

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

    :( Xin chào các cao thủ

    Kien_Long em xin mạn phép hỏi các bác 1 câu gần giống bác ngocquan dùng nhé , vì em # mọi người cách dùng Win nên mới mạn phép hỏi.

    Em chia Win ra làm 4 phần

    1.Win

    2.Music

    3.Date (dữ liệu hoàn chỉnh)

    4.Dữ liệu bắt đầu (toàn file rác ) đặt tên là H

    5.01 ổ USB 0.5GB :lol: đặt tên là G

    Vậy cho em hỏi :

    -lệnh của bác hoanh có thể sửa để xoá tất cả các file cad trong ổ H đc ko ? mà xoá cả folder càng tốt vì em toàn dùng lệnh format của Win thôi :D cho nó sạch

    -bác hoanh co lệnh nào saveas ra usb mà ko chuyển bản vẽ hiện hành ra USB ko cho em với

    Mong các bác ra tay giúp em nhé , mong bác hoanh nhiều :lol:

×