日志
Lisp|
- 分享 将UCS实体投影到WCS
- ;;将UCS实体投影到WCS，适用2000+以上，R14下对elst需要去除实体名、句柄等 ;;才可entmake ;;Write by eachy 2003.08.19 (defun ConvertEntitytoWCS (ent / elst) (setq elst (entget ent)) (setq elst (mapcar '(lambda (x) (if (member (car x) '(10 11 12 13 14 15 16 17 18 19)) ...
- 分享 lambda-expressions
- (defun fplot (expr steps xpi ypi / xn yn zn tlist plist _plot) (defun _plot (l / i j) (setq i 0) (command "_3dmesh" (length l) (length (car l))) (repeat (length l) (setq j 0) (repeat (length (car l)) (c ...
- 分享 删除块属性
- ;;删除块属性 eachy 2005.9.12 ;;某些树的图块往往含有属性，在位编辑时不方便就写了这个程序 ;;在Blockdef中ActiveX模型是找不到Seqend实体的，Block Insert后 ;;SEQEND的硬所有者是Insert，按Autodesk解释这个SEQEND不随DXF保存 ;;而且Seqend只能通过Entnext来得到，该Subentity 不能使用 entdel ;;或者 v ...
- 分享 加粗曲线
- 本程序取自晓东工具箱，改用Lisp完成，但Spline 和 Ellipse 模拟使用了ET函数（该函数包含在哪个文件中未知） 2006年01月09日 代码: (defun xdl-dxf (elst code) (cdr (assoc code ...
- 分享 加粗曲线
- 本程序取自晓东工具箱，改用Lisp完成，但Spline 和 Ellipse 模拟使用了ET函数（该函数包含在哪个文件中未知） 2006年01月09日 代码: (defun xdl-dxf (elst code) (cdr (assoc code ...
- 分享 图纸自动归档程序
- http://www.xdcad.net/forum/showthread.php?s=postid=2724350#post2724350 代码: (defun xdl-Clearcset (/ cset) (if (not (vl-catch-all-error-p (setq cset (vl-catch-all-apply 'vla-item (list (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-ob ...
- 分享 Automatic Numbering
- ;;;CADALYST 03/05 Tip2018: autonumb.lsp Automatic Numbering (c) Scott Bestmeyer ;AUTONUMB.LSP for release 15 ;Auto numbers text strings. ;Written by: S. Restmeyer 3/01 ;;; ;;;----------------------ERROR FUNCTION---------------------------- ;;; (DEFUN ERR (S) ;if ...
- 分享 自动更新图层
- ;| 程序简介：用于修改图形时将修改的实体或者新生成的实体转换至指定图层 适用AutoCAD2000+以上版本。 免责声明：本程序仅提供作为应用上的参考, 而未声明或隐含任何保证; ...
- 分享 export all text entities to Microsoft WinWord
- export all text entities to Microsoft WinWord ;;; ; ;;; TYPELIB.LSP ; ;;; ; ;;; Copyright 1987, 1988, ...
- 分享 利用ET中的FS写的一个简单的修剪内部线
- 利用ET中的FS写的一个简单的修剪内部线 对“凹”多边形可能要多修剪几次，不过这是最简单的写法了。 虽然每个版本的CAD都装了ET，可写程序时基本没有用过ET中的函数，这是第一个吧。 临时应用的时候简单的写几句可以有事半功倍的效果。如数块 代码: (sslength (ssget (list (assoc 2 (entget (car (entsel))) ...
