设为首页收藏本站 CAD论坛 CAD教程 CAD下载明经币充值

切换到宽版

明经CAD社区 › 日志

日志

回答问题| CAD知识| 计算机知识| Lisp应用| Lisp公用函数| VC++、ARX|

分享块内填充对象置后显示: Gu_xl 2014-7-17 15:54; 块内填充对象后置显示.LSP 块内填充对象后置显示.LSP 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;块内填充对象置后显示,CAD2005以上版本适用 By Gu_xl 2014.07.17 ( defun c:tt ( / en sortents dict blockdef lst Doc ) ( if ( and ( s ...; 个人分类: Lisp应用|2836 次阅读|3 个评论热度 8

分享动态添加自定义工具条: Gu_xl 2014-6-12 23:05; 自定义添加工具条.LSP 态添加自定义工具条.LSP 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;功能:添加工具条 ;;参数: ;;MenuGroupName 菜单组名 ;;toolbarItems 要添加的工具条列表,格式如下: ;| '( (toolBarName ;_ 工具条名 ...; 个人分类: Lisp应用|5962 次阅读|3 个评论热度 23

分享自定义菜单的自动加载: Gu_xl 2014-6-9 12:53; AutoLoadMenuPop.LSP AutoLoadMenuPop.LSP 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;程序功能:自动添加菜单项 By Gu_xl 明经通道 ;;菜单加载测试测试 ( defun c:tt ( / items items1 ) ;;'((标签命令帮助字串次级菜单项)) 表为菜单 ...; 个人分类: Lisp应用|4059 次阅读|4 个评论热度 11

分享多选物体绘制包围框: Gu_xl 2014-5-13 09:17; MBox.LSP MBox.LSP 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;框选物体画框 By Gu_xl 明经通道 2014.05.12 ( defun c:mBox ( / BOX INTERSECT RECTANG SS N L A L1 FLAG B C ) ( defun box ( e / p1 p2 p3 p4 obj ) ...; 个人分类: Lisp应用|3630 次阅读|5 个评论热度 16

分享 text文字头尾除空格，文字位置保持不动: Gu_xl 2014-3-4 14:13; ;;text文字头尾除空格，文字位置保持不动 (defun c:tt (/ LLPT SC P1 P2 DOC E) (defun llpt (E / ENX B R L N M P) (setq enx (entget e)) (setq b (cdr (assoc 10 enx)) r (cdr (assoc 50 enx)) l (textbox enx) ...; 个人分类: Lisp应用|1755 次阅读|1 个评论热度 6

分享多段线边长标注: Gu_xl 2012-12-7 16:03; 多段线边长标注.lsp 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;多段线边长标注2011.4 ( defun c:tt ( / obj pianju sHandle pt np gx bj np xc rr cp n ang1 zjp ms AddText ) ;;;构造text ( defun AddText ( obj TextString In ...; 个人分类: Lisp应用|2406 次阅读|2 个评论热度 13

分享图层反映器应用：禁止某个图层设置为当前层: Gu_xl 2012-12-6 10:08; 图层反应器.LSP 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;图层反映器应用 ;;功能：禁止某个图层(如图层"2")设置为当前层，以保证不在该图层上画物体 ( defun c:tt () ;;建立反应器 ( or *sysVarvlr* ( setq *sysVarvl ...; 个人分类: Lisp应用|1412 次阅读|2 个评论热度 3

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

GMT+8, 2024-4-28 02:03 , Processed in 0.171622 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部