输完第四个点之后就没了

抱歉，这可能是因为程序在运行时没有正常结束导致的。您可以尝试在程序的最后添加 `(princ)` 命令，以确保程序正常结束并返回到命令行。以下是修改后的代码：

(defun c:CloudAnnotation (/ pt1 pt2 pt3 pt4 obj)
  (setq pt1 (getpoint "\n选择第一个点："))
  (setq pt2 (getpoint pt1 "\n选择第二个点："))
  (setq pt3 (getpoint pt2 "\n选择第三个点："))
  (setq pt4 (getpoint pt3 "\n选择第四个点："))
  (setq obj (vla-addcloud(C:VLAX-ENAME->VLA-OBJECT (vla-get-activeselectionSET))))
  (vla-put-cloudcenter obj (vlax-3d-point pt1))
  (vla-put-cloudpoint2 obj (vlax-3d-point pt2))
  (vla-put-cloudpoint3 obj (vlax-3d-point pt3))
  (vla-put-cloudpoint4 obj (vlax-3d-point pt4))
  (vla-put-cloudtext obj (getstring "\n输入批注文本："))
  (vla-put-cloudtextlocation obj (vlax-3d-point pt1))
  (vla-put-cloudtextstyle obj "标准")
  (vla-put-cloudtextsize obj 2.5)
  (princ "\n云线批注已添加！")
  (princ)
)

您可以将该代码保存到一个lsp文件中，然后在CAD中加载该文件并运行CloudAnnotation命令来使用该程序。