修改此块属性Te

Elly26 · 发表于 2022-7-5 17:55:51

我有一个在线的Lisp，当一个块的属性文本处于一个角度时，它会旋转，使其为0*C。

我想知道我需要添加什么，所以它对“属性2”和“属性3”也做同样的事情。代码是：

---

（princ“\n从AROT开始”）
（定义c:arot（）
（命令“\u UNDO”“\u BE”）
（princ“\n选择要旋转属性的块：”）
（setq计数0）
（setq Bset（ssget’（（0。“插入”）（66.1）））
（setq Bnum（sslength Bset））
（重复Bnum
（setq Ename（ssname Bset Count）
Att1（entnext Ename）
Att2（entnext Att1）
A1dat（entget Att1）
A2dat（entget Att2）
IP_Bk（cdr（assoc 10（entget Ename）））
IP_Att1（cdr（assoc 11 A1dat））
AttOff（距离IP\U Bk IP\U Att1）
AttPt（mapcar’+IP\U Bk（列表0.0 AttOff 0.0））
N_Att1（subst’（50.0.0）（assoc 50 A1dat）A1dat）
N\u Att1（subst（cons 11 AttPt）（assoc 11 N\u Att1）N\u Att1）
N_Att2（subst’（50.0.0）（assoc 50 A2dat）A2dat）
（entmod N_Att1）
（entmod N_Att2）
（entupd Ename）
（setq计数（1+计数））
)
（命令“\u UNDO”“\u END”）
（普林斯）
)

----

任何帮助都将不胜感激

Elly26 · 发表于 2022-7-5 18:02:44

请帮我一把

Tharwat · 发表于 2022-7-5 18:08:42

首先修改您的第一篇帖子，以获取内代码标签中的代码。

其次，从你发布的代码中解释你对程序的需求，如果一个带有前后示例的示例绘图会有更好的帮助，并且有时会直截了当。

Elly26 · 发表于 2022-7-5 18:14:11

对不起，塔瓦，你能解释一下你的第一句话吗？

当我使用“旋转”命令旋转块时，属性文本也会旋转。该命令使第一个属性返回到法线旋转（0）。我想让所有属性都用命令完成。

Tharwat · 发表于 2022-7-5 18:19:29

我的意思是代码必须包装在代码标签中，看看本页底部，特别是快速回复中的图案填充符号，将鼠标放在上面并阅读工具提示。

试试这个未经测试的程序，让我知道；

copy


(defun c:RotbackAtts (/ sel )
 ;; Tharwat 15.Mar.2016 ;;
 (princ "\nSelect attributed Blocks to set angle for attributes to zero degree.")
 (if (setq sel (ssget "_:L" '((0 . "INSERT")(66 . 1))))
   ((lambda ( i / obj )
      (while (setq obj (ssname sel (setq i (1+ i))))
        (mapcar '(lambda (a) (vla-put-rotation a 0.)) (vlax-invoke (vlax-ename->vla-object obj) 'getAttributes))
        )
      )
     -1
     )
   )
 (princ)
 )(vl-load-com)

Elly26 · 发表于 2022-7-5 18:21:36

copy

[/code]
（defun c:RotbackAtts（/sel）；；塔尔瓦特15。2016年3月；；（princ“\n选择属性块以将属性的角度设置为零度。”）（if（setq sel（ssget“_：L”'（（0。“INSERT”）（66.1）））（（lambda（i/obj）（while（setq obj（ssname sel（setq i（1+i））））（mapcar）（lambda（a）（vla put rotation a 0.））（vlax invoke（vlax ename->vla object obj）“getAttributes”））-1）（princ））（vl load com）
[code]