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

cavoitrang_11

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

  • Số lượng nội dung

    16

  • Đã tham gia

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

  • Ngày trúng

    1

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

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

    Bạn dùng Lisp này: SE command on Layers filter

    + Gõ lệnh SE (select)

    + Command Line sẽ hỏi bạn định select xong làm gì: Erase Copy Move Rotate Scale MIrror ???

    + Gõ E, hoặc C, hoặc M, hoặc R, hoặc S, hoặc MI chọn lệnh

    + Command Line sẽ yêu cầu bạn chọn objects mẫu để lấy mẫu Layers (1 hoặc nhiều layers)

    + Chọn xong, chương trình đã thu được list layers cần lọc >>> Command Line yêu cầu bạn chọn tất cả các objects cần thao tác v

    + Lệnh Erase, hoặc Copy, hoặc Move, hoặc Rotate, hoặc Scale, hoặc MIrror sẽ được gọi để thao tác trên tập hợp được chọn

    Link hỏng rồi anh ạ. Anh share lại dùm với!

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

    Không hiểu được cách dùng của bác!

    Sếp đang bảo tìm cách tạo một tham chiếu sao cho không cần đo tỉ lệ của khung hình cần có.

    VD có khối A muốn nó to bằng khối B mà không cần biêt tỉ lệ khối B là bao nhiêu.

    Chỉ cần kéo bắt điểm từ khổi A đến điểm khối B ta được khối A bằng kích thước khối B.

    Sao bạn không dùng lệnh align????///

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

    Tôi có cái này lệnh là MAW tác dụng với PL ;line ;ARC chỉ cần chọn pl có độ rộng làm chuẩn sau đó chọn các đối tượng khác.

     

    
(DEFUN C:MAW(/ SSET NET SSL M)
(prompt "\nChon PLINE mau.")
 (setq DTD (car (entsel)))
 (setq DT (entget DTD))
 (setq NDT (cdr (assoc 40 DT)))
  (Princ "\nHay chon cac doi tuong muon chinh :")
  (Setq sset (Ssget))

 (if (Null sset)
 (princ "\nKhong chon duoc doi tuong nao")
)

  (IF (/= NIL SSET) (PROGN
  (SETQ SSL (SSLENGTH SSET))
  (INITGET 4)
  ;(SETQ NDT (GETREAL "\nNhap do rong : "))
  (IF (/= NIL NDT)
   (WHILE (> SSL 0)
     (SETQ M (SSNAME SSET (SETQ SSL (- SSL 1)) ))
     (IF (= (CDR (ASSOC '0 (ENTGET M))) "LINE") 
         (COMMAND "PEDIT" M "Y" "W" NDT "") 
     ) 

     (IF (= (CDR (ASSOC '0 (ENTGET M))) "LWPOLYLINE") 
         (COMMAND "PEDIT" M "W" NDT "") 
     ) 

    (IF (= (CDR (ASSOC '0 (ENTGET M))) "ARC") 
         (COMMAND "PEDIT" M "Y" "W" NDT "") 
     ) 


   ) 
  )))
  (PRINC)
)

    Bác cho em hỏi báo lỗi "; error: bad character read (octal): 0" là do đâu, cám ơn bác!!!

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

    Neu lisp nầy chạy tốt thì thật tiến vi lenh trim chỉ cho phép cat từng đường một trong khi lệnh này cho phép trim liên tục (em cũng xin lỗi tác giả vì em xin được một tập list nên \"chep \" ra để đúng thoi ...Nhưng chưa chạy được ). Doan lisp như sau :

    (defun C:trn ()

    (setq CVAR (Getvar "CMDECHO")) (setvar "CMDECHO" 0)

    (Prompt "Select cutting edges :") (setq CUTEDG (Ssget))

    (Prompt "select objects to trim :") (setq SS (Ssget))

    (Setq LEN (SSlength SS)) (Setq I-1)

    (Setq SIDE (getpoint"pick side to trim")) (command "TRIM" CUTEDG "")

    (Repeat LEN

    (Setq I (1+I))

    (Command (List(SSname SS I) SIDE)) )

    (Command "")

    (Setvar "CMDECHO" CVAR) (Princ "\nTrim complete.")

    (Princ) )

    Cac bac kiem tra dum nhe!!!!!!!!!

×