Gia công lisp

[vanhhiep 0]

Mình muốn xuất ra chữ với kích thước nhạp từ bàn phím, mình cảm ơn

XTD.lsp

[cuongtk2 345]

;This function is used to pick coordinates
;then display coordinates on drawing
;then modify text height
(defun C:xtd(/ PNT1 P1X P1Y STDX STDY COORDN COORDE PTXT h obj)
    (setq PNT1 (getpoint
      "\nPick coordinate point: "))
    (setq P1X (cadr pnt1)) ;x coord
    (setq P1Y (car pnt1))  ;y coord
    (setq STDX (rtos P1X 2 0))
    (setq STDY (rtos P1Y 2 0))
    (setq COORDN (strcat "X=" STDY  ))
    (setq COORDE (strcat "Y=" STDX  ))
    (setq PTXT (getpoint
      "\nPick text location: " pnt1))
    (command "LEADER" PNT1 PTXT "" COORDN  COORDE "")
    (setq obj (vlax-ename->vla-object (entlast))
          h (vla-get-Height obj)
  
          h (getreal (strcat "\nText height<" (rtos h 2 0) ">:"))
          )
  (vla-put-Height obj h)
    (princ)
)

 

[vanhhiep 0]

53 phút trước, cuongtk2 đã nói:

;This function is used to pick coordinates
;then display coordinates on drawing
;then modify text height
(defun C:xtd(/ PNT1 P1X P1Y STDX STDY COORDN COORDE PTXT h obj)
    (setq PNT1 (getpoint
      "\nPick coordinate point: "))
    (setq P1X (cadr pnt1)) ;x coord
    (setq P1Y (car pnt1))  ;y coord
    (setq STDX (rtos P1X 2 0))
    (setq STDY (rtos P1Y 2 0))
    (setq COORDN (strcat "X=" STDY  ))
    (setq COORDE (strcat "Y=" STDX  ))
    (setq PTXT (getpoint
      "\nPick text location: " pnt1))
    (command "LEADER" PNT1 PTXT "" COORDN  COORDE "")
    (setq obj (vlax-ename->vla-object (entlast))
          h (vla-get-Height obj)
  
          h (getreal (strcat "\nText height<" (rtos h 2 0) ">:"))
          )
  (vla-put-Height obj h)
    (princ)
)

 

cảm ơn a ạ