(defun c:qq (/ D H_break)
  (setvar "OSMODE" 0)
  (setq D 1.89 H_break 15.0) ; 保持比例：D=1.89m, 绘图高度压缩

  ;; --- 1. 绘制精馏塔 (T101) ---
  ;; 塔底与折断线
  (command "_.RECTANG" "0,0" (list D 3.0))
  (command "_.PLINE" "0,3.0" (list (* D 0.25) 3.3) (list (* D 0.5) 2.7) (list (* D 0.75) 3.3) (list D 3.0) "")
  ;; 塔顶与折断线
  (command "_.RECTANG" (list 0 8.0) (list D 11.0))
  (command "_.PLINE" "0,8.0" (list (* D 0.25) 8.3) (list (* D 0.5) 7.7) (list (* D 0.75) 8.3) (list D 8.0) "")
  (command "_.ARC" "0,11.0" (list (/ D 2.0) 11.5) (list D 11.0))
  (command "_.TEXT" (list (/ D 3.0) 5.5) 0.3 0 "T101")

  ;; --- 2. 绘制热泵压缩机 (C101) ---
  (command "_.CIRCLE" "6,10.5" 0.6)
  (command "_.LINE" "5.4,10.5" "6.6,10.5" "")
  (command "_.LINE" "6,9.9" "6,11.1" "")
  ;; 绘制压力控制点 (PIC)
  (command "_.CIRCLE" "6,12.5" 0.3)
  (command "_.TEXT" "5.85,12.4" 0.15 0 "PIC")
  (command "_.LINE" "6,11.1" "6,12.2" "")

  ;; --- 3. 绘制热泵再沸器 (E101, 即换热器A) ---
  (command "_.CIRCLE" "6,1.5" 1.0)
  (command "_.LINE" "5,1.5" "7,1.5" "") ; 管程/壳程分界
  ;; 内部管束示意
  (command "_.PLINE" "5.5,1.8" "6,1.2" "6.5,1.8" "")
  (command "_.TEXT" "5.5,0.2" 0.25 0 "E101 (Heat Pump Reb)")

  ;; --- 4. 绘制回流泵 (P101) ---
  (command "_.CIRCLE" "-4,11.5" 0.4)
  (command "_.LINE" "-4.4,11.5" "-3.6,11.5" "")
  (command "_.LINE" "-4,11.1" "-4,11.9" "")
  (command "_.TEXT" "-4.5,10.5" 0.2 0 "P101A/B")

  ;; --- 5. 绘制核心管线与仪表 ---
  ;; 塔顶至压缩机 (含进气状态)
  (command "_.LINE" (list (/ D 2.0) 11.5) (list (/ D 2.0) 13.0) "6,13.0" "6,11.1" "")
  ;; 压缩机出口至换热器E101
  (command "_.LINE" "6,9.9" "6,2.5" "")
  ;; 仪表标注 (流量控制 FIC)
  (command "_.CIRCLE" "-2,12.5" 0.3)
  (command "_.TEXT" "-2.15,12.4" 0.15 0 "FIC")

  (command "_.ZOOM" "E")
  (princ "\n[工业级PFD框架已生成] 请手动添加阀门符号。")
  (princ)
)