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

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

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

    Ưu điểm là dù không biết tùy chọn "M" vẫn dùng được, hehe! Có lẽ chủ topic chưa sử dụng chức năng Multiple?

    + Với tùy chọn "Multyple" , em nghĩ nó cũng không nhanh hơn bình thường là bao ^^ . Chắc bằng thời gian nhấn 1 nút "Cách"  :v

    + Chắc chủ thớt này muốn bo tròn , nhưng 2 tập đối tượng này xa nhau quá. Nên mới yêu cầu vậy:

     

    (defun c:test ( / A B I)
    ; Danh Cong - Cadviet.com
    (setq     a (ssget '((0 . "*LINE")))
            b (ssget '((0 . "*LINE")))
            i 0)
    (or radianR (setq radianR 1))
    (setq radianR (cond ((getreal (strcat "\nNhap ban kinh: < " (rtos radianR 2 2) " >:")))(radianR))) 
    (if (= (sslength a) (sslength b))
          (progn    (setvar "FILLETRAD" radianR)
                (repeat (sslength a)
                (progn     (command "FILLET" (ssname a i) (ssname b i))
                        (setq i (+ i 1)))))
        (alert "So luong 2 ben khong bang nhau")
        ); end if
      (princ))

    • Vote tăng 1

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

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

    mong anh có thể viết cho lisp này bố sung chon số chữ số thập phân  để tọa độ nó phù hợp và chọn được mũi tên tọa độ thì hay quá ạ! em cám ơn anh

    x (rtos (car diem)   2 4)

    y (rtos (cadr diem) 2 4)

    + Số 4 là số chữ số sau dấu phẩy. Bạn tự thay thế cho phù hợp!  kiểu dáng mũi tên hiện tại không thể thay thế. Hết!

    • Like 1

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

    1 giờ trước, duoc0979518568 đã nói:

    ý em là cái file lisp cad 2008 chứ đâu phải là cad . file setup đó dùng được cho cad2008 thôi chứa ko dùng được cho cad khác. vậy em muấn hỏi bẻ khoá file setup đó để dùng cho các cad khác.

    + Tôi chưa hiểu rõ ý bạn: "File lisp cad" là sao? Trong Driver bạn đưa lện không có cái nào liên quan đến Lisp. ( hoặc bạn không hiểu khái niệm Lisp là gì? )

    + "Setup" của bạn là gì? Nó tác động đến cad như thế nào, hay là bạn cần nó trong công đoạn nào của Cad , hãy miêu tả kỹ. ( Cài đặt, crack, khởi động....).

     

    Câu hỏi cuối:  Bạn là người mới dùng Cad,  hay là người có kinh nghiệm?  Bạn vướng mắc vấn đề cài cad hay là thế nào.

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

    30 phút trước, duoc0979518568 đã nói:

    em muốn bẻ file setup để dùng cho cad 2009 hoặc cad2014

     

    Crack Autocad 2009 thì dùng của 2009,   2014 thì dùng của 2014.  Chứ bạn lại muốn file Crack của 2008 xài cho 2009 vs 2014 à? Cái này lần đầu tiên tôi nghe thấy :(

    Từ Cad 2012 trở đi, bạn lên mạng gõ từ : xForce Keygen + đời cad là ra.

     

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

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

    Dim của bạn có  style là ký tự trống "".

    Tôi Delete, Copy vô tư.

    Bác @Doan Van Ha, đúng là trên máy em vẫn copy, xóa vô tư. Nhưng không phải style là ký tự trống . Em kiểm tra thì nó không thuộc cái Dimstyle nào cả, khi di chuyển nó thì nó biến thành loại Dim hiện hành.

    Hơi khó hiểu :( Chẳng biết tạo ra cái  Dim này kiểu gì.

    • Like 1

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

    Vào lúc 28/4/2018 tại 08:41, loopback127xyz đã nói:

    Theo mình thì có thể đổi tên gọi lệnh được đó, hình như cũng có nhiều người hỏi về việc đổi tên lệnh trong các file .VLX, .FAS ... 

    mẹo nhỏ mình đã làm như sau : load các files .vlx, .fas như lệnh default của Cad (khi cad khởi động thì nó sẽ tự động load các files này luôn --> làm như thế nào thì tự tìm hiểu thêm nhé --> gợi ý : file acad*doc.lsp)

    sau đó vào file acad.agp đặt tên lệnh mới là tên lệnh file .vlx, .fax ( tenmoi,   *tên .vlx)

    + Sửa tên lệnh ko có nghĩa là tạo ra 1 lisp hoàn toàn mới, ko đúng yêu cầu của chủ thớt đâu. "Đường dẫn máy in" ví như rượu trong bình,  trút rượu từ bình này sang bình kia thì rượu vẫn là rượu, ko bị thay đổi. :)))

    Lập trình nó oái oăm là thế đấy bạn ạ :))

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

    1 giờ trước, ongtrum903 đã nói:

    công ty mình có 1 phần mền phát triển dựa trên autocad.chỉ cần nhấp dư liệu vào là nó ra hinh luôn để chỉnh sưa.nhưng mọi lần thì khi mình tải dữ lịêu vào thi màu trắng của bản vẽ mình nhập vào đều ra màu trắng đục để phân biệt với màu nền mình in ra và minh vẽ màu trắng nó cũng sẽ ra màu trắng đục vậy.nhưng từ khi up bản mới dữ liêu màu trắng nó lại hiển thị đúng màu trắng như hình nền.khi in ra mình ko phân biệt được vì nó giông hình nền.có bạn nào biết cài đặt mình vẽ màu trăng nó thành màu trăng đục ko

    Bạn nên đọc bài này: Rồi viết lại cho thật rõ ràng + kèm hình ảnh lỗi. Chứ đọc bài chán thế này, chẳng ai thèm giúp mất !

    https://www.cadviet.com/forum/topic/5888-viết-yêu-cầu-request-và-trả-lời-response-như-thế-nào/

     

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

    2 phút trước, Dzzzung đã nói:

    Các bác cho em hỏi copy đối tượng từ autocad 2015 sang 2007 hoặc cũ hơn bị biến thành đối tượng OLE có cách gì khắc phục không

    Đối tượng OLE là đối tượng excel phải ko?

    Excel muốn hoạt động cần phải có đường dẫn, vậy nôm na copy đối tượng làm cad ko nhận dc đường dẫn, nên biến thành OLE ko chỉnh sửa dc.

    Cách khác là tạo trực tiếp 1 Excel trong cad bằng Insert. Cái này copy vô tư :)

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

    1 giờ} trướ}c, doductiep đã nói:

    Đúng là không có bác ạ. Giờ em mới biết ^^. Vậy trường hợp này tính sao bác, chuyển text từ bylayer color sang truecolor rồi mới làm theo cách này? Nếu chuyển sang truecolor thì làm thế nào? Nhớ bác chỉ!

    + Ngoài cách của bác @huunhantvxdts ra, còn có thể xài: (vla-put-color (vlax-ename->vla-object doitt) 1) . Xài các hàm Vla có ưu diểm riêng, đặc biệt như đổi màu text trong Dimension, cái này dùng lisp thuần túy thì è cổ .

    + Trong lisp hơi có vấn đề ở dòng : (setq pt0 (osnap (getpoint "Diem tim TN tu nhien") "end")), không biết các bản Cad khác thế nào. Chứ Cad 2012 của mình là chịu, không chạy được nổi lisp nếu không bỏ Osnap đi? 

     

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

    8 giờ trước, doductiep đã nói:

    Đã sửa. bạn có thể đổi sang màu khác bằng cách mở lisp rồi tìm dòng dưới đây, sửa số 1 thành số màu tương ứng,  1= red, 3 = yellow ...

    (setq oldEntity (subst '(62 . 1) (assoc 62 oldEntity) oldEntity))

    Sua cao do SCD.lsp

    + @doductiep  Với đối tượng  Text có màu sắc thuộc "Bylayer" thì sao? (assoc 62 oldEntily) = nil do không tồn tại.

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

    55 phút trước, jzuoglee đã nói:

    Mình muốn hỏi khi mình in bản vẽ bên layout, mình muốn nền layout màu đen cho dễ nhìn khi thể hiện bản vẽ. lúc in mình muốn vùng bản vẽ in ngay trước đó có màu nâu cho dễ nhìn để tránh nhầm lẫn in lặp lại do số lượng bản vẽ nhiều. mình chưa biết setup như thế nào? Mong anh em chia sẻ giúp.

    + Vào OPTION ---> Thẻ "Display" ---> Mục " Layout Element"  ---> Chọn ô " Display printable are"

    + Tác dụng:  Nếu tinh ý bạn sẽ thấy xuất hiện 1 hình chữ nhật, nét đứt , tại rìa vị trí  khung viền ngoài bạn vừa in hoặc ấn Apply. Nhận ra điều này thì in ấn sẽ không nhầm lẫn nữa :))))

    • Like 1

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

    28 phút trước, luyennguyen đã nói:

    Chào mọi người, 

    Chả là em mới dùng autoLisp nên chưa rành. 

    Bữa trước có xin 1 Lisp rất bổ ích trên diễn dàn. 

    Giờ em muốn đổi dòng lệnh TPL thành TPK để sử dụng cả hai mỗi lần in không cần chọn lại máy in mà không biết đổi thế nào

    Giúp em với ah. 

    TPK-DNM.zip

    + Không hiểu câu "Sử dụng cả hai mỗi lần in không cần chọn lại máy in" là như thế nào.

    Tuy nhiên việc đổi dòng lệnh là không thể. Do file lisp là file .VLX đã bị mã hóa do người lập, chỉ người nào viết mới có code ! ---> Cam chịu thôi !

    • Like 1

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

    12 giờ trước, thanhduan2407 đã nói:

    Cảm ơn bác nhiều.

    Không biết nói thế này bác có đồng ý không?

    Bác có thể cho em xin file nguồn để học cách tạo DCL. Mảng này em còn hơi yếu.

    Nếu bác cho được thì cho em xin vào Email: Heaven2407@gmail.com

    Em cảm ơn bác nhiều!

    Bác tìm hiểu trong tập 2, Hướng dẫn lập trình AutoLisp và Visualisp của tác giả Nguyễn Hữu Lộc ý, trong sách có hướng dẫn tạo file DCL. :)))

    Ngườita thường nói lập ra DLC thì dễ, nhưng viết ra lisp để điều khiển nó mới là vấn đề @@.

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

    + Nhập tên địa danh nhé, không dấu nhé :

      

    (defun c:KT ()



    
	  (setq danhsach (list
    
	           '(0 "Ha Noi"     105.00)
    
	           '(1 "Ho Chi Minh"     105.45)
    
	           '(2 "Lai Chau"     103.30)
    
	           '(3 "Dien Bien"     103.30)
    
	           )
    
	    i 0)
    
	  (setq n (length danhsach))
    
	  (setq name (getstring T "Nhap ten dia danh: "))
    
	  
    
	  (while (and (< i n) (/= (strcase name) (strcase (cadr (nth i danhsach)))))
    
	           (setq i (+ i 1)))
    
	    (if (< i n)
    
	        (alert (strcat "Kinh tuyen: " (Rtos (caddr (nth i danhsach)) 2 2)))
    
	    (alert "Co gi do sai roi! - Kiem tra lai di !"))
    
	        (princ)
    
	    )
    • Like 1
×