womrli 发表于 2020-12-12 17:31:10

（求助）entsel随意点选或者Esc取消，直接输出“结果”

(setq t1 (entsel "\n请选择文字：")) (setq t1 (entget (car t1)))
........
(princ "结果")

随意点选非文字图元或者Esc取消，下方的文字处理程序不执行，直接输出“结果”，求助大佬给看看



wzg356 发表于 2020-12-12 22:12:51

本帖最后由 wzg356 于 2020-12-12 22:14 编辑

(if(and(setq t1(car(entsel "\n请选择文字：")))
          (wcmatch (cdr(assoc 0(entget t1))) "*TEXT")
      )
      .....
      (princ "结果")
)
页: [1]
查看完整版本: （求助）entsel随意点选或者Esc取消，直接输出“结果”