Xin Lisp nhân text với hệ số

[888x888x888 2]

Các bác có lisp nào để nhân text với hệ số nhưng không thêm sau dấu phẩy không,

Giả sử có text 3.00 mình muốn thành 300

Tham khảo mấy lisp trên page toàn sửa thành 300.00

Và nếu sửa được 1 loạt text thì tốt chứ từng cái 1 lâu lắm.

Thank các bác

[doductiep 28]

55 phút trước, 888x888x888 đã nói:

Các bác có lisp nào để nhân text với hệ số nhưng không thêm sau dấu phẩy không,

Giả sử có text 3.00 mình muốn thành 300

Tham khảo mấy lisp trên page toàn sửa thành 300.00

Và nếu sửa được 1 loạt text thì tốt chứ từng cái 1 lâu lắm.

Thank các bác

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

[888x888x888 2]

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ả

[doductiep 28]

15 giờ trước, 888x888x888 đã nói:

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ả

tôi dùng cad2007. Đã test kỹ ok mà