各位大神，已经选好了文字，后如何输入tt，把这些文字连接到一点

ssyfeng

可能是这个意思吧

664571221

ssyfeng 发表于 2023-8-20 09:43
可能是这个意思吧

是的是的就是这个意思

664571221

技术工作室 发表于 2023-8-19 22:21
;;;首先感谢源码的大佬，忍不住还是修改了一下，不知能不能满足需要。
;;;生成line的函数
(defun c:dwlx( ...

大神你好，就是我已经选好，这里只要连线就行了，不用tt后再去选

jun353835273

2. (defun c:tt ( / ss i pt1 ent1 typeA )
   
3.   (setq ss (ssget '((0 . "*TEXT"))))
   
4.   (if ss
   
5.     (progn
   
6.       (setq i        0
   
7.             pt1        (getpoint "\n指定定位点")
   
8.       )
   
9.       (repeat (sslength ss)
   
10.         (setq ent1  (entget (ssname ss i))
    
11.               typeA (cdr (assoc 1 ent1))
    
12.               i            (1+ i)
    
13.         )
    
14.         (entmake (list '(0 . "LINE")
    
15.                        (cons 8 "LX")
    
16.                        (assoc 10 ent1)
    
17.                        (cons 11 pt1)
    
18.                  )
    
19.         )
    
20.       )
    
21. 
    
22.     )
    
23.   )
    
24. (princ)
    
25. )

(defun c:tt ( / ss i pt1 ent1 typeA )<br />   (setq ss (ssget '((0 . "*TEXT")))) <br />   (if ss<br />     (progn<br />       (setq i        0<br />             pt1        (getpoint "\n指定定位点")<br />       )<br />       (repeat (sslength ss)<br />         (setq ent1  (entget (ssname ss i))<br />               typeA (cdr (assoc 1 ent1))<br />               i            (1+ i)<br />         )<br />         (entmake (list '(0 . "LINE")<br />                        (cons 8 "LX")<br />                        (assoc 10 ent1)<br />                        (cons 11 pt1)<br />                  )<br />         )<br />       )<br /> <br />     )<br />   )<br /> (princ)<br /> )

664571221

jun353835273 发表于 2023-8-21 09:39

谢谢大神...