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

Doan Van Ha

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

  • Số lượng nội dung

    6.229

  • Đã tham gia

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

  • Ngày trúng

    446

Bài đăng được đăng bởi Doan Van Ha

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

    46 phút trước, thewind0910 đã nói:

    Em đang có lisp thêm dấu ngoặc () vào text nhờ các anh chị viết thêm cho em 1 lisp thành thêm dấu ngoặc nhọn <> vào text được chọn vs ạ.
    Tại ngôn ngữ code toàn ngoặc ))(( nên em k biết sửa ở chỗ nào

    Thanks anh chị

    G-Them () text-`.lsp

      (setq ttdangt "(") 
      (setq ttdangs ")") 

    Thành:

      (setq ttdangt "<") 
      (setq ttdangs ">") 
     

    • Vote tăng 1

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

    Tự nghiên cứu (vì lisp của người ta, tôi chỉ lưu lại khi cần chứa chưa dùng): LISP ĐÁNH BÓNG 

    
;; free lisp from cadviet.com
;;; this lisp was downloaded from http://www.cadviet.com/forum/index.php?showtopic=61922
;by PhamThanhBinh 
(defun c:kbg (/ e1 e2 a  a1 e  k p pd pc dis B)
(vl-load-com)
(command "undo" "be")
(command "ucs" "w")
(setq e1 (car(entsel "\n Chon duong bien thu nhat"))
        e2 (car(entsel "\n Chon duong bien thu hai"))
        e (car (entsel "\n Chon duong ke chuan"))
        ;;; a (getreal "\n Nhap khoang cach chuan: ")
        k (Getreal "\n Nhap he so khoang cach: ")
        p (getpoint "\n Chon huong rai duong ke bong")
        dis (distance p (vlax-curve-getClosestPointTo (vlax-ename->vla-object e) p T))
        b 0
)
(if (not a1) (setq a1 (getreal "\n Nhap khoang cach chuan: ")))
(if (/= a1 nil)
(setq a a1)
(setq a 10))
(setq la (getstring t "\n Nhap ten layer: "))
(if (= (tblsearch "layer" la) nil)
    (command "layer" "m" la "c" 8 "" "")
)
(setvar "clayer" la)
(command "change" e "" "p" "la" la "")
(while (and (< b dis) (> a 0.01))
    (command "offset" a e p "")
    (setq e (entlast)
             a (* k a)
             b (+ b a)
             pd (vlax-curve-getstartpoint e)
             pc (vlax-curve-getendpoint e)
             d1 (vlax-curve-getclosestpointto e1 pd T)
    )
    (if (setq p1 (acet-geom-intersectwith e e1 0))
        (command "trim"  e1 ""  pd "")
        (command "extend" e1 "" pd "")
    )
      
    (if (setq p2 (acet-geom-intersectwith e e2 0))
        (command "trim" e2 "" pc "")
        (command "extend" e2 "" pc "")
    )
)
;;;(command "ucs" "p")
(command "undo" "e")
(princ)
)

    • Like 1

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

    Tôi tìm được 1 lisp read file Url khác, mọi người xem và so sánh phạm vi sử dụng.
    Hiện đang tìm Lisp ghi file lên Url mà chưa có. Ai có cho xin, thanks!

    
;-----https://stackoverflow.com/questions/30250320/autolisp-lisp-write-to-file-on-web-server
(defun c:read ()
 (setq server "http://example.com.au/Folder/")
 (setq SetFile "testpost.txt")
 (setq Filepath (strcat server SetFile))
 (setq xml (vlax-create-object "MSXML2.XMLHTTP.3.0"))
 (vlax-invoke-method xml 'open "POST" Filepath :vlax-false)
 (vlax-invoke-method xml 'send)
 (setq strSunday (vlax-get-property xml 'responsetext)))

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

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

    Những thứ không bị phá khoá là những thứ không đáng để phá.

    Quan điểm này ngộ ghê em.
    Két sắt ngân hàng vẫn khóa đấy thôi. Chả lẽ bọn cướp nhà băng dòm không thấy tiền?
    Nhà mình vẫn khóa cổng đấy thôi. Chả lẽ nhà mình không có nổi chiếc xe 2 bánh?
    Đành rằng vỏ quít dày móng tay nhọn, nhưng có khóa nó cũng đỡ hơn không khóa. Và đôi khi khóa là để hạn chế bớt bị cắp chứ không phải để chống triệt để kẻ cắp.
    Một số lisper họ bỏ công viết, muốn lấy lại sức lao động, thì chuyện khóa lisp là bình thường (và cũng chỉ khóa được những người không quá rành về công nghệ thôi). Mà liệu có bao nhiêu người dùng lisp, thậm chí rành lisp, có thể hack được? E rằng cực kỳ ít!

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

    17 giờ trước, tannguyen291 đã nói:

    cách 2: vẫn sử dụng internettime và dùng thêm 1 hàm mã hoá. mình sẽ cấp cho người dùng password (chính là kết quả mã hoá của thời gian ngày hôm nay) để dùng thử 1 ngày

      (nếu muốn cho dùng nhiều ngày vòng luẩn quẩn đã quay trở lại)

    Các bác có phương pháp nào hay giới thiệu em với.

    Gọi InternetTime1 lúc cài là N1. Trial là 30. Tác giả mã hóa N1 được pass là P cấp cho user.
    Khi user cài đặt và sử dụng: nếu đúng pass N1 và InternetTime2 < N1+30 thì OK, không thì NO.

    Trong đó N1 lần sau được lấy bằng cách giải mã pass đã cấp (ngược quy luật mã hóa).

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

    Hàm offset vào trong hoặc ra ngoài tôi viết sẵn. Ai cần thì dùng.

    ;----- Offset + (out) / - (in). Tra ve enttity. By HA
(defun Offset_dau(ent kc / obj obj1 obj2 dau)
 (setq obj (vlax-ename->vla-object ent) obj1 (car (vlax-invoke obj 'Offset 1E-3)) obj2 (car (vlax-invoke obj 'Offset -1E-3)) dau (if (> (vla-get-Area obj1)(vla-get-Area obj2)) + -))
 (mapcar 'vla-delete (list  obj1 obj2))
 (vlax-vla-object->ename (car (vlax-invoke obj 'Offset (dau kc)))))

    • Vote tăng 1

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

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

    Em có một lisp có công dụng nối liền các pline bên trái với các pline tương ứng bên phải (ảnh minh hoạ ạ).

    Khi dùng lisp thì gắp 1 vấn đề là: thứ tự tạo ra (vẽ) các đường pline sẽ ảnh hưởng đến kết quả mình mong muốn ạ.

    Các text (1,2,3,4) thể hiện cho thứ tự tạo ra các pline. khi dùng lisp nó sẽ nối 1-1, 2-2, 3-3, 4-4 (ảnh minh hoạ ạ).
    Mong muốn của em là các pline sẽ được nối với nhau lần lượt từ dưới lên trên ạ, cụ thể là 1-3, 2-1, 3-2, 4-4 ạ.

    Lisp do em cóp nhặt và chỉnh sửa từ các code lisp khác nhau ạ, móng các anh (chị) xem và sửa lại giúp em ạ.
    Em cảm ơn ạ!

    test1.dwg

    NOI LIEN PLINE (TE1).lsp

     

    Khi chọn nhóm đối tượng 1 và nhóm đối tượng 2 bạn chọn bằng "fence" theo cùng hướng là được.

    • Like 1

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

    19 phút trước, vuongdhbkdn đã nói:

    Công việc của em cần nối 1 đường pline giữa 2 điểm bất kỳ mà đường pline này là đường pline vuông góc có 2 cạnh theo 2 trục X-Y của hệ trục tọa độ đang hiện hữu ( Khi đổi trục bằng lệnh ucs thì vẽ pline cũng sẽ là đường vuông góc theo trục ucs mới ). Em cần nối rất nhiều điểm như vậy với nhau nên muốn thao tác công việc được nhanh hơn.

    Nhờ các bác giúp đỡ ạ ! Em cảm ơn !

    Khó hiểu quá. Có hình minh họa sẽ rõ hơn.

×