双击属性块直接编辑属性文字

KO你 · 发表于 2022-11-24 10:21:51

快捷键 ed 编辑文字与标注（再加属性块文字）
(defun c:ed ()(if (vl-cmdf "textedit")(vl-cmdf "ddedit")))
楼主，要怎样才能把"textedit"和"ddedit"命令加进去，遇到文字或标注就进行这两个命令，遇到属性块就运行楼主的程序，做到所有文字通用可好。这只是我的一个想法

ZJKUSO · 发表于 2022-11-25 10:22:48

本帖最后由 ZJKUSO 于 2022-11-25 10:37 编辑

CAD2006测试不行，无法修改，命令也失效
2010上测试很好用，可惜常用工具只支持到2006。。这么好的功能用不上

ZJKUSO · 发表于 2022-11-25 19:59:50

实际上只是改了显示文字，并没有修改属性的值

cxix64 · 发表于 2023-3-16 01:40:35

这个好下载备用

qazxswk · 发表于 2023-3-16 02:38:48

看图吧。把宏那里改为^C^C_ATTIPEDIT

sfzyr · 发表于 2023-10-29 10:09:44

不知道是不是版本问题，双击是调用了attrib，但是返回不了鼠标点。所以pt总是nil

sfzyr · 发表于 2023-11-3 23:21:32

这个能否通过lisp vlisp来实现自动添加或者修改

sfzyr · 发表于 2023-12-4 02:18:01

sfzyr 发表于 2023-10-29 10:09
不知道是不是版本问题，双击是调用了attrib，但是返回不了鼠标点。所以pt总是nil

(setq pt (cadr (nth 3 (car (ssnamex ss 0))))) ;双击选择对象时，ssnamex返回的对象无点：((0 <图元名: 2124f6e6d90> 1))。只有点选时才有点。即先运行命令，在点选。所以，在PT为nil 而SS又选择了对象，则可以取“lastpoint”的值来解决这个问题。(setq pt (getvar "lastpoint"))

sfzyr · 发表于 2023-12-4 02:19:38

qazxswk 发表于 2023-3-16 02:38
看图吧。把宏那里改为^C^C_ATTIPEDIT

这个双击的编辑，能否通过程序自动添加，而不通过编辑CUI界面来实现？

Hope_day · 发表于 2023-12-4 09:36:51

qazxswk 发表于 2023-3-16 02:38
看图吧。把宏那里改为^C^C_ATTIPEDIT

其实也是"三“击

账号		自动登录	找回密码
密码			注册

[经验] 双击属性块直接编辑属性文字

本帖子中包含更多资源