快速选择并连线
下面是论坛上选择包含文字并连续的源码：(defun c:tt (/ n pt ss str)
(if (setq str (getstring "\n输入文字含有的字符:"))
(progn(setq str (strcat "*" str "*") n 0pt (getpoint "\n指定集合点:"))
(repeat (sslength (setq ss (ssget "X" (list '(0 . "*TEXT") (cons 1 str)))))
(entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 (cdr (assoc 10 (entget (ssname ss n))))) '(62 . 1)))
(setq n (+ n 1)))))(sssetfirst nil ss))
(setq n (+ n 1))
)
)
)
)
如何修改为：选择一个单行文字，有如下选项：选择同颜色的单行文字，选择同颜色同图层的单行文字，选择内容相同的单行文字，选择>=给定值(手输入)的单行文字 选择<=给定值(手输入)的单行文字选择介于A,B的单行文字(AB手输入 或者对话框填写)
页:
[1]