[求助]列出CAD打开的所有文件

虬髯客

各位帅哥美女，小弟有4个问题想请教大家，期待达人帮忙：

     第1个：列出CAD打开的所有图形文件名。程序目的：下班之前储存所有文件名后，第二天上班可以直接加载所有文件。

     第2个：如何删除文件目录。vl族命令只给出了删除文件和创建文件目录的命令，但我找不到删除文件目录的方法。

     第3个：如何用程序求两条曲线的交点（实体类型为spline或lwpolyline).

     第4个：有没有曲线的插值程序，即已知曲线上某一点的X值或者Y值，直接用程序得到Y值或X值。

 

这些问题已困扰我很久，期待达人帮忙解决问题或者给个方向。

jxphklibin

第一个问题：使用(vla-get-documents (vlax-get-acad-object)) 得到当前打开的所有文档集合

其余问题也有解决，可论坛上搜索一下。

虬髯客

谢谢楼上的。

虬髯客

第一个问题已解决，谢谢2楼的提示，附上代码，期望对有类似疑问的朋友有所帮助。

(defun C:test()
 (setq dwg_opens(vla-get-documents (vlax-get-acad-object)))
 (setq n_opens(vla-get-count dwg_opens))
 (setq i 0)
 (while (< i n_opens)
  (setq dwg_i (vla-item dwg_opens i))
  (princ (strcat "\n@@@ " (vla-get-FullName dwg_i)))
  (setq i (1+ i))
 )
 (princ)
)

pizg

感謝樓主的善心將源碼貼上

lincctw_ccl

不錯的構想!!
關於第一個問題!!

xhq1954425

好！有用，收藏备用。谢谢！

xyp1964

问题4：利用辅助线法求交点

2. 
   
3. ;; Y→X
   
4. (defun c:tt ()
   
5.   (CMDLA0)
   
6.   (if (setq s1 (car (entsel "\n选择: ")))
   
7.     (progn
   
8.       (redraw s1 3)
   
9.       (while (setq p1 (getpoint "\n基点<退出>: "))
   
10. (setq s2  (xyp-Add-Xline p1 (xyp-get-Pt2DX p1 10))
    
11.        ptn (xyp-get-Inters s1 s2 0)
    
12. )
    
13. (entdel s2)
    
14. (foreach pt ptn
    
15.    (xyp-ZB pt 1000 4 nil nil)
    
16. )
    
17.       )
    
18.       (redraw s1 4)
    
19.     )
    
20.   )
    
21.   (CMDLA1)
    
22. )

<br /> ;; Y→X<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (if (setq s1 (car (entsel "\n选择: ")))<br />     (progn<br />       (redraw s1 3)<br />       (while (setq p1 (getpoint "\n基点<退出>: "))<br /> (setq s2  (xyp-Add-Xline p1 (xyp-get-Pt2DX p1 10))<br />        ptn (xyp-get-Inters s1 s2 0)<br /> )<br /> (entdel s2)<br /> (foreach pt ptn<br />    (xyp-ZB pt 1000 4 nil nil)<br /> )<br />       )<br />       (redraw s1 4)<br />     )<br />   )<br />   (CMDLA1)<br /> )

xyp1964

2. ;; X→Y
   
3. (defun c:tt ()
   
4.   (CMDLA0)
   
5.   (if (setq s1 (car (entsel "\n选择: ")))
   
6.     (progn
   
7.       (redraw s1 3)
   
8.       (while (setq p1 (getpoint "\n基点<退出>: "))
   
9. (setq s2  (xyp-Add-Xline p1 (xyp-get-Pt2DY p1 10))
   
10.        ptn (xyp-get-Inters s1 s2 0)
    
11. )
    
12. (entdel s2)
    
13. (foreach pt ptn
    
14.    (xyp-ZB pt 1000 4 nil nil)
    
15. )
    
16.       )
    
17.       (redraw s1 4)
    
18.     )
    
19.   )
    
20.   (CMDLA1)
    
21. )

;; X→Y<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (if (setq s1 (car (entsel "\n选择: ")))<br />     (progn<br />       (redraw s1 3)<br />       (while (setq p1 (getpoint "\n基点<退出>: "))<br /> (setq s2  (xyp-Add-Xline p1 (xyp-get-Pt2DY p1 10))<br />        ptn (xyp-get-Inters s1 s2 0)<br /> )<br /> (entdel s2)<br /> (foreach pt ptn<br />    (xyp-ZB pt 1000 4 nil nil)<br /> )<br />       )<br />       (redraw s1 4)<br />     )<br />   )<br />   (CMDLA1)<br /> )