仿r14最到位的双击改属性ddmodify程序，谁能让它更完美

thms

程序出处未知

对于以前用r14的老人们来说，双击改属性的对话框是很经典的，改的最多的是文字和标注

但cad到了高版本后，就变成特性对话框了，当文字很长的时候，那个框内的文字显示只有一点点，用起来很不爽

于是很多人怀念r14的那个双击改属性的方式

这个程序好像是仿r14的双击改属性仿得最像的，在2002和2004版本我试用过，都能用

该程序改文本的功能r14基本相同，如下图：

唯一美中不足的是，改标注时只能改标注的数值，而没法改标注的其他特性，如下图：

几何，格式等特性都是灰的，没法修改，谁能把程序完善一下，使这些特性也能修改呢？

程序在附件里，是vlx格式，加载后，对着文字或标注双击鼠标即会跳出上述改属性对话框

另外，我注意到，在本版fawn_lgc的帖子http://bbs.mjtd.com/forum.php?mod=viewthread&tid=61313中

他写的程序也可以改属性，而且他的弹出对话框里可以修改标注的其他特性，但遗憾的是它是用lisp程序写的，每次使用都要先输命令才行，没有直接双击就能修改来的快速方便

谁能把这两个程序的优点集合一下呢。。。

fawn_lgc

可修改Plug-Ins-function.LSP为如下：

2. ;;;双击对象即可启动“编辑特性”命令
3. ;;;特别支持：网友8661994
4. ;;; Double Click Reactor
5. (defun dblclk-edit (dblclk_point / dblclkename owner dblclk_etype dblclk_cmd)
6.   (setq owner (nentselp (trans (car dblclk_point) 0 1));;指定点来选择对象;;"\r"
7. dblclkename (car owner)
8. owner (car (cadddr (nentselp (trans (car dblclk_point) 0 1)))))
9.   (if dblclkename
10.     (progn
11.       (if owner(setq dblclkename owner))
12.       (setq dblclk_etype(strcase (vlax-get (vlax-ename->vla-object dblclkename)"objectname")))
13.       (setq dblclk_cmd (cond;;可有选择删除下列程序，双击将不弹出快捷对话框
14.     ((= dblclk_etype "ACDBATTRIBUTEDEFINITION")"_.DDEDIT  ");;注释 可删除
15.     ((= dblclk_etype "ACDBATTRIBUTE")"_.attedit (princ dblclkename) ");;属性 可删除
16.     ((or(= dblclk_etype "ACDBTEXT")(= dblclk_etype "ACDBMTEXT"))"_.DDEDIT  ");;文本 可删除
17.     ((= dblclk_etype "ACDBHATCH")"_.HATCHEDIT ");;填充 可删除
18.     ((= dblclk_etype "ACDBMLINE")"_.MLEDIT ");;多线 可删除
19.     ((= dblclk_etype "ACDBRASTERIMAGE") "_.IMAGEADJUST ");;图像 可删除
20.     ((= dblclk_etype "ACDBBLOCKREFERENCE") "_.REFEDIT ");;外部参照 可删除
21.     ((= dblclk_etype "ACDBTABLE")"_.properties ")
22.     (t (if(not c:ai_propchk)(load "ai_propchk" nil))"_.ai_propchk ")
23.     )
24.      )
25.       (vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) dblclk_cmd)
26.       )
27.     )
28.   )

;;;双击对象即可启动“编辑特性”命令 ;;;特别支持：网友8661994 ;;; Double Click Reactor (defun dblclk-edit (dblclk_point / dblclkename owner dblclk_etype dblclk_cmd)   (setq owner (nentselp (trans (car dblclk_point) 0 1));;指定点来选择对象;;"\r" dblclkename (car owner) owner (car (cadddr (nentselp (trans (car dblclk_point) 0 1)))))   (if dblclkename     (progn       (if owner(setq dblclkename owner))       (setq dblclk_etype(strcase (vlax-get (vlax-ename->vla-object dblclkename)"objectname")))       (setq dblclk_cmd (cond;;可有选择删除下列程序，双击将不弹出快捷对话框     ((= dblclk_etype "ACDBATTRIBUTEDEFINITION")"_.DDEDIT  ");;注释 可删除     ((= dblclk_etype "ACDBATTRIBUTE")"_.attedit (princ dblclkename) ");;属性 可删除     ((or(= dblclk_etype "ACDBTEXT")(= dblclk_etype "ACDBMTEXT"))"_.DDEDIT  ");;文本 可删除     ((= dblclk_etype "ACDBHATCH")"_.HATCHEDIT ");;填充 可删除     ((= dblclk_etype "ACDBMLINE")"_.MLEDIT ");;多线 可删除     ((= dblclk_etype "ACDBRASTERIMAGE") "_.IMAGEADJUST ");;图像 可删除     ((= dblclk_etype "ACDBBLOCKREFERENCE") "_.REFEDIT ");;外部参照 可删除     ((= dblclk_etype "ACDBTABLE")"_.properties ")     (t (if(not c:ai_propchk)(load "ai_propchk" nil))"_.ai_propchk ")     )      )       (vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) dblclk_cmd)       )     )   )

thms

fawn_lgc发表于2008-8-30 16:31:00可修改Plug-Ins-function.LSP为如下：;;;双击对象即可启动“编辑特性”命令;;;特别支持：网友8661994;;; Double Click Reactor(defun dblclk-edit (dblclk_point / dblclkename owner dblclk_e

1. n你的方法还是无法实现双击改标注的属性。。。。。。。

复制代码

fawn_lgc

标注的属性是指什么,

是指[几何][格式][注解]几个按钮里的内容吗?

如果是,请安装我的完整版本,并彻底卸载你原来的,我的版本只能在R2000以上运行

也可以找台干净的电脑试试

azhens

4楼楼主  你的完整版本在哪里有的下  给个地址  我的也是出现上述的问题  双击改标注出现的对话框里 [几何][格式][注解]几个按钮是灰的无法修改  先谢谢了！！！！

fawn_lgc

 

[经典]4.41版仿R14特性工具,弧形文本,正弦曲线,轴断面,双折....

彻底卸载你原来的版本，也可以找台干净的电脑试试

azhens

不知你那个ai_propchk的按钮是怎么添加的  我不会啊  请指教!!!

fawn_lgc

在任意按钮处按右键－>[自定义...]

chyzy505

好资料

是梦寐以求的界面.

这个程序是不错.

唯一与原CAD不同的是.如果选择多线段,是无法像以前那样处理的.

chyzy505

还要说一下.

在 2002 以上版本是不能用的.

如 2004.

见到楼主在8楼写下关于修改原有属性设置的问题.

我来说几句.其实不要改原来改属性的资料.

直接定义个按键.

按键 关联的宏里设置为:^C^Cddmodify 就可以了.

但别不记得每次启动都加载,不然是没有效果的