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

thaycung

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 thaycung

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

    Hi all !

    E làm kết cấu nên cũng ít dùng cái lệnh Wipeout. Nhưng e thấynếu muốn che đưọc nhiều đối tưọng thì cũng phải ngồi vẽ cái wipeout nhiều, hjx cũng mệt ra trò wink.gif .Có bác nào có cách làm sao chỉ cần chọn đối tượng hiện lên trên là đc ? nghĩa là mình ko phải trim những đối tượng mà hình nó đi qua . Các bác giúp e vụ này với. Thanks

     

    Tô i có câu hỏi gần giống bạn và có sưu tầm được một file nhưng không hiểu người ta đã làm được bằng cách nào, nhờ mọi người chỉ dùm. Trong file các đối tượng nằm bên dưới (phần hiện trạng) đã được che đi mà không phải trim chặt gì cả.

    http://www.cadviet.c...830_matbang.rar

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

    @thaycung: khoảng cách giữa các đường song song tăng hoặc giảm theo quy luật nào? Bạn vui lòng nói rõ?

    Khoảng cách giữa các đường đó thể tăng giảm theo nhiều tỷ lệ khác nhau: 1.2 hoặc 1.5; 2; 2.3; 3, 4 ... lần (ví dụ: nếu theo tỷ lệ 1.5 thì: khoảng cách giữa đường thứ nhất và đường thứ 2 là 1 đơn vị, giữa đường thứ 2 và đường thứ 3 sẽ là 1.5 đơn vị, giữa đường thứ 3 và đường thứ 4 sẽ là 1*1.5*1.5=2.25 đơn vị...), và tôi có thêm một đề nghị nhỏ nữa là những đường song song này được rải nằm trong một miền kín có biên là một đường tròn hoặc đa giác nào đấy.

    Cảm ơn Tue_NV và mọi người đã quan tâm tới câu hỏi của tôi!

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

    (DEFUN EXCUTE(/ n P TX TY)
 (setq str (strcat "\nPhan so le muon lay [" (itoa sl) "] (press Enter or Space for get default): "))
 (setq n (getint str))
 (if (/= n Nil)
(setq sl n)	
 )  
 (While T
(setq P Null)
(princ "\nPick a point or press ESC for exit:")
(setq P (getpoint))
(if (/= P Nil)
  (progn
(setq TX (rtos (Car P) 2 sl))
(setq TY (rtos (Cadr P) 2 sl))
(command "-INSERT" "TD" P "1" "1" "0" TX TY)
  )	  
)  
 );End While  
)
(DEFUN INIT()
 (if (= sl Nil)
(setq sl 2)
 )  
)
(DEFUN C:TOADO()
 (INIT)
 (EXCUTE)
)

    Tải thêm cái này về:

    http://www.cadviet.com/upfiles/TD.zip

    Tôi là người mới nhập diễn đàn, vẽ acad còn chậm, mong mọi người trợ giúp.

    với đoạn mã trên, có cách nào hiển thị thêm các ký tự (ví dụ: "X=" hay "Y=") ở đầu các chữ số ghi tọa độ không?

×