楼主能传我一个源码，<a href="mailto:zhaozwf@qq.com">zhaozwf@qq.com</a>，谢谢！！
本帖最后由 作者 于 2008-11-29 6:03:44 编辑 <br /><br /> <p>感谢。好东西</p><p>---------------------------------------------</p><p>在CAD2008下发现以下问题（可能在其它版本上也存在）：</p><p>1、单行文本如果选了“转属性”，以后的所有单行文本编辑都会自动变成是“转属性”的（但前面的小方框没有打上勾）</p><p>2、尺寸标注的“注释”里面的文字样式无法修改，改了后会出错且程序无法正常推出，要按ESC才可推出，提示：Command: _.ai_propchk <Bad Entity name: 7EFA1718></p><p>--------------------------------------</p><p></p><p>高手，能否提供源码拜读一下？可以的话，非常感激！</p><p><a href="mailto:arken@126.com">arken@126.com</a></p><p>谢谢</p>
确实有问题,我这段时间工作较忙,过段时间我会推出修正版
本帖最后由 作者 于 2008-12-3 18:14:32 编辑 <br /><br /> <p>82楼的问题我在acadr2004及2006下也都有遇到！</p><p>收到楼主的源码，万分感谢，自己折腾了下，已能在天正建筑7.5下自动加载实现双击acad实体</p><p>仿r14的编辑，如下图：</p><p></p><p>但双击文字不能出现仿r14的编辑，特别不喜欢天正建筑文字的在位编辑方式，楼主知不知道</p><p>怎么关掉天正建筑文字的在位编辑而改用仿r14的编辑，如下图：</p><p> </p><p>在纯 acad2004中双击文字也不能出现仿r14的编辑，不喜欢2004文字的自带编辑方式，我想要</p><p>改也是从双击反器下手，楼主能不能帮忙该改改，如下图：</p><p></p><p>用命令可以调出仿r14的编辑，如下图：</p><p></p><p></p>
<p>楼主的单行文字对齐功能实际操作起来比较复杂，贱人工具箱中的功能很实用，</p><p>能够整合进来就最好了，如下图：</p>
本帖最后由 作者 于 2008-12-8 16:16:00 编辑
4.41版本已经推出，修正了网友artken发现的缺陷，添加圆画内接外切多边形的功能。
关于xiaoyingzi双击部分实体时不弹出快捷对话框,而一律弹出特性对话框的问题，
可按要求修改Plug-Ins-function.LSP的这段程序，修改后编译成Plug-Ins-function.fas文件也可不编译直接删除Plug-Ins-function.fas
或者参考仿r14最到位的双击改属性ddmodify程序，谁能让它更完美;;;双击对象即可启动“编辑特性”命令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)
)
)
)双击和按按钮弹出的对话框是不完全一样的，[建议添加特性按钮,添加按钮方法...]关于单行文字对齐功能：
我特性附加功能本着简洁实用的原则，我不会为一个无足轻重的选项编写大量程序，否则主次不分。建议需要高级应用的功能单独开发程序命令，像贱人工具箱那样。
<p>嗯。不错，没想到这么快就修正了</p><p></p><p>能否发源码给我。先谢谢了</p><p>邮箱是 arken@126.com</p>
<p><strong><font color="#dd6d22">非常不错的程序，我来得晚了，不知道还能不能发给我一份完整的程序源代码，我的电子邮箱是：</font></strong><a href="mailto:jxphklibin@126.com"><strong><font color="#dd6d22">jxphklibin@126.com</font></strong></a><strong><font color="#dd6d22"> 或者 </font></strong><a href="mailto:2463106@QQ.com"><strong><font color="#dd6d22">2463106@QQ.com</font></strong></a></p><p><strong><font color="#dd6d22">非常感谢！！！！</font></strong></p>
头像怎么都不能修改了啊？奇怪了
<p>楼主 这么多的回帖 大家也都提出了大家在使用中的BUG 有些问题可能已经解决 有些还在测试 我现在不知该下载些什么才是最后的完整的版本 楼主可否抽空汇总一下 把这程序完善起来 这程序在我看来确实是很实用 也很“牛”的楼主确实是一个高人啊！！本人在此先谢了!!!!</p><p> </p>