自己动手,改进CASS中欠缺的功能

lysm925

这个帖子办得非常好!

QQ873240166

人才人才真是人才

CeGong.Com_____

16年了。不可思议

njcknfy

到今天为止，我从事测绘工作已经满30年了，老话说“三十年河东，三十年河西“，我的三十年河东生涯就算是结束了，感谢各位明经通道的朋友们这十多年对我的支持和帮助，有空我会把这这些年来CAD二次开发的文档整理出来与大家共享。今天先来个LISP调用DOS命令行窗口执行DOS命令把运行结果写入文本文件的方法，这个方法的应用场景是可以在CAD里执行DOS命令行命令，例如获取计算机CPU内核个数、网络连接状态等，我用这个是为了基于CAD调用第三方软件的脚本执行多进程运算。

1. (defun get_ThisComputerTXT  (CMDSTR)
   
2. ;;;调用DOS命令获取计算机的参数，输出到C:\TEMP\ThisComputer.txt
   
3. ;;;(get_ThisComputerTXT CMDSTR)
   
4. ;;;CMDSTR 参数选择:  IPCONFIG PING NumberOfCores NumberOfLogicalProcessors
   
5. ;;;示例 (setq CMDSTR_LIST(get_ThisComputerTXT "PING 192.168.20.253"))
   
6. ;;;示例 (setq CMDSTR_LIST(get_ThisComputerTXT "NumberOfCores"))
   
7. ;;;示例 (setq CMDSTR_LIST(get_ThisComputerTXT "Powershell Get-PhysicalDisk"))
   
8.   (if (= (dos_dirp "C:\\TEMP") nil)
   
9.     (dos_mkdir "C:\\TEMP\\"))
   
10.   (if (findfile "C:\\TEMP\\ThisComputer.txt")
    
11.     (dos_delete "C:\\TEMP\\ThisComputer.txt"))
    
12.   (setq CMDSTR_LIST nil)
    
13.   (setq TMPBATFILE "C:\\TEMP\\ThisComputer_TMP.bat")
    
14.   (setq TMPBAT (open TMPBATFILE "w"))
    
15.   (cond
    
16.     ((or (= CMDSTR "NumberOfCores") (= CMDSTR "NumberOfLogicalProcessors"))
    
17.      (progn
    
18.        (write-line "wmic cpu get NumberOfCores > c:\\temp\\Thistemp.txt" TMPBAT)
    
19.        (write-line "wmic cpu get NumberOfLogicalProcessors >> c:\\temp\\Thistemp.txt"
    
20.                    TMPBAT)
    
21.        (write-line "type c:\\temp\\Thistemp.txt > c:\\temp\\ThisComputer.txt" TMPBAT)))
    
22.     (t (write-line (strcat CMDSTR " > C:\\TEMP\\ThisComputer.txt") TMPBAT)))
    
23.   (close TMPBAT)
    
24.   (dos_exewait "C:\\TEMP\\ThisComputer_TMP.bat")
    
25.   (if (findfile "C:\\TEMP\\ThisComputer_TMP.bat")
    
26.     (dos_delete "C:\\TEMP\\ThisComputer_TMP.bat"))
    
27.   (if (findfile "C:\\TEMP\\Thistemp.txt")
    
28.     (dos_delete "C:\\TEMP\\Thistemp.txt"))
    
29.    )

(defun get_ThisComputerTXT  (CMDSTR)<br /> ;;;调用DOS命令获取计算机的参数，输出到C:\TEMP\ThisComputer.txt<br /> ;;;(get_ThisComputerTXT CMDSTR)<br /> ;;;CMDSTR 参数选择:  IPCONFIG PING NumberOfCores NumberOfLogicalProcessors<br /> ;;;示例 (setq CMDSTR_LIST(get_ThisComputerTXT "PING 192.168.20.253"))<br /> ;;;示例 (setq CMDSTR_LIST(get_ThisComputerTXT "NumberOfCores"))<br /> ;;;示例 (setq CMDSTR_LIST(get_ThisComputerTXT "Powershell Get-PhysicalDisk"))<br />   (if (= (dos_dirp "C:\\TEMP") nil)<br />     (dos_mkdir "C:\\TEMP\\"))<br />   (if (findfile "C:\\TEMP\\ThisComputer.txt")<br />     (dos_delete "C:\\TEMP\\ThisComputer.txt"))<br />   (setq CMDSTR_LIST nil)<br />   (setq TMPBATFILE "C:\\TEMP\\ThisComputer_TMP.bat")<br />   (setq TMPBAT (open TMPBATFILE "w"))<br />   (cond<br />     ((or (= CMDSTR "NumberOfCores") (= CMDSTR "NumberOfLogicalProcessors"))<br />      (progn<br />        (write-line "wmic cpu get NumberOfCores > c:\\temp\\Thistemp.txt" TMPBAT)<br />        (write-line "wmic cpu get NumberOfLogicalProcessors >> c:\\temp\\Thistemp.txt"<br />                    TMPBAT)<br />        (write-line "type c:\\temp\\Thistemp.txt > c:\\temp\\ThisComputer.txt" TMPBAT)))<br />     (t (write-line (strcat CMDSTR " > C:\\TEMP\\ThisComputer.txt") TMPBAT)))<br />   (close TMPBAT)<br />   (dos_exewait "C:\\TEMP\\ThisComputer_TMP.bat")<br />   (if (findfile "C:\\TEMP\\ThisComputer_TMP.bat")<br />     (dos_delete "C:\\TEMP\\ThisComputer_TMP.bat"))<br />   (if (findfile "C:\\TEMP\\Thistemp.txt")<br />     (dos_delete "C:\\TEMP\\Thistemp.txt"))<br />    )

杜阳

njcknfy 发表于 2020-9-4 11:53
到今天为止，我从事测绘工作已经满30年了，老话说“三十年河东，三十年河西“，我的三十年河东生涯就算是结 ...

楼主厉害了  工作了三十年了   烦了吗？？？？我工作了十五年了吧    现在对测绘这个专业烦烦的    可是还离不开它      矛盾的心里啊

feiyike

楼主把cass的三角网表面积完善下呗，目前是三角网编号，命令栏提示总面积，如果能每个三角网都标注面积或者按编号生成表格就好了

2013127ll

楼主挺厉害呀三十年了，佩服！

mrclear

学习了，感谢大神分享

f4800

向前辈学习。。。

f4800

不错的分析和技术  支持