尘缘一生 发表于 2023-8-17 21:18:29

文件资源管理器 V1.0

本帖最后由 尘缘一生 于 2023-8-17 23:49 编辑

受iMiNi 界面启发,写了这东西,也许有用,也许觉得无有啥用。



[*]函数dd-path-tree使用

[*]

[*]格式 (dd-path-tree path filter)
[*]path: 缺省路径 D:\\2003\\mydwg123\\
[*]filter: 文件类型 *.dwg *.pat *.txt *.* 等
[*]返回:取得文件名全路径 如:d:\\2022\\栏杆.dwg--->用于后续你的集成开发即可
测试:C:TT
VLX


源码:希望高手改成更有效、有用的使用。


尘缘一生 发表于 2023-8-17 22:01:41

不一样地设计 发表于 2023-8-17 21:52
是呀,我补充了,但是提示缺少参数。所以请教大师答疑解惑


[*];;;求选择图形的中心点
[*](defun centerp (ss )
[*](mapcar '(lambda (x)(/ x 2))
[*](apply '(lambda (e1 e2)(mapcar '+ e1 e2)) (sscornerp ss)) )
[*])


看你这段代码,你缺少个函数 sscornerp


这个函数不是我得,你看从哪里找下子,你的函数:centerp不是求选择集中心吗?本坛到处有的是,你换个即可了。

尘缘一生 发表于 2023-8-17 21:49:59

不一样地设计 发表于 2023-8-17 21:36
http://bbs.mjtd.com/thread-186873-1-1.html
选择集:定点、角度动态4镜像
大师,有空看看这个帖子吗?
...

这个啊,那不公共函数都做好了,(defun dtmirr (ss p0 ang /

引入三个变量,即可

不一样地设计 发表于 2023-8-17 22:04:57

尘缘一生 发表于 2023-8-17 22:01
[*];;;求选择图形的中心点
[*](defun centerp (ss )
[*](mapcar '(lambda (x)(/ x 2))


是的,我看函数里面提示这个p0的取选择集中心,测试失败,原因不明,我就找了一个,原来不完整

不一样地设计 发表于 2023-8-17 21:36:16

http://bbs.mjtd.com/thread-186873-1-1.html
选择集:定点、角度动态4镜像
大师,有空看看这个帖子吗?
不知道怎么才能做出图块门一样的动态翻转效果

不一样地设计 发表于 2023-8-17 21:52:29

本帖最后由 不一样地设计 于 2023-8-17 21:54 编辑

尘缘一生 发表于 2023-8-17 21:49
这个啊,那不公共函数都做好了,(defun dtmirr (ss p0 ang /

引入三个变量,即可
是呀,我补充了,但是提示缺少参数。所以请教大师答疑解惑

飞雪神光 发表于 2023-8-17 22:58:01

大佬用的是win7系统?

jun353835273 发表于 2023-8-17 23:15:30

感觉只能浏览下,还不能多选,改成可以多选可以当成选择文件的面板使用。也可以将左侧双击dwg就打开cad,类似图纸管理器。

尘缘一生 发表于 2023-8-17 23:17:13

本帖最后由 尘缘一生 于 2023-8-17 23:46 编辑

飞雪神光 发表于 2023-8-17 22:58
大佬用的是win7系统?
WIN7 64位,因为CAD的话,WIN7是最好平台,WIN10 WIN11就很多问题出现。

尘缘一生 发表于 2023-8-17 23:18:24

本帖最后由 尘缘一生 于 2023-8-17 23:25 编辑

jun353835273 发表于 2023-8-17 23:15
感觉只能浏览下,还不能多选,改成可以多选可以当成选择文件的面板使用。也可以将左侧双击dwg就打开cad,类 ...
可以作多选,改下子即可,我把源码发上。
页: [1] 2
查看完整版本: 文件资源管理器 V1.0