如何旋转和重新定位e

CesarA · 发表于 2022-7-5 18:12:07

我有以下几点

        ((some if condition)
         (progn
             (prin1 "diferente de 0 confirmado")
                            (setq 
                          newangle '(50 . -4.71239)
                               correcaoalturav (/ (- 20 conversaodim) 2)
                               contas (- 25.308 correcaoalturav)
                               newposition (cons 10 (list (- (cadr position) contas ) (- (caddr position) mtextwidth )))
                        substituteangle (subst newangle (assoc 50 enty) enty)
                               substituteposition (subst newposition position enty)
        )
           [b]  (entmod substituteangle)
                  (entmod substituteposition)[/b]
          )

显然，它应该旋转我的文本，并将其放置在其他坐标系中。我试着对每一个entmod进行评论，他确实做到了。然而，如果我这样放置entmod，autocad将只执行最后一个操作，这意味着，他只重新定位我的文本。如果我只保留（entmod替换角度），他将正确旋转文本。这不是我所期待的问题，我该怎么办？我可以将这两个更改合并到一个变量中吗？

CesarA · 发表于 2022-7-5 18:34:15

没关系，我明白了，我应该按以下方式做：

copy

                              ... (previous code)...
                               substituteangle (subst newangle (assoc 50 enty) enty)
                               substituteposition (subst newposition position [b]substituteangle[/b])
        )
            
                  (entmod substituteposition)

这种语言似乎比实际更容易

David Bethel · 发表于 2022-7-5 18:41:50

虽然我没有完全理解您的所有代码，但这是在一个调用中输入多个组所需的基本顺序

copy


 [b][color=BLACK]([/color][/b]if [b][color=FUCHSIA]([/color][/b]setq en [b][color=NAVY]([/color][/b]ssname [b][color=MAROON]([/color][/b]ssget [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"INSERT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] 0[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
     [b][color=FUCHSIA]([/color][/b]progn
        [b][color=NAVY]([/color][/b]setq ed [b][color=MAROON]([/color][/b]entget en[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq np [b][color=MAROON]([/color][/b]list 10 10 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq an -4.71239[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq ed [b][color=MAROON]([/color][/b]subst [b][color=GREEN]([/color][/b]cons 10 np[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]assoc 10 ed[b][color=GREEN])[/color][/b] ed[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq ed [b][color=MAROON]([/color][/b]subst [b][color=GREEN]([/color][/b]cons 50 an[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]assoc 50 ed[b][color=GREEN])[/color][/b] ed[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]entmod ed[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-大卫

CesarA · 发表于 2022-7-5 18:54:41

谢谢你，大卫，你是说我能做到？

copy

                           
                                    (setq 
                                       [b]substituteangle[/b] (subst newangle (assoc 50 enty) enty)
                                       [b]substituteangle [/b](subst newposition position enty)  
        )
            
                  (entmod substituteangle)

? 他会做两个替补吗？我想他会用第二个代替第一个。。。

David Bethel · 发表于 2022-7-5 19:03:01

您正在更改变量enty，然后第二次重写它

setq调用应与subst调用使用的变量名相同

您可以在调用（entmod）之前多次重新定义实体定义，如果这是您的要求的话？

通常使用use（subst）和（append）编辑定义。使用（cons）可能会导致问题，因为DXF组0必须是列表中的第一个组。

我们很多人使用“ed”或“edef”作为实体定义的变量名

如果代码整洁，AutoLISP可以非常人性化

hanhphuc · 发表于 2022-7-5 19:12:18

尝试替换enty变量。。

copy


(setq
[color="#006400"];; ...
;; ... [/color]
substituteangle (subst newangle (assoc 50 enty) enty)
substituteposition (subst newposition position [color="red"]substituteangle[/color]) [color="#006400"]; no more enty[/color]
);

[编程交流] 如何旋转和重新定位e

发表回复

精选推荐