插入时旋转块

aloy · 发表于 2022-7-5 17:06:05

大家好，

我有一系列的线路从一端连接到另一端。我想做两件事：

1）在每条直线中心附近的垂直平分线上放置一个文本，给出直线的长度。

2）在与该线对齐的每条线的中心插入一个块（箭头）。

我可以做第二个，但第一个不适用于以下情况，无论我用什么角度来代替0，
块以相同的原始旋转显示。

copy

 
;(setq plst1(list pt pt1 alfa dis))
;(setq plist(cons plst1 plist))
(defun draw1()
 (mapcar '(lambda(a) (command "_insert" "arrow" (car a) 1 1 0)) plist)
 (mapcar '(lambda(a) (command "_text" "_non"(car a) 0.6 (* (caddr a) 57.3) (rtos (cadddr a) 2 2))) plist)
 
(princ)
)

有办法解决这个问题吗？。

提前感谢。

芦荟

Tharwat · 发表于 2022-7-5 17:28:17

你好

为了对齐块，我们应该知道块的旋转。

如果你能上传一张显示结果的样本图，那将非常有帮助。

David Bethel · 发表于 2022-7-5 17:50:44

我建议查看（entmake）箭头插入

copy


[color=#8b4513];|[/color]
 Assuming :
   The BLOCK [color=#2f4f4f]"ARROW"[/color] exists in the current drawing
   The arrow direction points 0 degrees X axis WCS
   sp = Start Point
   ep = End Point
|[color=#8b4513];[/color]
 [b][color=BLACK]([/color][/b]entmake [b][color=FUCHSIA]([/color][/b]list [b][color=NAVY]([/color][/b]cons 0 [color=#2f4f4f]"INSERT"[/color][b][color=NAVY])[/color][/b]
                [b][color=NAVY]([/color][/b]cons 2 [color=#2f4f4f]"ARROW"[/color][b][color=NAVY])[/color][/b]
                [b][color=NAVY]([/color][/b]cons 10 [b][color=MAROON]([/color][/b]mapcar '[b][color=GREEN]([/color][/b]lambda [b][color=BLUE]([/color][/b]a b[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]* [b][color=RED]([/color][/b]+ a b[b][color=RED])[/color][/b] 0.5[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] sp ep[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
                [b][color=NAVY]([/color][/b]cons 50 [b][color=MAROON]([/color][/b]angle sp ep[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]