Lisp miễn phí ghi tọa độ cao độ X Y h | THE THZ free lisp | 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 độ X Y

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í!

THZ Chèn tọa độ X Y h

THZ được AJS bổ sung để chèn thêm cao độ Z

2 Thêm class [THZ] Pick toa do.lsp

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

Code:

(defun C:THZ(/ PNT1 P1X P1Y STDX STDY COORDN COORDE PTXT)
    (setq PNT1 (getpoint
      "\nPick coordinate point: "))
    (setq P1Z (caddr pnt1)) ;x coord
    (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 STDZ (rtos P1Z 2 3))
    (setq COORDN (strcat "X""="STDX  ))
    (setq COORDE (strcat "Y""="STDY  ))
    (setq COORDZ (strcat "h""="STDZ  ))
    (setq PTXT (getpoint
      "\nPick text location: "))
    (command "LEADER" PNT1 PTXT "" COORDE  COORDN COORDZ "")
	
    (princ "Edited by www.lisp.vn")
    (princ)
)

Link tải (MediaFire)

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

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

Ứ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!