[原创]：发个opendcl的源码

露水2

浏览文件内的块 四个控件的研究
建议开个opendcl专题
要安装opendcl5.0

露水2

演示

taner

用的这么低级的版本，浪费俺的钱钱！

露水2

因为刚开始研究opendcl不知道害有版本的问题
我把文件删除了 这样就不回浪费大家的钱钱了 你看怎么把钱还给你。

PLgis

看了楼主的演示，我觉得还是挺好的。
何必因为和一个人治气而删了附件呢？

taner

露水，就将你这个贴改为：OPENDCL专题

露水2

最初由 taner 发布
[B]露水，就将你这个贴改为：OPENDCL专题 [/B]

我试试看能不能不把版本升级一下
已经更新了 在一楼

taner

插入无名块时出问题，提示：

1. 
   
2.   [FONT=courier new]
   
3. 命令:  TEST
   
4. 命令:
   
5. 命令: test
   
6. 插入点:-insert 输入块名或 [?] <F>: *D37
   
7. "D37.dwg": 在搜索路径中未找到文件:
   
8.   C:\Documents and Settings\tanhao\桌面\(当前目录)
   
9.   E:\Program Files\Tencent\Foxmail\Temp\
   
10.   C:\Documents and Settings\tanhao\Application Data\Autodesk\AutoCAD
    
11. 2009\R17.2\chs\support\
    
12.   D:\Program Files\AutoCAD 2009\support\
    
13.   D:\Program Files\AutoCAD 2009\fonts\
    
14.   D:\Program Files\AutoCAD 2009\help\
    
15.   D:\Program Files\AutoCAD 2009\Express\
    
16.   D:\Program Files\AutoCAD 2009\support\color\
    
17.   C:\Documents and Settings\tanhao\桌面\test\
    
18.   D:\Program Files\OpenDCL Studio\ENU\Samples\
    
19.   D:\Program Files\AutoCAD 2009\drv\
    
20.   D:\Program Files\AutoCAD 2009\
    
21. *无效*
    
22. ; 错误: 函数被取消
    
23. 
    
24.   [/FONT]
    

复制代码

carrot1983

嗯。。。
所以我在插入块的程序里面，把无名块给拿掉了。。。

carrot1983

(setq BLOCKS (vl-remove-if
                   '(lambda (X) (= (substr X 1 1) "*"))
                   (CAI-TBLNEXT "BLOCK")
                 )
    )

露水2

匿名快研究的少

ooohen

good`````````````

ywqq

多谢奉献