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

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

(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 "结果")
)

账号		自动登录	找回密码
密码			注册

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

浏览过的版块