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

Danh Cong

Moderator
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    1387

  • Đã tham gia

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

  • Ngày trúng

    117

Bài đăng được đăng bởi Danh Cong

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

    1 người viết rất nhiều lisp, version đủ thể loại   ---> Biết lisp của bạn tên tuổi méo mó tròn vuông ra sao đâu mà cho?

    Vậy bạn nên đưa lisp cũ  hoặc  link web có lisp cũ  cho mọi người xem, may ra có người biết được. Không thì liên hệ với tác giả là nhanh nhất :)))

     

    • Like 1

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

    + Mở file của bác, in thử sang Pdf không có hiện tượng gì hết, xuất file in bình thường, nhanh, ko lỗi.

     

    + Nếu là bác in trực tiếp ra máy in, thì thử ngắt kết nối mạng, rồi in ra Pdf coi có được không. Do máy tính mình cũng thỉnh thoảng bị trường hợp mở "Ctrl+P" rất lâu ( Kiểu như máy tính có liên kết gì mới mạng internet, gây ra tình trạng lỗi, không chỉ cad mà còn cả excel nữa).

    • Like 1

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

    Xài thử: 

    (defun c:TEST (/  caodopt Ent dis dis1 dis2 pt pt1 pt2 Eobject Ename Eold )

     (vl-load-com)
      
      (if (and (setq Ent (car (entsel "\nChon doi tuong can do Polyline, Line :")))
           (wcmatch (cdr (assoc 0 (entget ent))) "*LINE,ARC,CIRCE")       
           (setq pt1 (getpoint "\nDiem dau :" ))
           (setq dodoc (getreal "Nhap gia tri do doc i% :"))
           (setq caodo (getreal "Nhap gia tri caodo :")))
        (progn
          (while (setq pt2 (getpoint "\nChon diem danh cao do :" ))
           (progn
              (setq pt11 (vlax-curve-getClosestPointTo ent pt1)
                dis1 (vlax-curve-getDistAtPoint Ent pt11)
                pt12 (vlax-curve-getClosestPointTo ent pt2)
                dis2 (vlax-curve-getDistAtPoint Ent pt12))
             
                  (setq dis (abs(- dis2 dis1)))
                  (setq caodopt (- caodo (* dis dodoc 0.01)))
                  (princ (strcat "\nCaodo :" (rtos caodopt 2 3)))
             (command "text" pt2 "" "" (rtos caodopt 2 3) "")) )

          ))

    (princ))

    • Like 1

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

    27 phút trước, congviet đã nói:

    Bạn thử cái này xem.

    LTD để lấy tọa độ từ điểm đầu tới điểm cuối (1->2)
    LTDR để lấy tọa độ từ điểm cuối tới điểm đầu (2->1)

    Lay_Toa_Do_LDT.lsp

    Hình như  chủ thớt không phải lấy tọa độ từ đầu ---> Cuối polyline đâu ^^ :;):;)

    + So sánh X nhỏ, lấy ra được 1, 4. So sánh tiếp Y thì phân biệt được 1, 4.

    + So sánh X lớn, lấy được 2, 3. So sánh tiếp Y thì phân biệt được 2, 3.

     

    14 phút trước, doantuangt đã nói:

    Sao dùng lisp bạn gửi không được nhỉ? Không chọn được đường Polyline. :(((

    Bạn chủ thớt bật F2 lên để thấy được kết quả nhé.

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

    Nếu có 1 bản vẽ mẫu, bạn muốn copy 1 mớ block từ bản vẽ mẫu sao không dùng cách này nhỉ:

    Nhấn Ctrl+2, chọn bản vẽ mẫu. Vào mục block, Tìm các block cần copy, "phải chuột". Cách này sử dụng với cả Dimension, layer, Textstyle...

    Hạn chế với block: Chỉ copy từng block 1.

    Cách của bạn cũng ổn, đây là cách chèn cả 1 bản vẽ vào bản vẽ hiện hành. Tuy nhiên chỉ dùng cho bản vẽ nhẹ, nếu bản vẽ nặng sẽ là cả 1 vấn đề... :;):;)

     

    Block.png

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

    Thử lisp này nữa nếu cần sử dụng nhiều:  :;):;)

     

    (defun c:test ( / stext snamedim dxfdim)
     (command "cmdecho" 0)
      (setq stext (Getstring T "\nViet text muon them ben duoi Dimention:   "))
      (setq snamedim  (car (entsel "\n Chon Dimention? ")))

      (setq dxfdim (entget snamedim))
      (setq dxfdim (subst (cons 1 (strcat "<>\\X" stext)) (assoc 1 dxfdim) dxfdim))
      (entmod dxfdim)
      (princ))

    • Like 1

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

    + Gặp lỗi dở chứng này thì chỉ có nước cầu may thôi. Thử xài 1 trong những món sau:

    Cách 1: Gõ "Regen" lại bản vẽ:

    Cách 2: Gõ "Purge", chọn "All". Xóa các loại rác thừa khỏi bản vẽ. Rồi gõ "Audit", chọn "yes".

    Cách 3: "Save as"  bản vẽ từ định dạng .dwg----> .dxf. Sau đó mở rồi lại "save as" sang từ .dxf ---> .dwg.

    Chúc may mắn :;):;):;)

     

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

    Về mặt hạn chế Spammer thì em có ý kiến thế này: Em nhận thấy hầu hết các tài khoản spam đều đăng bài trong khoảng thời gian nhỏ hơn 60 phút từ khi tạo ra tài khoản rồi bặt vô âm tín luôn ( Do bị hạn chế tính năng  đăng bài liên tiếp).

    Vì vậy em muốn diễn đàn hạn chế bài đăng trong 60ph khi tạo mới 1 tài khoản. Điều này sẽ giảm đáng kể bài viết spam. Nếu có thể thì thêm dòng thông báo rằng 60 phút này các tài khoản mới có thể tìm hiểu về cách thức đăng bài, cách sử dụng diễn đàn ... thì sẽ tốt hơn. Chứ nhiều khi tài khoản mới viết bài khá lủng củng, mất thời gian để hỏi lại nữa ạ.

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

    Em không am hiểu về món lisp cho field này lắm: Mò 1 lúc thì em thấy điều này: %<\AcObjProp.16.2 Object(%<\_ObjId 2129573528>%).Area \f "%lu2%pr4%ct8[1e-006]">% Thì con số "4" trong "pr4" là chỉ số con số sau dấu phẩy.

    Em tìm nốt bài viết này liên quan đến lisp trong Field: Hi vọng giúp được gì cho bác không :P http://www.cadviet.com/forum/topic/63395-yêu-cầu-lisp-insert-field-file-name-bỏ-đi-một-số-ký-tự/

     

    Hề , bác nghiên cứu thử coi làm ăn được không :;):;) Không thì đợi mấy bác khác giúp luôn cho nhanh :P

    check.png

    • Like 1

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

    3 phút trước, Quốc Cường cho biết:

    cái này em có lần dùng r, nhưng dim có lúc liên kết có lúc ko, nên lúc di chuyển đối tượng thì có dim đi dim ở lại =.=!

    Các "Dimension" được tạo ra sau khi gõ "Dimassoc nhập 2" thì mới có thể thay đổi. Các dimension được tạo trước đó thì không bị ảnh hưởng.

    • Like 1

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

    5 phút trước, Quốc Cường cho biết:

    em BO lại thì thấy chuẩn ngay :o
    mà ae cho hỏi luôn trong bản vẽ của chủ thớt khi em di chuyển polyline thì dim cũng di chuyển theo, làm thế nào vậy ạ?

    + Gõ "DIMASSOC" nhập 2, rồi vẽ lại kích thước. Nhưng khuyến nghị không sử dụng nếu không am hiểu. Kẻo sau này bản vẽ lỗi tùm lum lại lên diễn đàn thắc mắc :;):;)

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

    Em thì nghĩ Cad không sai, và bạn ấy cũng không sai đâu ạ.

    Con số khác nhau giữa 71... và 21... là do đường Polyline đấy khép kín hay hở thôi. ( bạn ấy bảo dùng lệnh bo, nhưng em nghĩ là dùng lisp nối các đường lại ).

    Kiểm tra bằng lệnh LI là thấy liền :;):;)

    + Bạn #MOON đọc bài này để kiểm tra là đường polyline là kín ( Close ) hay hở ( Open) qua bài viết này nhé. http://www.cadviet.com/forum/topic/9600-em-muốn-hỏi-về-đường-pline-khép-kín/

     

    • Like 2

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

    34 phút trước, timmaimotnguoi cho biết:

    Bình thường viết bên excel chỉ cần: "-TEXT "&4&","&4&","&0&"  "&123"

    Như vậy là pates sang cad vào dòng command là được. Nên mình muốn có cái dòng command xem nó có được không. Mà thiếu nháy " này là ở chổ nào vậy bác :(

     

    Bạn đang "râu ông nọ cắm  cằm bà kia" . Excel đâu phải là AutoCad. :;):;)  Tham khảo bài này: http://kts-duy.blogtiengviet.net/?cat=193596

×