[分享]：更新文字(LISP & DCL)

qjcpj

看超级会员“它山之石”传回的图片，说明是27楼主的AutoCAD 2004系统有问题，我想，卸载掉AutoCAD 2004后再重装也许会解决此错误吧！
另外我想向27楼主问一个问题，不好意思，因我刚注册XDCAD，怎样上传图片(就像你所发的图片)不清楚，你能指点一二吗！

武陵山人

最初由 qjcpj 发布
[B]本来我想在“DIMENSION”实体添加上下标文字选项(对话框)，“TEXT、MTEXT”实体用17楼楼主(武陵山人)提供的图片修改好后，再一并上传修改后的gxwz更新文字模块，不过最近白天“赶图”是忙得天昏地暗，晚上实在是没多少精力……[/B]

休息好才能工作好，对话框有时间再做。

最初由 qjcpj 发布
[B]怎样上传图片... [/B]

上传图片和上传附件一样的，都是用下面的“上传文件”。

它山之石

有几个问题：
　　1、不宜将块名改为随机数，而应该将原块名作为前缀，这样方便以后查找或处理。
　　2、选中块内文字后出现对话框，如果按“取消”还是会改块名，应该更正这个问题。
　　3、建议在对话框中将标注中的未修改的数值加＜＞示出（如未修改，显示＜1200＞，修改过的只显示1200，更新时将＜＞号过滤掉）。以方便查看是否对标注进行了修改，也算是一个附加的功能吧。
　　4、以下代码我注释掉程序也能运行（因我的CAD中（VER）出现错误。）。不知楼主这样会有什么问题吗？
[php]
;;;    (if        (and (= rz "") (wcmatch (ver) "Visual*"))
;;;      (setq rz (rtos (cdr (assoc '42 ent_dxf))))
;;;    ) ;_ 结束if
[/php]

qjcpj

多谢33楼楼主！
所提问题有几个我已意识到了，并已作了修改。以下是我对你提问题的答复：
1.程序中已将块名改为“原块名__随机数”。
2.选中块内文字后出现对话框，如果按“取消”会改块名；选标注实体之角度标注文字，未改动但按“确定”还是会将角度文字改为系统默认的弧度，这两个bug已修改。
3.33楼楼主所提选项3建议很好，我准备采纳并作手修改原程序。
4.屏蔽掉(ver)程序也能运行是我程序中有一段代码，如果(wcmatch (ver) "Visual*")不等于T，则按R14方式取标注子实元！
经查找资料，并且为了在标注实体中显示在不同units及ddim命令中设置单位及精度显示有误差的问题，我已将(ver)这一段屏蔽，并重修改了该部分源码，修改后的程序将在最近一到二天上传，欢迎大家对该程序多提宝贵意见！

它山之石

谢谢楼主采纳我的意见，并期待楼主能尽快更新程序。

bluesky1000

是啊，大家都等着了，这个程序非常实用。

qjcpj

清除了已知bug的更新文字模块gxwz，并增加了33楼楼主(它山之石)建议3的附加功能(33楼楼主说：......3、建议在对话框中将标注中的未修改的数值加＜＞示出（如未修改，显示＜1200＞，修改过的只显示1200，更新时将＜＞号过滤掉）。以方便查看是否对标注进行了修改，也算是一个附加的功能吧。)
        欢迎大家捉“虫”(bug)，如无大的意见，本程序将告一段落，谢谢大家！
        附件gxwz.rar含修改并定稿后gxwz.lsp及gxwz.dcl文件源代码。
        qjcpj  2004.12.15

它山之石

　　1、抢鲜试用。效果一流。完全实现了我的想法。
　　2、有一个小问题，就是在编辑插入的外部参照中的尺寸时，出现在对话框中的是类似“\A1;4200”的数字。而不是加了尖括号或纯粹的数字。

yjtdkj

不错，我也来试试，不过现在下载不了

liuyj

怪了,在2002下怎么都实现不了改块名,2005下却可以,什么原因?

ycao

不错，使用很方便。

它山之石

最初由 liuyj 发布
[B]怪了,在2002下怎么都实现不了改块名,2005下却可以,什么原因? [/B]

2004下使用正常。

qjcpj

我在装有AutoCAD R14，AutoCAD 2000，AutoCAD 2002，AutoCAD 2004，AutoCAD 2005的机子上运行过，可以改块名。40楼楼主定义的块是哪一种类型的图块？
38楼楼主提的问题可以在条件入口处加一判断，须修改源码！
一点说明：该程序改块名的基理是，如果用户编辑的块在图形数据库含有与其同名的图块，则由程序改名(改为“原图块名__随机数”)重生成，但以上块不含“含有字体属性ATTRIB的图块”，因为这种块即使在图形数据库中含有多个同名块，修改其中一个也不会导致其它同名块更新，但前者的块就不一样了，如果不改名，修改其中一个就会导致其它同名块全部更新。
另我还有一点想法：就是在编辑块内属性文字时，选择块的任一处（不一定非要是文字处），就可将块内属性文字导入编辑框，类似本模块中尺寸标注一样，块内如果有多个属性文字，导入编辑框中的文字是离用户点选处最近的属性文字，如果块中只含一个属性文字哪更不用说了。大家觉得是否有必要？

yjtdkj

　我是用CAD2004的，它本身就这个功能，所以我觉得没有必要。

它山之石

另我还有一点想法：就是在编辑块内属性文字时，选择块的任一处（不一定非要是文字处），就可将块内属性文字导入编辑框，类似本模块中尺寸标注一样，块内如果有多个属性文字，导入编辑框中的文字是离用户点选处最近的属性文字，如果块中只含一个属性文字哪更不用说了。大家觉得是否有必要？


　　我觉得没必要，那会乱套的。本来还想提建议，将尺寸标注模块修改成点中文字才出现对话框修改。