单元格选择连接到字符串
为了减少垃圾邮件，我想修改我的一个口齿不清。当前，对于每个选定的单元格，其发送命令+单元格。值转换为AutoCAD。因此，如果我选择了5个单元格，它会运行命令5次。
我现在要做的是为所有选定的单元格发送一个命令。
（FT’（“cell1.value”“cell2.value”“cell3.value”“cell4.value”“cell5.value”））
我已经重写了lisp部分来处理这个问题。
;;----------------------------------------------------------------------------;;
;; 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)
)
我有点困惑，你是说桌子上的牢房吗？lee mac有一个选择单元格的命中测试，因此可以在范围的开始-结束处运行两次，然后在表格中循环，拉出文本值并制作一个列表。 对不起，我没有解释。excel中的高亮显示单元格在那里有一个VBA，该VBA现在会将命令一次一个地发送到autocad，但希望将它们构建到列表中并发送一次。 未为AutoCAD列表设置im查找的所有内容。
它会更多（红、蓝、绿）
而不是“（“红”“蓝”“绿”）
我想通过牢房可能更容易。将一次一个值传递给CAD并构建列表，然后运行命令。 决定在找不到东西时发出警报而不是蓬普。
页:
[1]