Nhờ các bác edit giúp lisp cộng dim thành công thức và tính diện tích

[gamo7878 0]

Em chào các bác!

Em mới tham gia diễn đàn mình. Chủ nhật mà lên nhờ các bác ngại quá ạ.hj. Mà tại em làm thủ công mất thời gian nên mạo muội nhờ các bác ạ.hj

Nhờ các bác sửa giúp em lisp này với ạ. 

Em cần lisp này sửa lại là copy kết quả sang clipboard luôn để paste vào excel chứ không cần xuất ra màng hình.

Em cảm ơn các bác! Chúc các bác ngày cuối tuần vui vẻ!

14. CongDimThanhCongThuc (DON VI MM) (CCD).lsp

16. TINH TONG DIEN TICH (S2A).rar

[nguyenkienAgr 8]

Bạn tìm hàm SetClipboardText có trên diễn đàn rồi thêm vào là xong.

[nguyenkienAgr 8]

Rảnh sửa giúp bạn:

Quote

;; free lisp from cadviet.com
;;; this lisp was downloaded from https://www.cadviet.com/forum/topic/65383-yêu-cầu-lisp-cộng-các-số-trong-dim-thành-một-công-thức/

(defun C:CCD (/ GTT DT SDT ENT ID STR)
  (setq    DT  (ssget '((0 . "DIMENSION")))
    SDT (sslength DT)
    ID  0
    GTT 0
    STR "+"
  ) ;_ E_of_setq
  (repeat SDT
    (setq
      ENT (ssname DT ID)
      ID  (1+ ID)
      GTT (+ GTT (GT1 ENT))
      STR (strcat STR (rtos (GT1 ENT) 2 0) "+")
    ) ;_ E_of_setq
  ) ;_ E_of_repeat
  (setq STR (substr STR 1 (1- (strlen STR))))
  (setq STR (LISPED STR))
  (SETCLIPBOARDTEXT STR)
  (princ STR)
  (princ)
) ;_ E_of_defun
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun GT1 (ENT / SO)
  (if (wcmatch (cdr (assoc 1 (entget ENT))) "")
    (setq SO (cdr (assoc 42 (entget ENT))))
    (setq SO (atof (cdr (assoc 1 (entget ENT)))))
  ) ;_ E_of_if
) ;_ E_of_defun
;;;=============================================================
(defun SETCLIPBOARDTEXT    (TEXT / HTMLFILE RESULT)  ; By XShrimp
  (if (= 'STR (type TEXT))
    (progn
      (setq HTMLFILE (vlax-create-object "htmlfile")
        RESULT   (vlax-invoke
               (vlax-get (vlax-get HTMLFILE 'PARENTWINDOW)
                 'CLIPBOARDDATA
               ) ;_ E_of_vlax-get
               'SETDATA
               "Text"
               TEXT
             ) ;_ E_of_vlax-invoke
      ) ;_ E_of_setq
      (vlax-release-object HTMLFILE)
      TEXT
    ) ;_ E_of_progn
  ) ;_ E_of_if
) ;_ E_of_defun
 

 

 

14. CongDimThanhCongThuc (DON VI MM) (CCD).lsp

[gamo7878 0]

7 giờ trước, nguyenkienAgr đã nói:

Rảnh sửa giúp bạn:

 

 

14. CongDimThanhCongThuc (DON VI MM) (CCD).lsp

Bác xem lại giúp lisp bị nhảy ký tự rồi kìa bác ơi không sử dụng được.

[nguyenkienAgr 8]

Vào lúc 13/8/2023 tại 21:16, gamo7878 đã nói:

Bác xem lại giúp lisp bị nhảy ký tự rồi kìa bác ơi không sử dụng được.

 

Mình tải về thấy dùng bình thường mà?