Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
kt.v2quang

lisp tăng giá trị nhiều text trong địa hình

Các bài được khuyến nghị

kt.v2quang    0

Em nhờ bác Hoành giúp đỡ.

Em có 1 mặt bằng khảo sát địa hình gồm nhiều giá trị text khác nhau. Em nhờ bác viết giúp em 1 lisp như sau:

+cộng 1 giá trị vào tất cả các giá trị text khác nhau đó (Nghĩa là làm tăng giá trị cos địa hình lên)

+trừ 1 giá trị vào tất cả các giá trị text khác nhau đó (Nghĩa là làm giảm giá trị cos địa hình xuống)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ketxu    2.649

Đây.Lisp cộng trừ nhân chia tất cả cho 1 hệ số của bác...j j đó.E quên mất rùi ^^..Đa phần các bạn hỏi trước khi search quá :undecided:

 

;; free lisp from cadviet.com
(defun c:tinh()
(setq i 0 nhan 1 chia 1 cong 0)
(setq     nhan1 (getreal (strcat "\n nhap so muon nhan hoac chia : "))
    cong1 (getreal (strcat "\n nhap so muon cong hoac tru :")))
(if nhan1 (setq nhan nhan1))
(if cong1 (setq cong cong1))
(prompt "\nchon cac so can sua ...")
(setq txt (ssget '((0 . "TEXT"))))
(command "undo" "begin")
(repeat     (sslength txt)
    (setq txt_name (ssname txt i))
    (setq txt_ent (entget txt_name))
    (setq cont1 (cdr(assoc 1 txt_ent)))
    (setq cont (atof cont1))
    (if (distof cont1 2)
        (progn
        (setq s (+ (* cont nhan) cong))
        (setq txt_ent  (subst (cons 1 (rtos s)) (assoc 1 txt_ent) txt_ent))
        (entmod txt_ent));if
    );if
    (setq i (+ i 1))
);repeat
(command "undo" "end")
);defun

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
VUVUZELA    98
Em nhờ bác Hoành giúp đỡ.

Em có 1 mặt bằng khảo sát địa hình gồm nhiều giá trị text khác nhau. Em nhờ bác viết giúp em 1 lisp như sau:

+cộng 1 giá trị vào tất cả các giá trị text khác nhau đó (Nghĩa là làm tăng giá trị cos địa hình lên)

+trừ 1 giá trị vào tất cả các giá trị text khác nhau đó (Nghĩa là làm giảm giá trị cos địa hình xuống)

 

Ặc, chắc ông này làm bên thi công rồi

Chiêu này quen quen à nghen

:undecided:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×