社区 › AutoLISP/Visual LISP 编程技术 › 各位大神，已经选好了文字，后如何输入tt，把这些文字连接到一点

ssyfeng 发表于 2023-8-20 09:43:13

可能是这个意思吧

664571221 发表于 2023-8-20 09:57:10

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

是的是的就是这个意思

664571221 发表于 2023-8-20 10:18:57

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

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

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

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

    )
)
(princ)
)

664571221 发表于 2023-8-26 14:11:23

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


谢谢大神...

查看完整版本: 各位大神，已经选好了文字，后如何输入tt，把这些文字连接到一点