单元格选择连接到字符串

mhupp · 发表于 2022-7-6 19:55:13

为了减少垃圾邮件，我想修改我的一个口齿不清。当前，对于每个选定的单元格，其发送命令+单元格。值转换为AutoCAD。
因此，如果我选择了5个单元格，它会运行命令5次。

我现在要做的是为所有选定的单元格发送一个命令。
（FT’（“cell1.value”“cell2.value”“cell3.value”“cell4.value”“cell5.value”））

我已经重写了lisp部分来处理这个问题。

copy


;;----------------------------------------------------------------------------;;
;; Find Text & Draw Line
(defun FT (lst / x txt SS PT)
  (vl-load-com)
  (setvar 'cmdecho 0)
  (setvar 'clayer "0")
  (foreach x lst
    (setq SS (ssget "_X" (list (cons 0 "*TEXT") (cons 1 (strcat "*" x "*")) (cons 410 (getvar 'ctab)))))
    (if (= SS nil)
      (princ (strcat "\n"" x "" Not Found"))
      (foreach txt (mapcar 'cadr (ssnamex SS))
        (Setq PT (cdr (assoc 11 (entget txt))))
        (vl-cmdf "_.Line" "_non" "0,0,0" "_non" PT "")
      )
    )
  )
  (setvar 'cmdecho 1)
  (princ)
)