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

vbao

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

  • Số lượng nội dung

    184

  • Đã tham gia

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

  • Ngày trúng

    3

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

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

    e đang học Land desktop và sofldesk,chẳng là thầy giáo em giao cho thiết kế tuyến luồng nhưng chỉ cho bản cad có cao độ điểm ở dạng text chứ ko ở dạng point,giờ e phải xuất điểm đó ra nhưng ko biét làm thế nào.thỉnh cầu các pro cứu giúp.đa ta nhiều lém

    Của bạn đây.

    http://www.cadviet.com/upfiles/3/expxyz_1.lsp

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

    File changeCode.dll không xóa, nhưng vẫn gặp lỗi anh ạ. (file đầu tiên không gặp lỗi này)

     

    Gọi là "cài đặt" cho sang chứ thực sự chỉ là luu vào Registry đuờng dẫn đến file ChangeCode.dll để Cad tư tìm và load theo đuờng dẫn này.

     

    Nguyên nhân có thể là sau khi "cài đặt", bạn đã xóa luôn file ChangeCode.dll nên khi Acad khởi động nó không tìm thấy file và thông báo : "Unknown command ...."

     

    Về ý : có mtext thì convert được có mtext không convert được.

    Bạn vui lòng post file Cad lên xem sao, "chẩn đoán từ xa" đành pótay.

    • Vote tăng 1

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

    Tôi sử dụng gặp lỗi sau:

     

    Command: changecode

    Unknown command "CHANGECODE". Press F1 for help.

    Nhờ Anh Gia_Bach xem giúp. thanks

     

    Update : Chuyển đổi các bảng mã tiếng Việt thông dụng trong CAD

    Cập nhật :

    - tùy chọn thay đổi qua lại giữa chữ thường và chữ hoa (Change Text Case)

    - tùy chọn thay đổi TextStyle

    changecode_1.jpg

     

    1.Cài đặt :

    - giải nén và copy file "ChangeCode.dll" vào hệ thống(đĩa cứng, USB, ...).

    - khởi động AutoCAD, tại dấu nhắc (Command ) của CAD gõ lệnh NETLOAD và chỉ đến vị trí file "ChangeCode.dll" vừa copy ở buớc 1, chọn OPEN để hoàn thành lệnh NETLOAD .

    - phiên bản này chỉ cần gọi lệnh NETLOAD 1 lần, khi khởi động CAD lần kế tiếp Tool sẽ đuợc tự động load khi gọi lệnh ChangeCode

     

    2. Sử dụng : gõ lệnh ChangeCode để bắt đầu ...

     

    3. Xóa lệnh : gõ lệnh RemoveChangeCode để dừng việc load tự động khi khởi động CAD

     

    Lưu ý :

    1. từ Cad 2005 mới có lệnh NETLOAD

    2. do là ứng dụng AutoCAD .NET API nên yêu cầu hệ thống phải có .Net Framework đã cài đặt.

    3. với bảng mã nguồn : bạn nên chọn chính xác bảng mã nguồn, trong truờng hợp chọn "unKnown", độ chính xác của kết quả chỉ đạt khoảng 80%

    4. sau khi Convert, bạn phải đổi sang TextStyle có font chữ phù hợp với bảng mã đích.

     

    Về bảng mã TCVN3 (ABC)

    Do bảng mã TCVN3 sử dụng 1 byte bộ nhớ trong đó phân biệt giữa chữ hoa và chữ thuờng, do đó khi sử dụng bảng mã TCVN3 bạn cần phải chọn đúng font chữ thì kết quả mới chính xác.

    Font biểu diễn theo 1 byte chữ thường của ABC có tên file bắt đầu bằng Vn (Vntime.ttf, Vnarial.ttf...). Tên font bắt đằu bằng .Vn (.VnArial, .VnTime...).

    Font biểu diễn theo 1 byte chữ hoa có tên file bắt đầu là Vh (Vharial.ttf, Vhtime.ttf...). Tên font có chữ H cuối cùng (.VnArialH, .VnTimeH).

     

    File Download

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

    tôi sử dụng thì gặp lỗi sau:

    Command: locso

    Select object: ; error: misplaced dot on input

    Mong các bạn xem lại giúp. Thanks

     

    Bạn sửa như sau:

    (defun c:locso()
 (setq te (car (entsel))
text (cdr (assoc 1 (entget te)))
sl (strlen text)
kq ""
i 1)
 (while (< i sl)
   (setq so (substr text i 1))
   (if (/= so ".")
     (progn
   (if (numberp (read so))
     (setq kq (strcat kq so))
     )
     )
     (setq kq (strcat kq so))
     )
   (setq i (1+ i))
   )
 kq
 )

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

    Chúc mừng sinh nhật Happyfeet và các thành viên AloriEtoixric, minhtien1, tengbungteng!

     

    Chúc các bạn sinh nhật vui vẻ - ước gì được nấy.

     

    Em Happy đi ăn kem thôi :cheers: Sài Gòn nóng quá :cheers: !

     

    he hé

     

    không hiểu sinh nhật Happyfeet : dùng kem tráng miệng + thịt cầy Hai Mơ có sao không vanduong?

    Chúc mừng sinh nhật các bạn:Happyfeet, AloriEtoixric, minhtien1, tengbungteng

    • Vote tăng 3

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

    Chào phamthanhbinh,

    lisp của bác có 1 vài điều mình góp ý như sau:

    - Lúc ban đầu nên đưa biến OSMODE = 0

    - Khi tạo boundary xong, nên dùng lệnh move đối tượng (entlast), theo thiep thì nên dùng hàm (ACET-SS-DRAG-MOVE ss....) thích hợp hơn nhóm lệnh (command "copyclip" ent "") (command "pasteclip" pause "")

    - Khi tạo bảng thống kê xong, thì nên dùng hàm (ACET-SS-DRAG-MOVE ss....) để move bảng thống kê về vị trí thích hợp

    - Các điểm góc ranh nên đưa ra ngoài ranh (cái này hơi khó) và chiều cao bằng chiều cao text kích thước.

    - Và khi tạo line, text, nên hạn chế bớt dùng (command .....) mà thay bằng hàm entmake, như vậy lisp sẽ chạy nhanh hơn và hy vọng không còn nhấp nháy nữa.

    Một vài góp ý chân thành. Trân trọng!

     

    Tôi sử dụng gặp lỗi như sau:

    trichthua.lsp successfully loaded.

    Command: ; error: malformed list on input

    Thiep có thể hướng dẫn tôi khắc phục lỗi trên. Thanks

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

    Bạn chạy thử Lisp này :

    (defun c:dm2t (/ cmd ssPoint ePoint pt Left Right entLeft entRight dataLeft str);Data Mia to Text
 (defun dxf (tag obj) (cdr (assoc tag obj)))
 (defun p3(d x y) (polar (polar d 0 x) (* 0.5 pi) y))

 (command "undo" "be")
 (setq cmd (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (princ "\nChon cac Point (diem Mia) can noi Text voi nhau: ")
 (if (setq ssPoint (ssget (list (cons 0 "POINT") (cons 8 "AMIA"))))
   (foreach ePoint (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex ssPoint))))
     (setq pt (dxf 10 ePoint))
     (if (and
    (setq Left (ssget "_C" (p3 pt -3 3) pt (list (cons 0 "TEXT") (cons 8 "AMIA") ) ))
    (= (sslength Left) 1)
    (setq Right (ssget "_C" pt (p3 pt 3 -1) (list (cons 0 "TEXT") (cons 8 "AMIA") ) ))
    (= (sslength Right) 1)
    (not (equal (setq entLeft (ssname Left 0)) (setq entRight (ssname Right 0))))
    )
(progn
  (setq dataLeft (entget entLeft)
	str (strcat (dxf 1 dataLeft) "." (dxf 1 (entget entRight)))
	dataLeft (subst (cons 1 str) (assoc 1 dataLeft) dataLeft))
  (entmod dataLeft)
  (entdel entRight)
  )
)
     )
   )
 (setvar "cmdecho" cmd)
 (command "undo" "e")(princ)
)

     

    anh gia_bach có thể thêm phần options : nhập layer các đối tượng cần nối, theo yêu cầu người sử dụng, chương trình sẽ linh động hơn. Cảm ơn anh

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

    Các bạn có thể cho mình tài liệu về qui trình và mẫu báo cáo về trắc dọc trắc ngang kênh, mương, rạch đc kg. Trước giờ làm bên địa chính bây giờ muốn nghiên cứu cái này nên thiếu nhiều thông tin. Các bạn có thể post lên đây hoặc gởi cho mình theo địa chỉ trungngamy@yahoo.com. Xin cám ơn rất nhiều

    gửi anh Dũng

    http://www.cadviet.com/upfiles/2/14_tcn_14...nh_thuy_loi.pdf

    • Vote tăng 2

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

    Bác Vbao ơi - lùi lại lịch một tuần được không ạ ? Lý do Bác và em còn đi Gặp Mặt Họ Bùi TPHCM đầu năm mà.

    Các bác thông cảm nhé :cheers:

     

    oh, xin lỗi anh em, tôi sơ ý nên quên mất sáng chủ nhật có hẹn cùng Văn Đương họp gia tộc đầu năm, vậy xin lùi buổi giao lưu lại khoảng 15h ngày 22/2/2009 địa điểm vẫn là quán coffe trên (tăng hai sẽ do chuyên gia "nữ công ta tránh" Happyfeet tự chọn thực đơn)

    @ happyfeet : ghé rủ SONCAD đi chung sẽ không sợ lạc đường :cheers:

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

    Anh em ở Miền Nam ai có điều kiện thì chúng ta gặp nhau uống coffe nhỉ. Trước tiên là mỗi tháng một lần.

    Có ai có ý kiến gì không

    Thư Mời

     

    Thân mời toàn thể anh em CADViet team, 2 Mod Miền Nam (kỳ này là không " nhỡ nhời " với 2 Mod nữa nhá), tham dự buổi giao lưu đầu năm tại quán coffe sân vườn Suối Reo số 17/6 đường Tân Hương phường Tân Thành quận Tân Phú

    http://www.cadviet.com/upfiles/caffe_Suoi_Reo.bmp

    (vị trí quán tham khảo thêm trang web www.vietbando.com) vào lúc 8h00 ngày 22/2/2009

    Trân trọng kính mời

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

    Á à, các mod định ăn mảnh nè pà con ơi. Đã "hai mod" mà lại còn "duy nhất " thì khó hiểu quá. Phải nói là cặp (đôi ) duy nhất chứ bác Happy nhẩy.

    Mà cái nè còn phải phạt các mod nữa ấy chứ. Từ Tết đến giờ bỏ rơi anh em bơ vơ, tội quá. Nay có bác Vbao làm giúp, lại còn sắc mắc nữa. Đề nghị các mod khi tham dự nhớ mang theo lệ phí phạt hành chính.

     

    @Bác Vbao: Thế nhỡ có bồ là thành viên Cadviet hay CV Team có được mang đi không ạ???

     

    Xin thưa cùng toàn thể quí vị :

    -@ SONCAD, Happyfeet : hihih trách oan cho mình rồi, đâu dám quên 2 Mod chẳng qua là … vì …tại . . . bị . . . type “nhỡ tay” nên có thiếu sót, xin sửa sai như lời hát một bản nhạc : “xin lỗi em, ngàn lần xin lỗi em” nhớ đến đúng giờ nhá

    -@ Văn Đương : một kinh nghiệm của dân địa hình là : khi khảo sát tại nhà nào có nhiều con gái (hoặc bà giá, góa . . .) thì phải quan tâm sâu sát, kéo dài thời gian đi thực địa, đo kỹ đến từng cm, nắm chắc nguyên tắc: nhất cự li nhì cường độ. Hy vọng Đương sẽ áp dụng thành công trong công tác " khảo sát hành lang lưới điện ngoài hiện trường"

    -@ bác Bình : vâng em hoàn toàn đồng ý với bác bạn gái của (vợ hoặc bồ) bao giờ cũng tuyệt , bác cứ tự nhiên “dung dăng dung dẻ” dắt bồ đi chơi, em ưu tiên cho bác.

    :cheers:

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

    Anh em ở Miền Nam ai có điều kiện thì chúng ta gặp nhau uống coffe nhỉ. Trước tiên là mỗi tháng một lần.

    Có ai có ý kiến gì không

    thế để mình mở hàng nhá

    THƯ MỜI

     

    Kính mời toàn thể các thành viên CADViet Team tham dự buổi tọa đàm về : “vai trò phụ nữ trong ngày 8 – 3” thời gian từ : 7h30 – 10h00 sáng 22/02/2009

    tại các quán coffe (đang chọn địa điểm, sẽ thông báo sau) thuộc phạm vi quận Tân Phú (cho gần nhà vì vợ không cho đi xa !)

    Khi đi yêu cầu :

    -không mang theo bạn gái hoặc vợ ( thế mới có đề tài để . . . thảo luận)

    trân trọng kính mời

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

    Xin chào các bạn. Với mục tiêu khởi động cho 1 năm và giúp anh em làm San Nền bớt gánh nặng trong tính toán thiết kế. Mình đã cày cuốc từ mồng 3 tết cho đến hôm nay thì phần mềm đã cơ bản ra được hình dạng. Tất nhiên do mình tự biên tự diễn nên chắc hẳn phần mềm còn sơ sài và chưa chuẩn tắc. Mình mạnh dạn post lên để anh em test thử và cho ý kiến đóng góp để dần hoàn thiện hơn. Mình chạy phần mềm trên máy mình (nền cad 2008 - 2009 ) thì không vấn đề gì. Các bạn thử kiểm tra giúp mình trên các phiên bản khác xem có sao không.

    Link down: SCRAPE 1.0

    Ứng dụng:

    - Tính khối lượng đào đắp ( ô lưới và phần taluy)

    - Vẽ ranh giới đào - đắp

    - Vẽ taluy đào - đắp

    - Xuất ra bảng khối lượng file excel để in.

    - Hiện tại cái này áp dụng cho đường bao lồi. Nếu đường bao lõm thì các bạn phải chỉnh lại khối lượng 1 chút ở chỗ gãy khúc lõm.

     

    Hướng dẫn:

    - Bạn giải nén file ra với pass là: www.cadviet.com

    - Sẽ có 2 file block cell và Node bạn copy vào thư mục support của cad hoặc copy luôn vào file cần làm hoặc chỉ đường dẫn tìm đến thư mục chứa 2 file block.

    - Có 1 file mình làm mẫu và 2 file xuất kết quả (tại ô lưới và taluy).

    - 1file dạng Fas là file chương trình. Bạn app vào là chạy được.

     

    Trình tự làm:

    - Đầu tiên bạn phải tạo 1 đường Pline khép kín - chính là đường bao ranh giới san nền.( đường này có chiều theo ngược chiều kim đồng hồ)

    - Chuyển đơn vị bản vẽ sang mét bằng lệnh unit

    - Chuẩn bị cho mình bình đồ số có các point (hoặc text ) là cao độ các điểm đo ( nên là point)

    - Tập hợp các text chứa cao độ thiết kế (cái này các bạn có thể tự tính toán theo độ dốc, phương, cao độ điểm khống chế để tạo ra mặt phẳng thiết kế )

    - Xong xuôi khâu chuẩn bị bạn đánh lệnh SN (san nền).

    - Chọn đường bao ranh giới.

    - Nhập vào cạnh của ô lưới, tên ô đầu tiên (mặc định là A1), tỷ lệ bản vẽ (khi in), dốc mái taluy đào, đắp.

    - Chọn tập hợp text, point tự nhiên

    - Chọn tập hợp text thiết kế.

    - Lúc này bạn chờ 1 chút. Tùy vào số cao độ tự nhiên, thiết kế và số ô lưới mà chương trình sẽ nội suy tính toán nhanh hay chậm. Tôi thử thì cũng chỉ hết khoảng 1 đến 5 phút. ( với công trình vừa vừa)

    - Sau đó chương trình sẽ vẽ đường ranh giới đào đắp (sẽ có trường hợp trong 1 ô lưới có 2 vùng đào, 1 vùng đắp hoặc ngược lại đòi hỏi bạn chọn phương án nối cho hợp lý. Ô nào cần thì nó sẽ đánh dấu để bạn biết.

    - Cuối cùng chương trình sẽ vẽ ra được taluy đào, đắp và hỏi bạn nơi lưu 2 file là file chứa khối lượng ô lưới và file chứa khối lượng đào đắp taluy (bạn chọn 2 tên file khác nhau rồi tổng hợp lại sau).

     

    Chi tiết nội dung trên dòng command như sau:

     

    Command: SN

    Chon 1 duong ranh gioi nghien cuu <lwpolyline,polyline>

    Select objects: Specify opposite corner: 1 found

     

    Select objects:

    Nhap vao canh o luoi < 10.00000 >:

    Nhap ten o dau tien tren cung ben trai < A1 >:

    Nhap vao ty le ban ve 1/ < 200 >:

    Nhap vao do doc taluy Dao 1/ < 0.75000 >:

    Nhap vao do doc taluy Dap 1/ < 1.50000 >:

    Chon cao do tu nhien (Text/Point) < T >:

    Chon tap hop cac text chua cao do tu nhien / Enter de lay lai tap hop text da

    chon lan truoc...

    Select objects: Specify opposite corner: 1 found

     

    Select objects: Specify opposite corner: 1 found, 2 total

     

    Select objects: Specify opposite corner: 2 found, 4 total

     

    Select objects:

    Chon tap hop cac text chua cao do thiet ke / Enter de lay lai tap hop text da

    chon lan truoc...

    Select objects: Specify opposite corner: 1 found

     

    Select objects: Specify opposite corner: 1 found, 2 total

     

    Select objects: Specify opposite corner: 1 found, 3 total

     

    Chuong trinh da hoan tat

    Command: "Lisp's written by Nataca - 0983.715.333"

     

    Nếu thật sự nó giúp ích được cho các bạn thì hãy cho mình 1 Thanks lấy may đầu năm và động viên mình nhé :cheers: . Mong các bạn góp ý chân thành cho chương trình hoàn thiện hơn.

     

    Nataca có thể đưa các file cad trong Scrape 1 về version thấp hơn để test cho các phiên bản khác được không?

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

    ko được bạn à ? Nó ko có thay đổi j ?

     

    trong bản vẽ của bạn đây là polyline có width <>0, để chuyển bề dày của polyline về 0, tại dòng command nhập lệnh pe

     

    Command: pe

    PEDIT Select polyline or [Multiple]:

    Enter an option [Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype

    gen/Undo]: nhập w

    Specify new width for all segments: nhập 0

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

    Chủ đề này đã từng post trên diễn đàn nhưng đã mất vì có lần host dữ liệu bị sự cố. Nay có yêu cầu tương tự của bạn tuannguyen, ssg xin post lại.

    ...

     

    Từ giải thuật trên, anh ssg có thể biến đổi để: chia một đa giác thành hai phần theo đường ranh giới đi qua một đỉnh (đường thẳng d sẽ xuất phát từ một đỉnh của pline kín c, điểm còn lại của đường thẳng d sẽ cắt cạnh đối diện với đỉnh. Khi chạy chương trình, đường thẳng d xoay quanh đỉnh này, khi nào đạt giá trị diện tích theo yêu cầu thì dừng) chân thành cảm ơn anh

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

    Bác chỉ giúp e cái Biến mà khi mình nhập lệnh rồi chon đối tượng thì nó hiện lên các điểm bắt điểm để mình biết là đã chọn được đối tuợng , vì nhiều lúc chọn 1 nhóm đối tượng hay bị sót lại 1 vài đối tượng nhưng mà bị thế này không biết được đối tượng nào đã được chọn hay chưa nữa!

     

    biến HIGHLIGHT = 1 các đối tượng được chọn trên màn hình sẽ chuyển sang dạng nét đứt để phân biết với các đối tượng khác

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

    Bạn dùng thử LISP sau : 
    (defun c:ins_point (/ ss i ent point curLayer)
 (if (setq ss (ssget (list (cons 0 "TEXT"))))
   (progn
     (setq i 0
    curLayer (getvar "clayer"))
     (if (not (tblsearch "layer" "points"))
(command "-layer" "n" "points"  "c" "1" "points" "") ) ; tao layer Point
     (setvar "clayer" "points")	    		     ; Set layer Current
     (repeat (sslength ss)
(setq ent (ssname ss i)
      point (cdr (assoc 10 (entget ent)))
      i	 (1+ i)
)
(entmake (list (cons 0 "POINT") (cons 10 point)))
     )
     (setvar "clayer" curLayer)
   )
 )
 (princ)
)

     

    gia_bach có thể viết thêm đối tượng POINT vừa tạo, nếu cần theo yêu cầu của người sử dụng thì ghi thêm vào POINT có tọa độ z=giá trị của text trong tiện ích trên được không? Thanks

×