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

quocmanh04tt

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

  • Số lượng nội dung

    1123

  • Đã tham gia

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

  • Ngày trúng

    153

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

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

    Vào lúc 4/6/2019 tại 11:26, colombus đã nói:

    tôi tìm cũng đã lâu. cảm ơn! chữ chuẩn mực không có gì chê được. Chữ I giá mà có gạch chân gạch đầu thì hay hơn. Tôi vẽ kết cấu thép ghi I20 bị hiểu nhầm thanh 120.

    Mình edit theo yêu cầu của bạn (chưa được chuẩn, bạn dùng tạm...):

     

    TCVN7284-I.rar

    • Like 3

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

    Không biết lệnh JOIN của cad xuất hiện từ phiên bản nào??? 

    (defun c:chia  (/ c_chia_PL ent kc ss)
  (defun c_chia_PL  (ent kc / p oldos oldp findp ss)
    (defun findp (ent) (vlax-curve-getPointAtDist ent kc))
    (setq oldos (getvar "osmode"))
    (setvar "osmode" 0)
    (setq ss (ssadd)
          ss (ssadd ent ss))
    (while (and (setq p (findp ent)) (not (equal p oldp 0.01)))
      (command ".break" ent p p)
      (setq ent  (entlast)
            ss   (ssadd ent ss)
            oldp p))
    (command ".join" ent ss "")
    (setvar "osmode" oldos))
  (if (and (setq ss (ssget '((0 . "LWPOLYLINE"))))
           (setq kc (getdist "\nVAo khoang cach: ")))
    (while (and (setq ent (ssname ss 0)) (ssdel ent ss)) (c_chia_PL ent kc)))
  (princ))

     

    • Like 1

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

    2 giờ trước, thienxd đã nói:

    Ý mình là lúc chọn để chia. thì có thể chọn 1 lúc nhiều đường để chia nhỏ ấy bạn.

    Cho mình hỏi: Với Pline nhiều phân đoạn, nếu phân đoạn trước chia cho "chiều dài đoạn chia" <DIS> không hết (có nghĩa là dư 1 đoạn < DIS), thì phân đoạn tiếp theo cộng dồn đoạn dư hay là từ điểm xuất phát của phân đoạn tiếp theo chia tiếp tục với DIS???

    Mô tả bằng hình ảnh:

     

    CPL.png

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

    1 giờ trước, Doan Nguyen Van đã nói:

    Hehe, k thấy ông chủ thớt lên hỏi bài nữa, đúng là quên khuấy trường hợp bên ngoài nữa, e thêm điều kiện đó vào rồi, nóng quá mà đầu óc giờ cứ lẫn bác ạ ^^

    Còn trường hợp này:

    Not.png

     

    02.png

    P/s: Nếu giải quyết hết các trường hợp thì lisp cũng khá dài đó!

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

    4 phút trước, Doan Van Ha đã nói:

    Chưa có lisp để dòm nhưng đang nghi ngờ sẽ có ARC dính đạn.

    Không biết dính hay không bác à! Lisp xét hai đầu của nó, từ 2 điểm gióng thẳng (// trục y) vào Pline zic zac, tiếp theo xét distance tương ứng 2 đầu của Arc với 2 điểm chiếu.  Từ đó lấy distance nhỏ làm khoảng cách move đối tượng.

    • Like 1

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

    - Pick đúp vào nó (.VnArial) - trong thư mục \Windows\Fonts\..., sẽ ra thư mục chi tiết có các loại của nó (xem hình ở dưới).

    - Ở cột Font file names: có tên fontfile và vị trí của nó (vd: C:\Windows\Fonts\VNARIAL.TTF).

    1. Nếu các file này ở trong thư mục :\Windows\Fonts\... thì luôn được, bạn có thể nhập tên file đầy đủ, hoặc tên font.

    2. Vì lý do nào đó mà các file không nằm trong thư mục nói trên, bạn có thể xóa nó và Install lại (Install for all users - thì nó sẽ vào thư mục Font của windows).

     

     

     

     

    000.pngFon_ttf.png

    • Like 1

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

    Vấn đề ở chỗ này đây: Những máy không bị lỗi thì khi dùng lệnh TT các ký tự ở trên sẽ ra kết quả:

     (183 32 208 32 204 32 213 32 210 32 221 32 215 32 222 32 227 32 223 32 226 32 236 32 242 32 245 32 254 32)

    Còn máy của bạn thì:

    (183 32 92 85 43 48 48 68 48 32 92 85 43 48 48 67 67 32 92 85 43 48 48 68 53 32 92 85 43 48 48 68
                                              50 32 92 85 43 48 48 68 68 32 215 32 92 85 43 48 48 68 69 32 92 85 43 48 48 69 51 32 223 32 226 32
                                              92 85 43 48 48 69 67 32 92 85 43 48 48 70 50 32 92 85 43 48 48 70 53 32 92 85 43 48 48 70 69 32)

    *** Để giải quyết vấn đề này... hiện tại mình chưa biết cách nào, cần phải suy nghĩ đã.

    • Vote tăng 1
×