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

888x888x888

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

  • Số lượng nội dung

    27

  • Đã tham gia

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

  • Ngày trúng

    1

Bài đăng được đăng bởi 888x888x888

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

    Trước đây mình dùng thì autocad thì tự tạo file BAK để lưu, thường là sẽ lưu tất cả và thư mục Temp của ổ C, và chỉ giữ là 1 file BAK lưu gần nhất.

    Nhưng chả biết mình ấn phải cái gì mà gần đây mỗi khi mình sử dụng, autocad tự tạo rất nhiều file BAK ngay tại folder của file gốc, các bạn giúp mình với

     

    cad loi - Copy.jpgcad loi - Copy (2).jpg

    cad loi.jpg

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

    Mình tìm thấy lisp này trên diễn đàn,

    Lisp dùng khá ok nhưng lại tạo đường bo ở dạng Region,

    Mình muốn đường bo thành dạng polyline, Bác nào sửa giúp mình với ạ

    Thank 

    (defun c:bao()
  (setq p (getpoint "pick diem :"))
  (command "._boundary" "A" "O" "R" "" p "")
  (Command "._region" "L" "")
  (setq el (entlast)) (redraw el 3)
  (while (setq p (getpoint "pick diem :"))
      (command "._boundary" p "")
      (Command "._region" "L" "")
    (command "._union" el "L" "")
    (setq el (entlast))
    (redraw el 3)
  )
)

     

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

    Vào lúc 28/1/2021 tại 07:56, Bee đã nói:

    Lisp đây chủ thớt nhé: 

    
(defun c:gt1  (/ line txt etxt d)
  (setq line (car (entsel "\Chon line: ")))
  (setq d (distance (cdr (assoc 10 (entget line))) (cdr (assoc 11 (entget line)))))
  (setq txt  (car (entsel "\n Chon text can thay"))
        etxt (entget txt)
        etxt (subst (cons 1 (rtos d 2 2)) (assoc 1 etxt) etxt)
        )
  (entmod etxt)
  (princ)
  )

     

    Thank bác nhé

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

    Mình tìm nhiều nhưng toàn lisp kiểu này mà toàn cái phức tạp quá mức mình cần thiết

    Mình muốn nhờ các bác làm hộ mình 1 cái lisp thật đơn giản thế này, pick vào line rồi xuất vào text có sẵn, chỉ vậy thôi, như cái lisp mình đang dùng mà ko phải pick điểm đầu, điểm cuối nữa mà pick vào line luôn (cả pline thì tốt) 

    Cảm ơn các bác

    Lisp mình đang dùng đây:

    (defun c:gt (/ p1 p2 txt etxt d)
    (setq p1 (getpoint "\n Chon diem thu nhat")
              p2 (getpoint "\n Chon diem thu hai ")
              txt (car (entsel "\n Chon text can thay" ))
              d (distance p1 p2)
             etxt (entget txt)
             etxt (subst (cons 1 (rtos d 2 2)) (assoc 1 etxt) etxt)
    )
    (entmod etxt)
    (princ)
    )

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

    Mình đang dùng bình thường, không biết chạy phải lisp gì mà tự nhiên bị thế này

    - Chuột phải 2 lần vào text nó ko sửa mà hiện lên 1 bảng [Select an annotation object] rồi chọn lại text mới sửa đc,

    - Chuột phải 2 lần vào block nó hiện 1 danh sách block lên cho chọn rồi sửa chứ ko phải cái mình mới chọn.

    Đã tham khảo 1 số cách nhưng ko được

    Pickfirst = 1

    DBLCLKEDIT = ON

    Đã tích chọn Noun/Verb selection trong Option

    Lần trước mình cũng bị 1 lần và cài lại cad thì hết, chả nhẽ mỗi lần bị lại phải cài lại cad. Máy mình cả cad7 vẫn bt, mỗi cad15 thì bị vậy

    Mấy bác có cách giải quyết thì giúp mình với ạ. THANK

     

     

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

    Vào lúc 25/4/2019 tại 23:08, ketxu đã nói:

    2. Chắc thao tác sai :)) 
    3. Bạn đã đưa yêu cầu kiểu thế nào cũng được thì code cũng nhanh thôi :D
     

    • chabietattengi.lsp
      lisp help
    •   
    
(defun c:chabietattengi(/ d p)
(and 
	(setq d (distof (vl-string-translate "," "." (cdr (assoc 1 (entget (car(entsel "Chon DText nhe, dung chon gi khac"))))))))
	(setq p (getpoint "\nPick diem ben duoi nhe, dung pick diem ben tren :"))
	(entmake (list (cons 0 "LINE")(cons 10 p) (cons 11 (polar p (* pi 0.5) d))))
))

     

    Cám ơn bác nha, lisp rất hay, nếu rảnh bác làm thêm cho em cái tỷ lệ của line nữa (ví dụ text là 1 thì line dài 10 ấy ạ) thì quá tốt luôn ạ. Thank bác trước

    14 giờ trước, duy782006 đã nói:

    File đường hàn. Cả nguyên liệu và thành phẩm. Lưu ý cái nét đứng là shape 

    duonghan.dwg

    Cảm ơn các bác nha

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

    10 phút trước, ketxu đã nói:

    1 - Cắt liên tục bạn search lisp break của bác Tue_NV đã có

    2 - Đường hàn đơn giản đó tự bạn sử dụng các lệnh make shaoe, make linetype thuộc bộ Express đã làm được rồi

    3 - Đoạn thẳng thiếu phương hướng, chỉ có điểm gốc và chiều dài thì sẽ có n nghiệm. Nếu đáp ứng đủ phương hướng nữa thì viết lisp là ok

    Cảm ơn bác

    2. Đường hàn mình cũng dùng make linetype mà nó toàn ra dấu chấm thế này ............................. ( ko biết bị lỗi gì)

    3. Chỉ cần phương thẳng đứng thôi, Mình vẽ trắc dọc ấy mà :D 

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

    - Mình có cái lisp chặt đoạn thẳng tại 1 điểm, nhưng hạn chế là chọn 1 đoạn thẳng nó chỉ cho chặt 1 lần, muốn chặt thêm phải chọn lại đối tượng, mình nhờ các pro viết thêm cho mình cho chặt thoải mái đc ko ạ.

    - Thứ 2 là cái linetype đường hàn mình search toàn dạng TTTTTTTTTT nhưng mình chỉ muốn có dạng  I I I I I I I I I I I I I I (nghĩa là ko có đoạn thẳng nối, chỉ có mấy cái gạch thôi ấy ạ:-D) bác nào có ko ạ

    - Cho mình hỏi thêm nữa là có lisp nào từ text mà vẽ được Dim ko ạ, Ví dụ mình có cái text là 1,2 mình tích vào text xong tích 1 điểm gốc là vẽ được đoạn thẳng dài 1,2 ấy ạ

    Cảm ơn các bác rất nhiều ạ

    1.Cat doan thang BF.lsp

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

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

    Bạn sài tạm. Lệnh NH

      

    

 

    (defun c:nh ( / lst iValue newValue heso iValue Pro)
    (vl-load-com)
    (setq lst nil)
                
                (setq heso (getreal "Nhap he so:"))
                
                (setq lst (acet-ss-to-list (ssget '((0 . "TEXT,MTEXT")))))


    (foreach i lst

        (setq iValue (atof(cdr (assoc 1 (entget i)))))

            (setq newValue (rtos (* iValue heso) 2 0))
        (setq Pro (entget i))
        (setq Pro (subst (cons 1 newValue) (assoc 1 Pro) Pro))
            (entmod Pro)
            (entupd i)

    )
    )

     

    NhanHS (NH).lsp

    Sao mình dùng ko đc, lệnh NH chọn hệ số rối chọn đối tượng Enter xong ko thấy gì cả

×