[求助]：■我的程序错在哪里了■

zhuquanmao

我想先后选择图中上下两行文字 根据第一文字的第一个字母生成新的文本 新文本和所选择的第二文本合成新的文本并贴入剪贴板 当文字是单行文本时程序可以通过 当为属性文字时就不成 到底错在哪里了 请大家看看 谢谢

[PHP] ;;; 仪表符号
(defun c:test (/ ss lun lup cmd ent1 ent2 txt1cont
                 txt2cont
              )
(princ"\n<此程序根据流程图中选择的仪表功和位号将相应的仪表符号贴入剪贴板>")
  (setq lun (getvar "lunits"))
  (setq lup (getvar "luprec"))
  (setq cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq ent1 (cdr (entget (car (entsel "\n选择功能符号: ")))))
  (if (= (cdr (assoc 0 ent1)) "ADDEF")
    (setq txt1cont (cdr (assoc 2 ent1)))
    (setq txt1cont (cdr (assoc 1 ent1)))
  )
  (setq ent2 (cdr (entget (car (entsel "\n选择位号: ")))))
    (if (= (cdr (assoc 0 ent1)) "ADDEF")
    (setq txt2cont (cdr (assoc 2 ent2)))
    (setq txt2cont (cdr (assoc 1 ent2)))
  )
  (cond
    ((= (substr txt1cont 1 1) "P")
      (setq ss "PV-")
    )
    ((= (substr txt1cont 1 1) "T")
      (setq ss "TV-")
    )
    ((= (substr txt1cont 1 1) "F")
      (setq ss "FV-")
    )
    ((= (substr txt1cont 1 1) "L")
      (setq ss "LV-")
    )
    ((= (substr txt1cont 1 1) "H")
      (setq ss "HV-")
    )
    (nil t)
  )
  (xdrx_setclipboard (strcat ss txt2cont))
  (princ "\n<使用CTRL+V进行粘贴>")
  (princ)
)

[/PHP]