【经典】4.51极速版特性工具，新增公差、动态填充及线型、铁路功能，太多了无法列举

zhaozwf

楼主能传我一个源码，zhaozwf@qq.com，谢谢！！

artken

感谢。好东西

---------------------------------------------

在CAD2008下发现以下问题（可能在其它版本上也存在）：

1、单行文本如果选了“转属性”，以后的所有单行文本编辑都会自动变成是“转属性”的（但前面的小方框没有打上勾）

2、尺寸标注的“注释”里面的文字样式无法修改，改了后会出错且程序无法正常推出，要按ESC才可推出，提示：Command: _.ai_propchk <Bad Entity name: 7EFA1718>

--------------------------------------

高手，能否提供源码拜读一下？可以的话，非常感激！

arken@126.com

谢谢

fawn_lgc

确实有问题,我这段时间工作较忙,过段时间我会推出修正版

xiaoyingzi

82楼的问题我在acadr2004及2006下也都有遇到！

收到楼主的源码，万分感谢，自己折腾了下，已能在天正建筑7.5下自动加载实现双击acad实体

仿r14的编辑，如下图：

但双击文字不能出现仿r14的编辑，特别不喜欢天正建筑文字的在位编辑方式，楼主知不知道

怎么关掉天正建筑文字的在位编辑而改用仿r14的编辑，如下图：

 

在纯 acad2004中双击文字也不能出现仿r14的编辑，不喜欢2004文字的自带编辑方式，我想要

改也是从双击反器下手，楼主能不能帮忙该改改，如下图：

用命令可以调出仿r14的编辑，如下图：

xiaoyingzi

楼主的单行文字对齐功能实际操作起来比较复杂，贱人工具箱中的功能很实用，

能够整合进来就最好了，如下图：

fawn_lgc

4.41版本已经推出，修正了网友artken发现的缺陷，添加圆画内接外切多边形的功能。
关于xiaoyingzi双击部分实体时不弹出快捷对话框,而一律弹出特性对话框的问题，
可按要求修改Plug-Ins-function.LSP的这段程序，修改后编译成Plug-Ins-function.fas文件也可不编译直接删除Plug-Ins-function.fas
或者参考[size=+0]仿r14最到位的双击改属性ddmodify程序，谁能让它更完美

2. ;;;双击对象即可启动“编辑特性”命令dblclkename
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 (last (cadddr owner)))
9.   (if dblclkename
10.     (progn
11.       (setq dblclk_etype(strcase (vlax-get (vlax-ename->vla-object dblclkename)"objectname")))
12.       (if owner(setq dblclkename owner))
13.       (setq dblclk_etype(strcase (vlax-get (vlax-ename->vla-object dblclkename)"objectname")))
14.       (setq dblclk_cmd (cond;;可有选择删除下列程序，双击将不弹出快捷对话框
15.     ((= dblclk_etype "ACDBATTRIBUTEDEFINITION")"_.DDEDIT  ");;注释 可删除
16.     ((= dblclk_etype "ACDBATTRIBUTE")"_.attedit (princ dblclkename) ");;属性 可删除
17.     ((or(= dblclk_etype "ACDBTEXT")(= dblclk_etype "ACDBMTEXT"))"_.DDEDIT  ");;文本 可删除
18.     ((= dblclk_etype "ACDBHATCH")"_.HATCHEDIT ");;填充 可删除
19.     ((= dblclk_etype "ACDBMLINE")"_.MLEDIT ");;多线 可删除
20.     ((= dblclk_etype "ACDBRASTERIMAGE") "_.IMAGEADJUST ");;图像 可删除
21.     ((= dblclk_etype "ACDBBLOCKREFERENCE") "_.REFEDIT ");;外部参照 可删除
22.     ((= dblclk_etype "ACDBTABLE")"_.properties ")
23.     (t (if(not c:ai_propchk)(load "ai_propchk" nil))"_.ai_propchk ")
24.     )
25.      )
26.       (vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) dblclk_cmd)
27.       )
28.     )
29.   )

;;;双击对象即可启动“编辑特性”命令dblclkename ;;;特别支持：网友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 (last (cadddr owner)))   (if dblclkename     (progn       (setq dblclk_etype(strcase (vlax-get (vlax-ename->vla-object dblclkename)"objectname")))       (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)       )     )   )

双击和按按钮弹出的对话框是不完全一样的，[建议添加特性按钮,添加按钮方法...]关于单行文字对齐功能：
我特性附加功能本着简洁实用的原则，我不会为一个无足轻重的选项编写大量程序，否则主次不分。建议需要高级应用的功能单独开发程序命令，像贱人工具箱那样。

artken

嗯。不错，没想到这么快就修正了

能否发源码给我。先谢谢了

邮箱是  arken@126.com

jxphklibin

非常不错的程序，我来得晚了，不知道还能不能发给我一份完整的程序源代码，我的电子邮箱是：jxphklibin@126.com 或者 2463106@QQ.com

非常感谢！！！！

jxphklibin

头像怎么都不能修改了啊？奇怪了

azhens

楼主  这么多的回帖  大家也都提出了大家在使用中的BUG  有些问题可能已经解决  有些还在测试  我现在不知该下载些什么才是最后的完整的版本  楼主可否抽空汇总一下 把这程序完善起来  这程序在我看来确实是很实用 也很“牛”的楼主确实是一个高人啊！！本人在此先谢了!!!!