明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: njcknfy

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

    [复制链接]
发表于 2019-9-20 20:26 | 显示全部楼层
这个帖子办得非常好!
发表于 2020-4-2 13:54 | 显示全部楼层
人才人才真是人才
发表于 2020-6-29 14:28 | 显示全部楼层
16年了。不可思议
 楼主| 发表于 2020-9-4 11:53 | 显示全部楼层
到今天为止,我从事测绘工作已经满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.    )
发表于 2020-9-13 12:12 | 显示全部楼层
njcknfy 发表于 2020-9-4 11:53
到今天为止,我从事测绘工作已经满30年了,老话说“三十年河东,三十年河西“,我的三十年河东生涯就算是结 ...

楼主厉害了  工作了三十年了   烦了吗????我工作了十五年了吧    现在对测绘这个专业烦烦的    可是还离不开它      矛盾的心里啊
发表于 2021-1-7 19:33 | 显示全部楼层
楼主把cass的三角网表面积完善下呗,目前是三角网编号,命令栏提示总面积,如果能每个三角网都标注面积或者按编号生成表格就好了
发表于 2021-2-2 07:41 | 显示全部楼层
楼主挺厉害呀三十年了,佩服!
发表于 2021-7-29 11:10 | 显示全部楼层
学习了,感谢大神分享
发表于 2022-2-3 20:06 来自手机 | 显示全部楼层
向前辈学习。。。
发表于 2022-2-4 16:16 | 显示全部楼层
不错的分析和技术  支持
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 15:57 , Processed in 0.144291 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表