wwchlncad 发表于 2019-11-1 07:34:50

我是来学习的:handshake

渠辉 发表于 2019-11-1 08:20:10

学习学习学习

zazhz123 发表于 2025-1-26 15:26:39

ganxie感谢，可用，如果能改成点选图块名更好了

xyp1964 发表于 2025-1-26 16:25:29

zazhz123 发表于 2025-1-26 15:26
ganxie感谢，可用，如果能改成点选图块名更好了

(defun c:tt ()
"文字插入点插入图块"
(if (and (princ "\n选择文字: ")
         (setq ss (ssget '((0 . "TEXT"))))
         (setq tk (cdr (assoc 2 (entget (car (entsel "\n选择图块: "))))))
      )
    (progn
      (setq i -1)
      (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq p0 (cdr (assoc 10 (entget s1))))
      (command "-INSERT" tk p0 1 1 0)
      )
    )
)
(princ)
)
页: 1 [2]
查看完整版本: 批量在指定文字的位置处插块，求帮忙啊，急用！！