看到网上有些人找从CAD图形里提取坐标的程序，我也不知道有什么用，因为鼠标放上去直接就能看到了。既然有人要还是编了一个，不知道测量微信怎么传附件，我把源代码写下来，复制下来之后直接粘在CAD安装目录下的一个support文件夹里的acad2006doc文件里。注意一定要粘在;; Silent load.的上面，还有注意不要破坏里面原有的代码。下面是代码：(defun c:tiqu(/ a b c)(setq c(getstring'输入点号:'))(setq a(getpoint'\n选取点：'))(setq b(open 'C:\\Documents and Settings\\Administrator\\桌面\\坐标.txt' 'a'))(print (list c a) b)(close b)(princ))粘好之后运行CAD然后在命令行里输入tiqu就行了，和用CAD的普通命令一样。该命令会在桌面建一个名为“坐标”的txt文档，提取到的坐标会自动保存到里面 |
|
|
