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

khuduba

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

  • Số lượng nội dung

    62

  • Đã tham gia

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

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

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

    Giúp trực quan hơn, lẹ hơn.

     

    Lũng Cú là xã thuộc huyện Đồng Văn tỉnh Hà Giang. Đây là điểm cực bắc của lãnh thổ Việt Nam và được gọi là "nóc nhà của Việt Nam". Nơi đây có Núi Rồng (Long Sơn) và trên đỉnh núi có cột cờ với lá cờ rộng 54m thể hiện 54 dân tộc anh em.

     

    Năm 1979, nơi đây có trận giao tranh ác liệt giữa QĐND Việt Nam và QĐGPND Trung Quốc.

     

    CucBacLungCu_NorthPole.jpg

     

    Mũi Đại Lãnh

     

    Trên đường thiên lý Bắc Nam, qua miền Trung, bạn qua đèo Cả, con đèo hùng vĩ nằm giữa hai tỉnh Phú Yên - Khánh Hòa, như một cánh tay Trường Sơn chồm xuống biển Đông ôm lấy một phần biển cả vào lòng. Ở chót mũi cánh tay ấy là mũi Đại Lãnh.

     

    xuyenviet2006170ci1.jpg

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

    Thông thường ghi KT cung dùng Arc Length thì kết quả có cung sẵn nhưng nó nằm ở trước chữ số,, còn hình bạn Post lên là đường thẳng dùng mũ làm gì, cái mũ này dùng Arc vẽ, cách nào khác thì nghĩ chưa ra.

    Không phải là cái j đó vẽ thêm.

     

    Nó là một phần của kích thước. Các bạn xem trên hình thì thấy khi kích vào một fần nào đó của kích thước thì nó cũng được chọn theo. Mình đã cố tình chụp hình như vậy.

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

    Chào các Mems, Tôi muốn có một đoạn lisp mà biến nhiều đoạn pline thành đúng một pline duy nhất.

     

    Mong được giúp đỡ.

     

    Thanks

     

    Mình cũng đã tìm đến đoạn lisp của SSG, nhưng hình như nó không đúng ý mình (đã chạy thử)

     

     

    ;;;***********************************************************
;;;CONVERT TO PLINES PROGRAM WITH FULL COMMENTS!
;;;Convert all objects: Line, Pline, Spline, Arc, Circle, Ellipse_
;;;to Plines. Length of 1 segment is specified by user
;;;Copy & Paste to Notepad, Saveas *.lsp, Appload then Type C2P to run
;;;Happy New Year 2008!
;;;Written by ssg - January 2008 - www.cadviet.com
;;;***********************************************************

;;;-------------------------------------------------------------
(defun makepl ( e d1 / ps pe d d2 p2);;;Make pline along curve e. Length of 1 segment = d1
(vl-load-com);;;Load Visual LISP extensions before use vlax-xxxx functions
(setq
ps (vlax-curve-getStartPoint e);;;Start point
pe (vlax-curve-getEndPoint e);;;End point
d (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e));;;Length of curve e
d2 d1;;;Init variable distance
)
(command "pline");;;Call pline command
(command ps);;;Start point
(while (<= d2 d);;;While not over end point pe
(setq p2 (vlax-curve-getPointAtDist e d2));;;Variable point at d2 = length along curve
(command p2);;;Continue pline command from current point to p2
(setq d2 (+ d2 d1));;;Increase distance d2 by d1
);;;End while
(command pe "");;;Pline to pe and finish command
)
;;;-------------------------------------------------------------
(defun C:C2P( / d1 ss oldos i e ans);;;Convert to Plines
(if (not d0) (setq d0 0.5));;;Init dividual distance, global variable
(setq d1 (getreal (strcat "\nLength of 1 segment <" (rtos d0) ">:")));;;Input distance
(if d1 (setq d0 d1) (setq d1 d0));;;Reset or get distance
(setq
ss (ssget '((0 . "LINE,LWPOLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE")));;;Selection set
oldos (getvar "osmode");;;Save osmode
i 0;;;Init counter
)
(setvar "osmode" 0);;;Disable osmode
(repeat (sslength ss);;;Repeat for all entities in ss
(setq e (ssname ss i));;;Set e for entity with ordinal i in selection set ss
(makepl e d1);;;Use makepl function. Make pline along e
(setq i (1+ i));;;Increase counter
)
(initget "Y N");;;Init keywords
(setq ans (getkword "\nDelete source objects? [Yes/No] :"));;;Get answer from user
(if (= ans "Y") (command "erase" ss ""));;;Erase source objects if ans = "y" or "Y"
(setvar "osmode" oldos);;;Reset osmode
(princ);;;Silent quit
)
;;;-------------------------------------------------------------

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

    Tôi đang dùng Cadover lay 14 trên cad 14 mà không hiểu số hoá kiểu j, bác nào biết xin hướng dẫn.

     

     

    Mems nào có phần mềm Autodesk Raster Design 2004 ở dạng link hoặc có trong máy (up lên mạng-up lên mediafire.com) thì gửi cho mình với nhé. Đang rất cần nó.

     

    Hoặc ai có key của Autodesk Raster Design 2008 thì up lên cho mình với.

     

     

    Thanks for Helps

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

    Kết quả active như thế này mà sau khi restart CAD 2008 nó vẫn bảo mình là chưa đăng kí. (bản cad08 khoảng 1.3Gb)

     

    dangkiCAD2008.jpg

     

     

    Các bác cho ý kiến(tôi down cad 08 ở đâu cũng không nhớ nữa, down lâu rồi, bây jờ mới quyết định dùng nó để thay cho cad 04)

     

    Nếu ai đó có fần K_E_G_E_N hay bẻ khóa cùng hướng dẫn xin post lên để mình tham khảo

     

    Đây là bộ K_E_Y của tôi đã down đc <a href="http://www.cadviet.com/upfiles/Thuoc.rar" target="_blank">K_E_Y</a>

    Thanks

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

    Tôi gặp khó khăn khi điều chỉnh khoảng cách các nét đứt

     

    Hình minh hoạ trường hợp để mặc định theo ACAD

     

     

     

    01.jpg

     

     

     

    Còn đây là khi đã dùng lệnh LTscale, kết quả là hợp lí đường trục(màu đỏ) nhưng không hợp lí đối với nét đứt (xanh)

     

     

    02.jpg

     

    Còn trường hợp nữa là khi có đoạn nét đứt ngắn và dài. Đối với đoạn dài thì mình để khoảng trắng của nét đứt lớn nhưng làm như vậy lại không hợp lí đối với đoạn ngắn. Tóm lại là được cái nọ thì mất cái kia vì lệnh LTscale không áp dụng riêng cho đối tượng đứt nào.

     

    Các bác júp đỡ...

×