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

ngoducdung

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

  • Số lượng nội dung

    6

  • Đã tham gia

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

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

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

    Nhờ các bác viết 1 lisp quét chọn các nhóm đèn đã đánh số trên mặt bằng( số bất kỳ, nhóm có thể 1 đèn, 2 đèn, 3 đèn...). Sau thao tác quét chọn các nhóm đèn trên mặt bằng thì ghi tên lên mặt bằng .

     

    Ví dụ: có 3 nhóm đèn( 3 đèn số 34; 3 đèn số 35; 3 đèn số 42) được điều khiển bởi 1 công tắc 3 hạt. E cần ghi tên 3 nhóm đèn đó lên mặt bằng dạng "[34,35,42]" theo thứ tự từ bé đến lớn

     

    Em có gửi file đính kèm! Các bác xem giúp e với ạ! E cảm ơn!

    NHOMDEN.dwg

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

    28 phút trước, Doan Nguyen Van đã nói: 
    
(defun c:ctx (/ lst i ent txt n sel)
  (setq lst (list)
	i 1
	Sel (strcat "\nPick text ngu\U+1ED3n s\U+1ED1 " (itoa i)))
  (while (setq ent (car (nentsel sel)))
   (if (/= (cdr (assoc 0 (entget ent))) "ATTRIB") (Alert "\nKh\U+00F4ng ph\U+1EA3i Attribute!!!") (progn
										      
    (setq txt (cdr (assoc 1 (entget ent))))
    (if (setq n (vl-string-search ":" txt)) (progn
	(setq i (1+ i)
	Sel (strcat "\nPick text ngu\U+1ED3n s\U+1ED1 " (itoa i) "-ho\U+1EB7c pick kho\U+1EA3ng tr\U+1EAFng \U+0111\U+1EC3 d\U+1EEBng") )
      (setq txt (substr txt (+ n 2)))
    (setq lst (append lst (list txt))) ) (Alert "\nKh\U+00F4ng c\U+00F3 gi\U+00E1 tr\U+1ECB t\U+00ECm ki\U+1EBFm"))
	)))
  (setq i 0)
 (while (setq txt (nth i lst))
   (if (and (setq ent (car (entsel (strcat "\nPick Text \U+0111\U+00EDch s\U+1ED1 " (itoa (1+ i))))))
	    (vl-string-search "TEXT" (cdr (assoc 0 (entget ent))))) (progn
    (setq i (1+ i))
    (entmod (subst (cons 1 txt) (assoc 1 (entget ent)) (entget ent)))
    ) (Alert "\n\U+0110\U+1ED1i t\U+01B0\U+1EE3ng kh\U+00F4ng ph\U+1EA3i TEXT"))
    )
  )

    Nghỉ lễ mà anh em vẫn làm việc chăm chỉ quá nhỉ! Món quà nhỏ tặng bạn!

    Thank anh ! đúng ý em rồi

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

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

    Bạn dùng thử Lisp này xem được không

    Lưu ý là vùng 2 phải có sẵn text, sau đó mới copy nội dung thuộc tính từ vùng 1 sang text vùng 2

    CopySwapTextV1-7 (CTX - STX).lsp

    Lisp này không lấy được text trong block ( vùng 1)/ mà e chí muốn lấy phần số sau dấu ":" thôi/ ví dụ: trong block d6: 9.8- em chỉ muốn lấy được giá trị 9.8 và gán lên text ở vùng 2 thôi

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

    Nhờ các bác Viết lisp !

    Yêu cầu:

     

    1>Em có bảng thống kê thép (VÙNG 1) là phần mềm xuất ra - là 1 block thuộc tính ( đặc điểm có chứa các text: phi6: 9.8- số này là khối lượng thép\ phi10: 138.7 ......và các đường kính thép khác)

    2> VÙng số 2 e tự tạo để tính số cây thép, em muốn lấy dữ liệu là khối lượng của các thanh thép có đường kính tương ứng gán vào VÙNG 2 như hình

    Nhờ các bác viết lisp: Lấy từng dữ liệu là khối lượng thép trong block vùng 1, và gán lên text vùng 2

    Thank!

     

    759a281a3b18de468709.jpg.d16bb487ff7329b6008303103a4884d5.jpg

    thongkethep.dwg

×