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

[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)

[NDBNGO 20]

Trong diễn đàn đã có lisp như vậy rất nhiều ,bạn nên sử dụng chức năng tìm kiếm nhé.

[ketxu 3004]

Đâ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

[VUVUZELA 100]

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: