Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

Lấy Tên Layer Đối Tượng Được Chọn Đưa Vào Clipboard


  • Please log in to reply
2 replies to this topic

#1 vietanh2108

vietanh2108

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: 5 (bình thường)

Đã gửi 06 May 2017 - 08:01 AM

Chào mọi người, em có  đoạn lisp phía dưới đưa số lượng đối tượng đã chọn vào clipboard để việc còn lại chỉ là Ctrl+V để lấy số liệu. H e muốn nhờ mn sửa dùng để có thể lấy tên layer của đối tượng đầu tiên trong nhóm đối tượng đã chọn đưa vào clipboard tương tự thế này.

Cho e cám ơn trước! :)

(defun C:f1 ( / SS )
  (and
    (setq SS (vl-some 'ssget (list "_I" nil)))
    (_SetClipBoardText (itoa (sslength SS)))
  )
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun _SetClipBoardText ( text / htmlfile result )

    ;;  Caller's sole responsibility is to pass a
    ;;  text string. Anything else? Pie in face.

    ;;  Attribution: Reformatted version of
    ;;  post by XShrimp at theswamp.org.
    ;;
    ;;  See http://tinyurl.com/2ngf4r.

    (setq result
        (vlax-invoke
            (vlax-get
                (vlax-get
                    (setq htmlfile (vlax-create-object "htmlfile"))
                   'ParentWindow
                )
               'ClipBoardData
            )
           'SetData
            "Text"
            text
        )
    )

    (vlax-release-object htmlfile)

    text

)

  • 0

#2 hiepttr

hiepttr

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1301 Bài viết
Điểm đánh giá: 521 (tốt)

Đã gửi 06 May 2017 - 09:37 AM

Thử sửa dòng:

(_SetClipBoardText (itoa (sslength SS))) 

Thành:

(_SetClipBoardText (cdr (assoc 8 (entget (ssname SS 0)))))

  • 1

Có vợ dù dữ dù hiền , bạn đều có lợi
_ Nếu vợ hiền, bạn sẽ là người đàn ông sung sướng
_ Nếu vợ dữ, bạn sẽ thành ... triết gia !

Bergson


#3 vietanh2108

vietanh2108

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: 5 (bình thường)

Đã gửi 08 May 2017 - 07:48 AM

Cám ơn bác, nhanh gọn lẹ và vô cùng chính xác! ^^


  • 0