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

Nguyen Van Hiep19

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

  • Số lượng nội dung

    9

  • Đã tham gia

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

Bài đăng được đăng bởi Nguyen Van Hiep19

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

    Nhờ các tiền bội giúp hộ mình cái lisp đưa thông số chiều dài Pline vào thay thế giá trị tag value của block ATT với ạ

    ý tưởng ban đầu: "TAG LENGTH LINE"

    B1: nhập lệnh: tll
    B2: nhập vào một TAG ATT mặc định là giá trị "CD" , "CD" 'là TAG ATT của block của mình

    B3:  quét chọn 2 đối tượng là Block ATT và POLYLINE,LINE

    B4: KẾT THÚC LỆNH => kết quả là đã đưa giá trị length của POLYLINE,LINE vào tag value "CD" của block => vòng lặp quay lại B3

    em xin cảm ơn và gửi bác ly cà phê 

    File hình ảnh và file CAD bên dưới

    SDT ZALO EM: 0369869616, xin cảm ơn ạ

    z3788723213623_d878917be604684dce3847129ba8b744.jpg

    Demo.dwg

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

    Mình có xin được lisp này, nhưng mà vẫn chưa ưng ý lắm

    Lisp này giống với lisp HA của bác Doan Van Ha tại post https://www.cadviet.com/forum/topic/13074-lisp-ghép-text-cần-giúp-đỡ/?do=findComment&comment=202639 

    (do lisp HA phía trên này không chạy được với text bị xoay, với khoảng cách nối text cố định nên mình không sử dụng đc. Lisp mình dùng là khoảng cách 2 text nào nhỏ hơn khoảng cách cố định là sẽ nối)

     Vẫn giữ các thao tác của lisp cũ (NT)

    Mình muốn lisp  mới cho phép người sử dụng nhập ký tự ngăn cách của 2 text

    Kết quả hiện thị như bên dưới

     

    lisp mình xin được chỉ có file đuôi .vlx chứ không có đuôi .LSP

    file lisp cũ của mình https://drive.google.com/file/d/136MWX98Q1pvhEfSiVy98PVuKfYH_EL8H/view?usp=sharing

    file cad của mình https://drive.google.com/file/d/13e0dO5LLkR19hRx0EUvsD0Y8gDBFPrk6/view?usp=sharing

     

    z3379666446012_35cc394a578f2bc4e54c7fe5ffbe54a2.jpg

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

    Vào lúc 21/3/2009 tại 10:48, Tue_NV đã nói:

    Đây là đoạn Lisp của bác ssg, mình có chỉnh lại một chút cho phù hợp với yêu cầu thứ nhất của bạn.

    Riêng yêu cầu 2 trong bản vẽ bạn ghi : thực hiện lệnh, chọn đối tuong cần đo và nếu không

    chọn text để gán kết quả thì Enter và pick 1 điểm trên màn hình để xuất kết quả bằng số theo style text hiện thời.

    Kết quả bằng số là kết quả gì vậy bạn ? bạn hãy nói rõ.

      

    
;;;--------------------------------------------------------------------
(defun Length1(e) (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))
;;;--------------------------------------------------------------------
(defun C:TL( / ss L e)
(setq
ss (ssget (list (cons 0 "LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE")))
L 0.0
)
(vl-load-com)
(while (setq e (ssname ss 0))
(setq L (+ L (length1 e)))
(ssdel e ss)
)


(setq te (entget(car("\n Chon Text de gan ket qua :")))
te (subst (cons 1 (rtos L 2 2)) (assoc 1 te) te))
(entmod te)
)
;;;--------------------------------------------------------------------
     

     

    sao mình chạy thử không được nữa

    • Vote giảm 2
×