(defun c:qq ()
  (setvar "OSMODE" 0)
  (setq D 1.89)
  ;; 1. 绘制塔底部分
  (command "_.LINE" "0,0" (list D 0) "")
  (command "_.LINE" "0,0" "0,3" "")
  (command "_.LINE" (list D 0) (list D 3) "")
  ;; 2. 绘制塔顶部分
  (command "_.LINE" "0,8" "0,11" "")
  (command "_.LINE" (list D 8) (list D 11) "")
  (command "_.ARC" "0,11" (list (/ D 2.0) 11.5) (list D 11))
  ;; 3. 绘制核心组件
  (command "_.CIRCLE" "5,10" 0.8) ; 压缩机 [cite: 10, 13]
  (command "_.RECTANG" "4,0" "6,2") ; 换热器 A [cite: 22, 46]
  ;; 4. 文字标注 (基于计算结果 [cite: 33, 42])
  (command "_.TEXT" "2.5,5.5" 0.3 0 "Z=138.15m")
  (command "_.TEXT" "4.5,11" 0.25 0 "Compressor")
  (command "_.TEXT" "4.5,2.5" 0.25 0 "Reboiler A")
  (command "_.ZOOM" "E")
  (princ "\n绘制完成！请输入 Z 然后输入 E 查看全图。")
  (princ)
)