AutoLISP实现全图缩放后选7号色文本运行TTT命令的问题求助

故障根因定位 #

原代码的逻辑断点并非ssget函数使用错误，存在两个核心逻辑疏漏：

1. 代码中通过ssget "X"构建的符合条件的文本选择集，仅存储在局部变量ss的内存空间中，没有以任何形式传递给后续调用的C:TTT导出命令。
2. C:TTT本身是具备交互逻辑的自定义导出函数，内部预置了手动选择文本的交互流程——它不会自动读取其他代码创建的独立选择集，检测不到可直接使用的选中对象时，就会中断自动流程，弹出手动选择目标文本的提示。

注意：AutoLISP中的选择集是独立的内存对象，不同函数、命令之间不会自动共享选择集内容，必须通过显式传递的方式跨环节使用。

针对性优化方案 #

• 修正选择集传递逻辑：不要直接以函数调用形式运行(C:TTT)，需要通过CAD命令流的交互规则，把提前构建好的选择集作为TTT命令的输入参数传入，跳过内部的手动选择交互步骤。
• 补全空判断反馈：当全图检索不到符合条件的文本对象时，给出明确弹窗提示，避免无反馈的流程中断。
• 规范程序收尾：在流程最后添加无返回值的(princ)语句，避免命令行输出多余的函数返回值，保持CAD命令行状态干净。

优化后可直接运行的参考代码 #

(defun C:123 (/ ss)
  ;; 执行全图缩放至范围
  (command "_.Zoom" "E")
  ;; 全图范围检索：匹配所有文本类对象（单行/多行/属性文本）、对象本身颜色为7
  (setq ss (ssget "X" '((0 . "*TEXT")(62 . 7))))
  (if ss
    (progn
      ;; 按命令流启动TTT，传入预先构建的选择集，空字符串回车结束选择环节
      (command "_.TTT" ss "")
      ;; 流程结束释放选择集内存
      (setq ss nil)
    )
    (alert "当前图纸范围内未检索到颜色为7的文本对象")
  )
  ;; 规范退出，无多余命令行输出
  (princ)
)

适配调整说明 #

• 如果你的C:TTT是支持接收外部选择集作为入参的封装函数，可将(command "_.TTT" ss "")替换为直接传参的函数调用写法(C:TTT ss)，匹配函数的入参规则即可。
• 过滤条件中的"*TEXT"为通配匹配规则，可覆盖单行文本、多行文本、属性定义、属性参照等所有文本类对象；如果仅需要匹配单行文本，可将组码值修改为"TEXT"缩小筛选范围。
• 过滤条件(62 . 7)仅匹配对象本身被显式设置为7号色的文本；如果需要匹配随层显示为7号色的文本，需要额外补充0层、随层颜色值的匹配规则，避免漏选。

内容的提问来源于stack exchange，提问作者Nick24