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

thewind0910

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

  • Số lượng nội dung

    56

  • Đã tham gia

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

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

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

    7 giờ trước, NTHAHT đã nói:

    Bạn dùng thử cái này xem, nó tự gán transparency cho XLine khi kết thúc lệnh XLINE. 

    
(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . startCommand)))
(vlr-command-reactor nil '((:vlr-commandEnded . endCommand)))
(defun startCommand  (calling-reactor startcommandInfo / thecommandstart)
  (setq thecommandstart (nth 0 startcommandInfo))
  (cond ((eq thecommandstart "XLINE") (setq lastentity (entlast))))
  (princ))
(defun endCommand  (calling-reactor endcommandInfo / thecommandend)
  (setq thecommandend (nth 0 endcommandInfo))
  (cond ((eq thecommandend "XLINE")
         (while (and lastentity (setq lastentity (entnext lastentity)))
           (setpropertyvalue lastentity "Transparency" 50))))
  (princ))

     

    THANKS BÁC NHIỀU Ạ, EM CẢM ƠN CÁC BÁC ĐÃ GIÚP ĐỠ!!

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

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

    Để nghiên cứu giúp cho lần này. Code lấy của Lee-mac. nhưng Do mù về VLA nên dùng comamd thay thế vậy.

    Mức độ Transparency trong code đang để là 50. Nếu muốn sửa thì tìm con số 50 sửa lại nha.

    (command "layer" "n" "CONSTRUCTION" "c" 1         "CONSTRUCTION" "tr" 50 "CONSTRUCTION" "")

     

    Load lisp lên dùng thôi. Nếu trong file cad có sắn layer CONSTRUCTION thì có thể lisp hoạt động không như ý muốn

    Tran_Xline.lsp

    P/S: load lisp này thì đừng load lisp layerdirector của lee-mac nha

    cảm ơn bác nhiều vì sự nhiệt tình giúp đỡ, chúc bác sức khỏe !!!

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

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

    1. GPT nó code được mấy bài toán đơn giản thôi, ví dụ vẽ đường thẳng nếu biết 2 điểm chẳng hạn.

    Còn nếu GPT mà code được những yêu cầu phức tạp thì con người ở giá hết trơn.

    2. Bạn @vietduc147258 đã gởi bạn cái lisp ấy dùng được trong việc tạo layer có độ MỜ, nhưng bạn không chịu (hoặc không biết?) nghiên cứu thôi.

    Vâng anh GPT nó code đơn giản đc thôi. Còn lisp vietduc gửi em mới chỉ xem ảnh gif demo tại chưa có máy tính test.

    Để tối em test vs nghiên cứu sau ạ

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

    4 giờ trước, vietduc147258 đã nói:

    GPT mà cũng viết lisp được à. Tạo layer theo đối tượng xline. Chỉnh màu sắc độ mờ trong layer luôn

    GPT code đc lisp mà bác. Nma k phải lisp nào cũng hoạt động theo đúng ý hoặc ko hoạt động đc.

    Tại mình cũng k hiểu chứ nếu ae hiểu lấy ý tưởng nó code rồi sửa cho hoàn chỉnh là ok mà

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

    11 giờ trước, vietduc147258 đã nói:

    Lại gặp bạn ham học hỏi.

    Tải lisp này về để quản lý layer theo nét vẽ. 

    http://www.lee-mac.com/layerdirector.html

    Cách dùng thì có thể giúp bạn nhưng muốn bạn tự tìm hiểu. Tập tự mày mò rồi google trước khi vào diễn đàn. Như vậy mới ít phụ thuộc vào người khác.

    Trong diễn đàn mình cũng có bài viết liên quan đến lisp này. Tự tìm hiểu nha

    Với ý mình là nó sẽ mờ đi chứ xóa thì mình cũng có tra GPT nó code cho mình lisp auto xóa Xline rồi. Tại lúc vẽ nhiều lúc để màu trùng vs nét hình nên có lúc bị nhầm ấy bạn.

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

    11 giờ trước, vietduc147258 đã nói:

    Lại gặp bạn ham học hỏi.

    Tải lisp này về để quản lý layer theo nét vẽ. 

    http://www.lee-mac.com/layerdirector.html

    Cách dùng thì có thể giúp bạn nhưng muốn bạn tự tìm hiểu. Tập tự mày mò rồi google trước khi vào diễn đàn. Như vậy mới ít phụ thuộc vào người khác.

    Trong diễn đàn mình cũng có bài viết liên quan đến lisp này. Tự tìm hiểu nha

    Cảm ơn bạn nhiều nha. Mình ngu vs gà chứ ham học hỏi gì đâu.

    Mình cũng check google rồi nhờ cả GPTcode mãi k thấy ổn nên mới hỏi ấy.

    Lần sau mình sẽ chú ý hơn.

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


    Em thường xuyên làm việc với các bản vẽ file DXF do đối tác dùng phần mềm xuất ra. Ví dụ 1 foder có 55 cái dầm với 55 file DXF làm sao để gộp chúng cho nhanh được ạ.
    Với file dwg thì còn dùng lisp hay inset này kia đc, em đã thử cover từ DXF sang DWG nhưng tên file bằng tiếng trung thì có vẻ phần mềm ko nhận.
    Rất mong ae cho xin giải pháp, thanks all ae

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

    (ql:quickload :clx)
    (use-package :clx)

    (defvar *group-status* nil)

    (defun toggle-group ()
      (setq *group-status* (not *group-status*))
      (if *group-status*
          (format t "Group is ON~%")
          (format t "Group is OFF~%")))

    (defun handle-key-event (display event)
      (let ((keysym (xlib:event-keycode event)))
        (when (char= keysym #\G)  ; Press 'G' key to toggle group
          (toggle-group))))

    (defun event-loop (display window)
      (loop
        (let ((event (xlib:wait-for-event display)))
          (cond
            ((eql (xlib:event-type event) :key-press)
             (handle-key-event display event))
            ;; Add more event handling code here if needed
            ))))

    (defun main ()
      (let* ((display (xlib:open-display "localhost:0"))
             (screen (xlib:default-screen display))
             (root (xlib:root-window display screen))
             (window (xlib:create-window display root 0 0 640 480 0)))
        (xlib:select-input display window '(exposure-mask key-press-mask))
        (xlib:map-window display window)
        (event-loop display window)))

    (main)
     

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

    3 giờ trước, cuongtk2 đã nói:

    Sao lại phải đi ngược như thế, phím tắt là thứ nhanh nhất để thực hiện lệnh rồi em.

    Vaâng anh, theo thói quen thành ra giờ bấm ctril shift A nó hơi lâu, trc em cứ ấn G vs GG là xong。Thành ra lại muốn dùng như cũ anh ạ.
    Đúng là đi ngược thời đại thật nma em quen nên cũng tiện.

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

    Các bác ai có thể viết một lisp edit grou giúp em được không.
    Ví dụ em có 3 group là A,B,C. Bình thường khi muốn sửa nội dung trong group A hoặc B hoặc C thì sẽ phải dùng lệnh ungroup cho A, B, C lần lượt rồi sửa hoặc groupedit.
    Bây giờ em muốn viết một lisp mà mình bật thì các group trong bản vẽ sẽ tự ungroup cho mình sửa, còn mình tắt thì các group lại tự đóng lại có được ko nhỉ.
    Ngày trc em làm ở 1 chỗ họ có lisp này r mà ko kịp lưu lại.
    Thanks các bác ạ

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

    53 phút trước, vietduc147258 đã nói:

    Ý của Bác Đoàn Văn Hạ là chữ "x" ở chỗ khác cơ. Đã sửa theo ý bạn rồi

    S-Chon text theo noi dung - 22.lsp

     

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

    Khi chọn bạn nhập chữ "X" thì nó chọn tất cả

    Cảm ơn 2 bác rất nhiều, chỉ có chữ X thôi mà em tiết kiệm được rất nhiều thời gian. 
    Đúng là tri thức là sức mạnh, em chỉ biết đổi tên lệnh ở dòng defun C sao cho phù hợp chứ ngôn ngữ code thì e ko biết gì.
    Cảm ơn 2 bác nhiều nhé, chúc 2 bác sức khỏe

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

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

    Có 1 thao tác chọn tất cả mà cũng làm biếng ư? Lisp của tôi đó nhưng tôi không sửa vì người khác dùng bất tiện.

    Không phải bác ạ, vì em làm việc luôn phải gộp các bản vẽ và chia màn hình ra nhiều view nên mỗi khi tìm ví dụ như tên con dầm X14AYKW ở các bản vẽ nào thì sẽ phải zoom nhỏ view rồi quét full bản vẽ sẽ mất thời gian. Vì thao tác liên lục lặp lại nên nó lâu ấy bác. Còn cái chọn vùng em vẫn dùng mà, nhưng muốn két hợp thêm cái kia cho nó toàn diện và nhanh.
    Cảm ơn bác đã góp ý! Vì dùng free nên em vẫn luôn tôn trọng công lao của ng viết lisp. Chỉ là muốn tùy biến 1 chút cho phù hợp với nội dung công việc thôi bác !

×