在定位点co上插入文本

Rooster · 发表于 2022-7-6 14:36:03

我想使用类似于“定位点”命令（该命令提供点的xyz）的命令，并用于提取y值并将该值作为文本插入单击的点。也可以在同一点插入一个块。

有谁能想到一个已经存在的Lisp程序可以做到这一点，如果没有，也许有一些善良的灵魂可以帮我一个？？

谢谢希望我已经解释清楚了。。。。。

fuccaro · 发表于 2022-7-6 14:39:41

你考虑过使用字段吗？

fuccaro · 发表于 2022-7-6 14:44:28

我只是给你发了一个旧帖子：http://www.cadtutor.net/forum/showthread.php?t=1738
这有帮助吗？

Rooster · 发表于 2022-7-6 14:47:26

不确定字段是否完全符合我的要求。我只想单击一个点，然后对于某些文本，显示该点的y值。只需点击一下

Lee Mac · 发表于 2022-7-6 14:49:05

也许吧：

copy


(defun c:ty  (/ pt)
 (while (setq pt (getpoint "\nSelect Point: "))
   (Make_Text pt (rtos (cadr pt)) 0.0))
 (princ))
(defun Make_Text  (pt val rot)
 (entmake (list '(0 . "TEXT")
                (cons 8 (getvar "CLAYER"))
                (cons 10 pt)
                (cons 40 (getvar "TEXTSIZE"))
                (cons 1 val)
                (cons 50 rot)
                (cons 7 (getvar "TEXTSTYLE"))
                '(71 . 0)
                '(72 . 1)
                '(73 . 1)
                (cons 11 pt))))

Rooster · 发表于 2022-7-6 14:54:01

谢谢李-这看起来很有希望。。。。如何控制文本的放置和对齐？而且我想把文本限制在小数点后2位。

Lee Mac · 发表于 2022-7-6 14:57:57

这应该解释：

copy


(defun c:ty  (/ pt)
 (while (setq pt (getpoint "\nSelect Point: "))
   (Make_Text pt (rtos (cadr pt) 2 2) 0.0))
 (princ))
(defun Make_Text  (pt val rot)
 (entmake (list '(0 . "TEXT")
                (cons 8 (getvar "CLAYER"))
                (cons 10 pt)
                (cons 40 (getvar "TEXTSIZE"))
                (cons 1 val)
                (cons 50 rot)
                (cons 7 (getvar "TEXTSTYLE"))
                '(71 . 0)
                '(72 . 1) ; 0= left 1=center 2=right
                '(73 . 1) ; 0= baseline 1=bottom 2=middle 3=top
                (cons 11 pt))))

Rooster · 发表于 2022-7-6 14:59:18

太好了，谢谢。对不起，这很痛苦，但我如何控制文字的高度和层次呢。此外，您编写的LISP会在每次单击时继续插入文本-我只想一次插入一个。你能在插入一段文字后结束命令吗？最后，是否也可以在同一命令内的同一点插入块？

Lee Mac · 发表于 2022-7-6 15:04:11

[code]（defun c:ty（/pt）（if（setq pt（getpoint“\n选择点：”）（Make\u Text pt（rtos（cadr pt）2 2）0.0））（princ））（defun Make\u Text（pt val rot）（entmake（list）（0。“Text”）（cons 8“0”）；

Rooster · 发表于 2022-7-6 15:07:38

块还没有名字-我们称它为“ept”。它只是一个简单的倒三角形，文本稍微向左偏移。

非常感谢你的帮助李

[编程交流] 在定位点co上插入文本

发表回复

精选推荐