[建议]：关于理正建筑图库管理的一个建议

fhq_silent

理正建筑的图库我觉得比较人性化的了。库的连接方式提供了4种方式，不但有系统的图库，还有用户、外接（此两者还可以自己根据需要更改路径！！很很好！），再加一个浏览的我觉得是非常足够的了。但是我觉得在如何编辑图库里对应的图（也就dwg图）在图库里没有一个快捷的按钮能快速进入图库里的大样进行编辑后存盘后可以自动更新幻灯片，如果那样的话我觉得图库的管理上面就算是完美了。

Qun

只需要增加一个打开dwg的按纽, 修改后可利用入库功能替换原来块

fhq_silent

没错。。如果简单一些就只需要增加一个打开dwg的按纽，，至于幻灯片的更新，可以自己手工更新就行了。

Qun

谢谢, 正在修改中

fhq_silent

谢Qun兄，如果可以可否私人把此功能先发给我？（我邮箱54628799@qq.com）dcl中加个按钮很简单，但是要在lsp中调用我可得读懂兄弟的tuku.lsp，偶功力也不够，这几天看得很辛苦，关键上面不知道如何获取当前选择图标的dwg文件全路径（由于近几天要对过往工程作总结并汇总图库，所以对此功能很迫切需要，解读兄弟的代码实属无奈，望见谅）

Qun

正在修改，一改好就发给你试试

fhq_silent

1.dcl中增加按钮，加注Alex是为了调试方便

2. : button {
   
3.               key = "edit";
   
4.               label = "编辑Alex";
   
5.               mnemonic = "A";
   
6.             }            

: button {<br />               key = "edit";<br />               label = "编辑Alex";<br />               mnemonic = "A";<br />             }            

2.lsp中在action_tile "del" "(do_del)")后增加如下：

1.         (action_tile "del" "(do_del)")                        ;执行子程序删除选中的文件
   
2.         (action_tile "edit" "(do_edit_dwg)")               

复制代码

;执行子程序编辑选中的文件
3.在(defun do_del (/ ll dwg_l)后面增加函数如下：

2.   (defun do_edit_dwg (/ ll dwg_l)                        ;此语句尝试打开文件，为alex0007添加的。Alex0007于 2009-03-30 15:52:55
   
3.           (progn
   
4.         (setq dwg_l (get_dwgl)
   
5.               ind_last nil
   
6.         )
   
7.         (foreach i (cond
   
8.                      (lnss)
   
9.                      ((list dwg_c))
   
10.                    )
    
11.           (setq ll (nth i dwg_l))
    
12.           ;(del_ico pathc (car ll) (last ll))
    
13.           (setq dwg_full (strcat "当前选择的文件为" pathc (car ll) ".dwg"))                         (alert  dwg_full)                ;;ll=dwg的文件名！！pathc是路径！！
    
14.           (setq pathc (strcat "当前文件路径"  pathc))                        (alert  pathc)
    
15.           (setq dwg_c "该函数不可用3。")                        (alert  dwg_c)
    
16.           (command "open" dwg_full)
    
17.         )
    
18.         ;(ch_list (itoa ind_pos) nil)
    
19.       )
    
20.   )
    

  (defun do_edit_dwg (/ ll dwg_l)                        ;此语句尝试打开文件，为alex0007添加的。Alex0007于 2009-03-30 15:52:55<br />           (progn<br />         (setq dwg_l (get_dwgl)<br />               ind_last nil<br />         )<br />         (foreach i (cond<br />                      (lnss)<br />                      ((list dwg_c))<br />                    )<br />           (setq ll (nth i dwg_l))<br />           ;(del_ico pathc (car ll) (last ll))<br />           (setq dwg_full (strcat "当前选择的文件为" pathc (car ll) ".dwg"))                         (alert  dwg_full)                ;;ll=dwg的文件名！！pathc是路径！！<br />           (setq pathc (strcat "当前文件路径"  pathc))                        (alert  pathc)<br />           (setq dwg_c "该函数不可用3。")                        (alert  dwg_c)<br />           (command "open" dwg_full)<br />         )<br />         ;(ch_list (itoa ind_pos) nil)<br />       )<br />   )<br />

情况：已获取文件的全路径dwg_full=e:\123\23.dwg，且dwg_full为string，但是卡在了如何在lsp中用什么函数来打开这个dwg_full。

Qun

你挺厉害的，不过我已经改好了，你用得是什么版？ 试用版还是正式版？ 告诉我，给你邮箱发补丁

fhq_silent

汗，纯粹是班门弄斧了，如果没有兄弟你的代码在，打死我也编不出来，我只是猜解出来的，而且你的代码很整洁，一些用词也很有规律，，先谢了。。我是用试用版的理正建筑，安装文件是：lz_lar_80408.ZIP。

曹杰

这是个实际问题，什么时候发布补丁呀

Qun

已发了补丁, 请楼主查收

fhq_silent

成分感谢Qun，刚上去查收，，汗。QQ邮箱居然把你的邮件放垃圾邮件里去了。另，看到有个别兄弟好象也有此需要，不知此补丁是否方便在这里发布？（我找个地方上传，在本贴给个连接让大家下载就可）

xuyu

这个建议·很好，这么快补丁就出来了

Qun

你试完没问题的话就发吧

fhq_silent

很奇怪的，，我在家里测试过成功，在公司里却不成功，，问题没有找到原因。先放上来。大家有兴趣的帮测试一下。测试后烦请给个报告。谢。

ps:我的理正是试用版的。附件是Qun发我的。。我转发上来。