社区 › Auto Lisp › 在文字输入处插入acad点

stevesfr 发表于 2022-7-6 09:13:30

在文字输入处插入acad点

这可以通过lisp在全球范围内实现吗？假设我在一个图形中有许多短文本（在不同的Z值下）。如何在这些短文本的插入点插入Acad点。我想把所有Acad点放在一个独特的层上，并在全球范围内进行。。。砰！
TIA寻找线索。。。
尝试查看LM point manager，但没有解决此问题。
史蒂夫

Tiger 发表于 2022-7-6 09:27:15

这条线怎么样？
 
（不要理会啤酒谈话）

David Bethel 发表于 2022-7-6 09:38:08

史提夫，
 
我将从以下内容开始：
 

(defun c:txt2pt (/ ss en ed p10 p11 ip)
(and (setq ss (ssget "X" '((0 . "TEXT"))));;;ADD FILTERS AS NEEDED
      (while (setq en (ssname ss 0))         ;;;WHILE THERE IS A PICKSET
             (setq ed (entget en)            ;;;GET THE 1ST ENAME
                  p10 (cdr (assoc 10 ed))    ;;;BASE POINT
                  p11 (cdr (assoc 11 ed))    ;;;JUSTIFY POINT
                   ip (if (or (> (cdr (assoc 72 ed)) 0)
                              (> (cdr (assoc 73 ed)) 0))
                        p11 p10))          ;;;DETERMINE THE INSERT POINT
             (entmake (list (cons 0 "POINT") ;;;ENTMAKE THE POINT
                            (assoc 8 ed)
                            (cons 10 (trans ip en 0))
                            (assoc 210 ed)))
         ; (entdel en)                     ;;;UNCOMMENT TO ERASE TEXT
             (ssdel en ss)))               ;;;STEPS THRU THE PICKSET
(prin1))

 
你需要根据自己的需要调整它
将（assoc 8 ed）更改为（cons 8“YourLayerName”）
 
此外，这只涉及简单文本。
 
HTH-David

stevesfr 发表于 2022-7-6 09:53:33

 
老虎-正是我们需要的。。。。。。。。谢谢，还有很多啤酒！！！（hic）
也要感谢李的出处。
史蒂夫

stevesfr 发表于 2022-7-6 10:07:38

谢谢你，大卫，很好用。
史蒂夫

BlackBox 发表于 2022-7-6 10:23:29

 
 
呵呵！？什么我错过了啤酒谈话。。。
 
Meh-“她不应该被命名”不得不用“清醒”这个词来打破喧嚣。
 
不完全是独立日前我想读的东西。英雄联盟
 
...非常感谢黛比·唐纳。
 
http://www.gearslutz.com/board/attachments/so-much-gear-so-little-time/208736d1292371677-petition-maxell-reintroduce-reel-reel-tape-famousdc-debbie-downer-supreme-court.jpg
 
（^^对不起，我不能错过一个为SNL制作无耻插件的机会-EHEHEHEHE ^^）
 

查看完整版本: 在文字输入处插入acad点