日志
Lisp|
- 分享 清理图形的程序
- ;;使用时可以用 vl-load-all 加载,格式如 ;; (vl-load-all "c:\\cleardwg.vlx") 2005年06月22日 (vl-load-com) (defun c:cleardwg (/ thisdrawing ss lyrlst olderr myerr) (defun myerr (msg) (if (/= msg "取消") (princ "\*取消*") ) (vla-endundomark thisdrawing) (setq * ...
- 分享 今天处理一个地形图，写了个标高块转字的程序
- 地形图上的标高都是属性块，第一次遇到 2005年06月02日 (defun c:tt (/ ss ssl e att obj ms) (if (setq ss (ssget '((66 . 1)))) (progn (setq ssl (sslength ss) ms (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) ) (while ( ssl 0) (setq e ( ...
- 分享 CAD2006下的Hatch合并、重建边界、统计面积编程
- ;| 2006对Hatch的支持使得以前的很多程序得以简化，成功率也有了很大的提高，一切都源于 Hatch 命令的增强。 ...
- 分享 统一改块名
- (mapcar '(lambda (b1 b2) (if (tblsearch "block" b1) (command ".rename" "b" b1 b2) ) ) (list . . . .);_ old block name list (list . . . .);_ new block name list )
- 分享 一个简单的输出Pline坐标
- (defun c:plout (/ s filename e n fn jd pt pts) (if (setq s (ssget ":S" '((0 . "*POLYLINE")))) ;_点选带过滤形式 (progn (setq e (ssname s 0) n (fix (vlax-curve-getendparam e)) ) (if (not (setq filename (getfiled "选择文件存储目录" "多段线坐标.txt" "txt" ...
- 分享 交点断开------圆断开
- 交点断开------圆断开 http://www.xdcad.net/forum/showthread.php?s=postid=3086365#post3086365 ;; 上班后书也看不进去，写个程序玩玩，也是不久前写的曲线断 ;; 开的继续。其中有几处不足，当然所提出的不足在论坛上都有 ;; 过讨论，大家可以搜索下，可能有答案也可能没有，有兴趣的 ;; 参与下完善 ...
- 分享 强迫直线LINE水平或垂直
- 强迫直线LINE水平或垂直 http://www.xdcad.net/forum/showthread.php?s=threadid=345156perpage=30display=pagenumber=1 (defun c:tt (/ p1 p2 ss e ssl sp ep) (if (setq ss (ssget '((0 . "line")))) (progn (setq ssl (sslength ss)) (while ( ssl 0) (setq e (ssname ss ( ...
- 分享 CAD 中读写剪贴板
- 以前 xdapi 第一次实现了CAD 中读写剪贴板，现在 Vlisp 也可以做到了:) ;;读剪贴板文字 (defun xdl-getcliptext (/ ieobj str) (setq ieobj (vlax-get-or-create-object "Internetexplorer.application") ) (vlax-invoke ieobj 'navigate "about:blank") (setq str (vlax-invoke (vlax-get (vla ...
