日志
Lisp|
- 分享 图层过滤器被删除
- (defun LayerFiltersDelete () (vl-Load-Com) (vl-Catch-All-Apply '(lambda () (vla-Remove (vla-GetExtensionDictionary (vla-Get-Layers &nb ...
- 分享 字串中西文拆分
- ;;中西文拆分 By Eachy (defun yb:string_split (str / strlst strlst1 hz_str e_str) (setq strlst (vl-string-list str) strlst1 '() ) (while strlst (cond (( (car strlst) 159) (setq e_str nil) (if hz_str (setq hz_str (append (list (car strlst)) hz_str)) (setq hz_str ( ...
- 分享 发图前处理下图形 Beta 0.01
- ;;发图前处理下图形 Beta 0.01 ;;配合 dwfout - dwfin 使用 ;;如果可能再将图形不等比缩放一点点（不包括图框） ;;需要改进的： ;; 1 增加处理 arc circle spline 及保持宽度的Pline部分功能 ;; 2 对Line分解为一点点间隙的特定长度的Trace ;; ;; Writen By eachy 2003.07.15 ;; ...
- 分享 DBX-DwgScan
- 代码: ;;;************************************************************************ ;;; Filename: DBX-DwgScan.LSP ;;; Author: David Stein ;;; Date: April 2002 ;;; Purpose: ObjectDBX Drawing Scan Example for Visual LISP Developers Bible book ;;; Copyright (C)2002 David M. Stein, All Rights ...
- 分享 AutoCAD 2000启动时各个文件加载的顺序
- 问题： 如果知道 AutoCAD 2000 启动时各个文件加载的顺序，可能就会明白一个文件对另一个文件的影响。例如，已经在从 acad.lsp 文件加载的 LISP 程序中定义了一个函数，但是在启动 AutoCAD 2000 后，这个函数却不工作。这是因为 acaddoc.lsp 是在 acad.lsp 文件之后加载，此函数已经被 acaddoc. ...
- 分享 Qleader 设置中的某个选项存储位置
- Qleader 设置中有个“默认提示文字宽度”选项，默认是勾选的，当去除后保持图形，下次打开设置中会保持，这说明该选项是随图保存的，翻遍了Help也没有找到变量控制。经过一番研究，终于找到了存储位置:) 1 打开一个新图，什么都不做，直接另存为 dxf 2 另开一个新图，运行 Qleader -〉设置-〉去掉“默认提示 ...
- 分享 二维图形的几何变换
- 二维图形的几何变换 正如我们在附录中提到的那样，用齐次坐标表示点的变换将非常方便，因此在本节中所有的几何变换都将采用齐次坐标进行运算。二维齐次坐标变换的矩阵的形式是： ...
- 分享 一个简单的将 Excel 中每个 Sheet 特定的区域数据导出程序
- ;;Author: eachy 2010.06.25 (defun c:tt (/ fl excelfn fp wks shts sht na uc nfl cells i j lst maxrows nfp) (if (setq fl (getfiled "Please Select Excel files" "" "xlsx;xls" 8)) ;_excel Filename (progn (if & ...
- 分享 总结：Autocad 与 Excel 通讯的一般步骤
- ;;总结：Autocad 与 Excel 通讯的一般步骤 ;;1 建立连接 (if (not (setq excel (vlax-get-or-create-object "Excel.Application")) ;_ Excel ActiveX ) (progn (princ "\nExcel not Install!") (exi ...
