Lisp pick tọa độ miễn phí AutoCAD THE | AutoLISP Reviewer

Ứng dụng được phát triển/Sưu tầm bởi đội ngũ AutoLISP Thật là đơn giản

   

    

Thông tin thêm: 👉👉👉

THE Chèn tọa độ bằng cách Pick điểm

1 Thêm class [THE] Pick toa do.lsp

Lưu mã sau dưới dạng tệp tin [THE] Pick toa do.lsp

Code:

;This function is used to pick coordinates
;then display coordinates on drawing
;
(defun C:THE(/ PNT1 P1X P1Y STDX STDY COORDN COORDE PTXT)
    (setq PNT1 (getpoint
      "\nPick coordinate point: "))
    (setq P1X (cadr pnt1)) ;x coord
    (setq P1Y (car pnt1))  ;y coord
    (setq STDX (rtos P1X 2 3))
    (setq STDY (rtos P1Y 2 3))
    (setq COORDN (strcat "X""="STDX  ))
    (setq COORDE (strcat "Y""="STDY  ))
    (setq PTXT (getpoint
      "\nPick text location: "))
    (command "LEADER" PNT1 PTXT "" COORDE  COORDN "")
    (princ "Edited by www.lisp.vn")
    (princ)
)

Điều chỉnh chiều cao chữ

Hiện app không có chức năng điều chỉnh chiều cao chữ riêng, nhưng bạn có thể điều chỉnh trong Dimstyle hiện hành.

Video Hướng dẫn 

Link tải hoàn toàn miễn phí!

Link tải (MediaFire)

📥 https://www.mediafire.com/file/yy04ivcmt0bngt8/

---------------------------------------------------------------------------------------------

Ứng dụng được phát triển bởi đội ngũ AutoLISP Thật là đơn giản - Tác giả ứng dụng in D2P

    

Mọi thông tin xin liên hệ Fanpage AutoLISP Thật là đơn giản!

Cảm ơn bạn đã theo dõi!