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.

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!