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

Bee

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

  • Số lượng nội dung

    553

  • Đã tham gia

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

  • Ngày trúng

    37

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

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

    - Chuỗi lấy được: các hàng ngăn cách bởi "\r\n" => Split => list...

    - Xem được cơ bản thôi, không chi tiết được.

    Yep, chuỗi là : "C1\t3\t2.7\r\nC2\t3\t2.6\r\nC3\t3.5\t2.9\r\n" đủ để xử lý roài.

    Có những trường hợp xử lý qua mtext-> text sẽ ghép cặp list tiện hơn.

    Ps: mềnh cũng có ngó qua code bạn, LM:3PArc và clock hơi nhiều. Code Lee thì xịn roài, chỉ việc sài. :D (bỏ qua nhé)

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

     

     

    Lisp này fix luôn chấm phẩy bên excell nhé.

    https://drive.google.com/file/d/0B-3fZ45DSr_XdkhVQTZfRUhUdkk/view?usp=sharing

    Tôi đã thử lại rồi, chủ yếu báo sai dữ liệu ở cột độ cao, khi bắn ra thì được 1 độ cao gấp 2 lần độ cao đưa vào vẽ ( cột thứ 3 đó) mình cũng thử ở cả dấu . và dấu , nữa... 

    Lisp của bạn quocmanh04tt mình thấy ổn rồi, nhưng bạn ấy lại thêm hình mặt cười và khoảng cách đo bên trái ( không có trong file số liệu ấy ) làm mình phải xóa tay ... hik

    mình cám ơn bee nhé...

     

     

    Bạn chạy lại lisp này và post phần ảnh lịch sử command F2 lên đây mình xem lỗi gì nhé. Chủ yếu tìm lỗi, còn sài lisp QManh đc  rồi. ^_^

    https://drive.google.com/file/d/0B-3fZ45DSr_XeE5vUmpQVU1fMjA/view?usp=sharing

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

    Uh, của Mr. Bean mình thử không thấy lỗi.

    Về mặt code thì mình góp ý như sau:

    Khi lấy dữ liệu từ ClipBoad thì đã có 1 chuỗi có thể biến thành list rồi, chỉ cần tut lại 1 tý là vẽ được, của bạn thì Entmake 1 Mtext, rồi lại Expolde, chọn lại rồi lại xử lý list, mấy bước này có vẻ thừa (có xem code có gì không phải bỏ qua nhé!).

    Đúng là thừa vì mình hay dùng data copy vào text bên cad để làm việc, nên cứ để nguyên vậy copy nguyên code.

     

    Ps: xem hết code hay 1 phần code đã combine thành fas file vậy :)

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

     

     

    Lisp này fix luôn chấm phẩy bên excell nhé.

    https://drive.google.com/file/d/0B-3fZ45DSr_XdkhVQTZfRUhUdkk/view?usp=sharing

    Tôi đã thử lại rồi, chủ yếu báo sai dữ liệu ở cột độ cao, khi bắn ra thì được 1 độ cao gấp 2 lần độ cao đưa vào vẽ ( cột thứ 3 đó) mình cũng thử ở cả dấu . và dấu , nữa... 

    Lisp của bạn quocmanh04tt mình thấy ổn rồi, nhưng bạn ấy lại thêm hình mặt cười và khoảng cách đo bên trái ( không có trong file số liệu ấy ) làm mình phải xóa tay ... hik

    mình cám ơn bee nhé...

     

     

    Lạ nhỉ. mình test nhiều lần ở máy nhà và máy văn phòng, chỉ lỗi chấm phẩy, chưa thấy sai độ cao chút nào. hik.

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

    Thanks! Lsp đồ sộ quá!

     

     

    Với mỗi lần chỉ 1 dòng string thì chậm, nếu phân loại thành từng khối text để chèn cả cụm thì có phần nào an ủi. Và có thể phân loại Library... (ngoài ra prop của text được ghi nhớ khi chèn lần tiếp theo). Xây dựng thư viện 1 lần và dùng mãi mãi...

    myCbaf.jpg

    Xây dựng thư viện thì tùy từng chuyên ngành có những file CAD thư viện riêng. Và cũng làm 1 lần có thể dùng mãi mãi. Có cả trình bày hình thức sẵn, màu mè, layer .....chỉ việc copy cả lũ vào là xong. Chỉnh sửa cũng đơn giản hơn cho người dùng beginer. Lisp này làm cầu kỳ mà thay đổi thì khó cho người dùng. :D

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

    Bản thân ket suy nghĩ mãi chưa ra lý do để sử dụng lisp này, mặc dù bác quocmanh đã rất kỳ công cho nó. Làm hẳn 1 tool pallette cho nó có phải nhàn hơn không :D

    Không có ý chê bai lisp, nhưng mình cũng cùng suy nghĩ về lisp này. Giả dụ hệ thống string đồ sộ, cái công sức ngồi chọn loại ra tên string cũng kỳ công ko kém. Chậm hơn là copy text và ngồi gõ. Nhanh hơn chút là đặt tính năng gõ tắt cho unikey với khoảng 10 từ hay gõ nhất. Heizz 

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

     

    Thử lisp này xem thế nào ^_^ Lỗi lần trước của bạn vẽ sai là do bên excel bạn để dấu "," chứ ko phải là "."  Bạn thay phẩy thành chấm là vẽ ngon.

     

    http://vforum.vn/diendan/showthread.php?37712-Cach-thay-doi-dau-phay-thanh-dau-cham-trong-Window-7-XP

    Lisp này fix luôn chấm phẩy bên excell nhé.

    https://drive.google.com/file/d/0B-3fZ45DSr_XdkhVQTZfRUhUdkk/view?usp=sharing
    • Vote tăng 1

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

    Bạn ơi, bạn xem bỏ giúp tôi mặt cười và phần đo khoảng cách bên trái giúp tôi với... cám ơn bạn nhiề

    Thử lisp này xem thế nào ^_^ Lỗi lần trước của bạn vẽ sai là do bên excel bạn để dấu "," chứ ko phải là "."  Bạn thay phẩy thành chấm là vẽ ngon.

     

    http://vforum.vn/diendan/showthread.php?37712-Cach-thay-doi-dau-phay-thanh-dau-cham-trong-Window-7-XP

    https://drive.google.com/file/d/0B-3fZ45DSr_XN3B3U0hYMjBVblk/view?usp=sharing
    • Vote tăng 1

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

    Bạn ơi, bạn để thêm giúp tôi bước nhập bán kính đường tròn với ( không mặc định 0.5 nữa, mà trước khi chèn điểm sẽ có bước chọn bán kính tròn:    )

    Bạn cố gắng giúp tôi nhé... cám ơn bạn nhiều...

    P/s bạn cho tôi xin SĐT luôn nhé, co điều kiện, tôi xin hậu tạ...

    Lisp đây, add select radius nhé. ^_^

    https://drive.google.com/file/d/0B-3fZ45DSr_XWXV4U1VHZlU3OTQ/view?usp=sharing

    Mobil mình: 0979.279.072

    • Vote tăng 1

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

     

    thanks bạn duy782006 !

    Nhờ bạn mà mình đã tìm ra được nguyên nhân bị lỗi font và mình cũng đã tạo được lsp này:

    

(DEFUN C:MB (/ TILE P)
  (IF (= (TBLOBJNAME "STYLE" "ARIAL") NIL)
  	(command ".STYLE" "ARIAL" "ARIAL TUR" "" "" "" "" "" "")
    )
  (SETQ
	tile (getint "\nTi le: ")
	p (getpoint "\nDiem dat text: ")
	)
  (COMMAND "TEXT" "S" "ARIAL" "J" "TL" P (* TILE 2) "0" "%%UM\U+1EB6T B\U+1EB0NG TÔN MÁI"
	   "TEXT" "S" "ARIAL" "J" "TL" (POLAR P (/ PI -2) (* 3.5 TILE )) (* TILE 1.5) "0" "%%UM\U+1EB6T B\U+1EB0NG MÓNG"
	   	   
           )
)
Và mình chưa hiểu các bỏ dấu kiểu này nên nhờ bạn chỉ mình cách bỏ dấu kiểu này với:
M\U+1EB6T B\U+1EB0NG : MẶT BẰNG

    Cái này là unicode chứ có phải vni đâu. Topic trước thì hỏi 1 kiểu. heizz. Lầu sau gửi cả file CAD để mọi người check vấn đề giúp cho nhanh. Kiến thức có hạn mà hỏi loanh quanh chỉ mất thời gian mà không hiệu quả. 

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

    Phần HAMLO:

    http://www.mediafire.../Trac Ngang.dwg

    http://www.mediafire...eu nhap tex.xls

    Kết quả: https://drive.google...iew?usp=sharing

    nhờ các bạn xóa giúp hình mặt cười và khoảng cách đo bên trái ( không có trong file nhập tex ) và tích hợp thêm lệnh LT với dữ liệu:

    http://www.mediafire...avmv4vt/VLT.dwg

    http://www.mediafire...wc7wgmq/VLT.xls

    Phần vẽ LT sẽ vẽ theo thứ tự bên số liệu EXCEL, mỗi lần pick chuột tại bản cad sẽ là 1 lần nhảy stt và chiều sâu tương ứng bên file excel...

    VLT nhé ^_^

    https://drive.google.com/file/d/0B-3fZ45DSr_Xd0RhaHg2UWlRME0/view?usp=sharing
    • Vote tăng 1

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

     

    http://www.mediafire.com/view/wm6pugmfwxa5yia/KQ.png

    mình làm theo file mới nhất và đây là hình ảnh và lệnh thu được...

    Hình vẽ màu vàng là kết quả mình muốn, hình màu trắng là KQ đưa ra...

    Mình làm riêng với C3 thì mới ra, nhưng kq không đúng như C3 mình vẽ tay... với C1 và C2 thì lại báo lỗi dữ liệu copy...

    Mình gửi bạn bản cad và file excel là 1 phần khác làm ở ngoài trời... cũng dạng copy và nhảy số theo giống như thế... 

    Bạn viết thêm giúp mình và đặt đó là VLT, còn phần cũ vẫn là VHL hộ mình nhé...

    Đây là file excel và cad mình muốn nhờ bạn viết thêm vào file lisp trên...
    Nhờ bạn giúp mình nhé... mình cảm ơn nhiều.

     

    Mình đang bận làm nốt cái luận văn Ths. Không có time sửa nhiều. Ai rảnh sẽ làm giúp bạn. Nếu hết tuần ko có ai thì mình viết cho bạn.

    • Vote tăng 1

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

     

    Cám ơn bạn bee nhé... nhưng tôi vẫn bị lỗi: error: bad argument type: stringp nil

    Tôi đã xem kỹ video bạn hướng dẫn: Load lisp=> excel : copy dữ liệu => sang cad đánh lệnh comman: VHL thì báo lỗi.

    bạn xem giúp tôi cho cả cái này trong lisp đó với: bạn để lệnh kia là VHL, lệnh này là VLT nhé.

     

    Đã thay lệnh VLT. Alert nếu data copy không đúng nhé.

    https://drive.google.com/file/d/0B-3fZ45DSr_XaVExRUo3bjdKdzg/view?usp=sharing

    • Vote tăng 1

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

    Mọi người có thể giúp em được không ạ, gấp lắm, em cám ơn nhiều:

     

    Tối qua em đang vẽ đồ án đầu tiên trong đời thì tự nhiên tất cả các đường tròn trong bài vẽ của em đều biến thành đường gấp khúc, em đã nhấn Top nhiều lần nhưng vẫn vô phương, em không biết mình đã nhấn lộn gì trong quá trình vẽ nữa, mong mọi người giúp em

    Dùng lệnh REGEN

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

     

    Tham khảo nhé : 

    - nếu muốn chọn folder thì dùng OpenFileDialog hoặc FolderBrowserDialog

            [CommandMethod("AddLineToAllFolder", CommandFlags.Session)]
        public static void AddLineToAllFolder()
        {
            try
            {
                string folder = @"C:\Temp\";
                foreach (string dwg in System.IO.Directory.EnumerateFiles(folder, "*.dwg"))
                {
                    Document doc = Application.DocumentManager.Open(dwg, false);
                    using (doc.LockDocument())
                    using (Transaction tr = doc.TransactionManager.StartTransaction())
                    {
                        BlockTable bt = (BlockTable)tr.GetObject(doc.Database.BlockTableId, OpenMode.ForRead);
                        BlockTableRecord ms = (BlockTableRecord)tr.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);
                        Line line = new Line(Point3d.Origin, new Point3d(1, 1, 1));
                        ms.AppendEntity(line);
                        tr.AddNewlyCreatedDBObject(line, true);
                        tr.Commit();
                    }
                    doc.CloseAndSave(dwg);
                }
            }
            catch (System.Exception e)
            {
                Application.ShowAlertDialog("Something went wrong\n" + e.ToString());
            }
        }

    Ok thanks Gia bach. Room này không xôm nên lâu lâu mới vào check. heizz

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

    Không được bạn ơi, Nếu máy không có font vni-arial thì phải cài hay sao vậy bạn? Và nếu cài thì cài như thế nào vậy bạn?

    Font để cài đây:

    http://www.giaiphapexcel.com/forum/showthread.php?2784-Font-VNI-Arial

     

    Hướng dẫn cài đây:

    http://blogcongdong.com/download-233-font-vni-full-gom-font-vntime-vni-times.html

     

    Và thay:

    (3 . "VNI-HELVE.TTF");font file

     

    bằng

    (3 . "VNI-ARIAL.TTF")

     

    Chịu khó hỏi anh GO là có font và hướng dẫn ^_^

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

    Nhờ a e viết giúp tôi lisp để thực hiện các lệnh vẽ trắc ngang trong hầm lò chỉ cần nhập file tex nhé...

    Các bước tôi đã miêu tả trong excel và có kèm 1 bản vẽ cad mô tả các bước rồi

    http://www.mediafire.com/file/kkgbiv6fjahdn6n/Trac+Ngang.dwg

    http://www.mediafire.com/file/xbgfho4uge04u7a/Du+Lieu+nhap+tex.xls

    A E thông cảm, tôi upload mãi trong cad việt không được nên đành up sang mediafire...

    Chân thành cám ơn mọi người.

    Thử cái này nhé ^_^

    https://drive.google.com/file/d/0B-3fZ45DSr_Xdlh5eUhFYUJWbUU/view?usp=sharing

     

    Xem huong dan:

    https://youtu.be/EW-cOQXuZO8

    • Vote tăng 1
×