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

切换到宽版

明经CAD社区 › 日志

日志

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

分享按弦高限差值回返曲线拟合样本点: Gu_xl 2014-3-12 10:04; Gxl-GetSamplet.LSP Gxl-GetSamplet.LSP 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;(gxl-GetSamplet CURVE d) 按弦高返回曲线拟合样本点 ;;参数 curve = 曲线图元名/对象名 ;; d = 弦高限差值 ;; By Gu_xl 明经通道，2015.04.01修正了SPLIN ...; 个人分类: Lisp公用函数|5115 次阅读|7 个评论热度 19

分享 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应用|1777 次阅读|1 个评论热度 6

分享米生活创意家居: Gu_xl 2014-2-28 13:59; 我小妹自主创业，开了个淘宝店， “米生活创意家居” ，欢迎大家有空去逛逛，给捧捧场！; 1469 次阅读|0 个评论热度 6

分享新年祝福，200明经币红包大派送！点取空间右上角红包，领取明经币！: Gu_xl 2013-12-31 10:12; 新年将至，美妙的钟声又要敲响，让它敲响你2014年的幸运之门，带给你一整年的健康平安、幸福快乐、如意吉祥。祝大家元旦快乐！; 3027 次阅读|0 个评论热度 24

分享移动园后，园自动变为蓝色: Gu_xl 2013-7-9 19:31; 问题来源: 如何移动圆后，该圆变为蓝色？利用数据库反应器和命令反应器来解决： ;;**************************************************************************************** ;;如何移动圆后，该圆变为蓝色？ ;;命令反应器 (or *cmdvlr* (setq *cmdvlr* (vlr-c ...; 个人分类: 回答问题|1363 次阅读|0 个评论

分享绘制三通: Gu_xl 2013-4-12 13:41; 问题来源： http://bbs.mjtd.com/thread-100892-1-1.html 绘制三通.LSP 绘制三通.LSP 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;绘制三通 By Gu_xl 2013.04.12 (c:tt) ( defun c:tt ( / DXF UPD REVLINE PERTOLINE S0 ...; 个人分类: 回答问题|2472 次阅读|2 个评论热度 4

分享插入文件并更新已有图块定义: Gu_xl 2013-4-2 15:58; 问题来源： http://bbs.mjtd.com/thread-100770-1-1.html 解决方案代码： ;;选择文件插入，同时更新本图的图块 By Gu_xl 2013.04.02 (defun c:ins (/ DWGNAME DBXDOC ACVER & ...; 个人分类: 回答问题|2593 次阅读|2 个评论热度 4

分享画线打断于交点处: Gu_xl 2012-12-11 18:29; 画线打断于交点处.lsp 问题来源： http://bbs.mjtd.com/thread-99481-1-1.html 画线打断于交点处.lsp 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;画线打断于交点处 By Gu_xl 2012.12.11 ( defun c:tt ( / LA P0 PT S PL A d ) ( if ( n ...; 个人分类: 回答问题|2562 次阅读|2 个评论热度 8

分享点在封闭曲线内外判断: Gu_xl 2012-12-11 09:08; 点在曲线内外判断.LSP 本源代码由 Gu_xl 编写发布！联系方式: Email: Gu_xl@sohu.com ;;功能：判断点在封闭曲线内外，自交曲线不适用 By Gu_xl 2012.07.31 ;;返回: 点在封闭曲线上或曲线内，返回T，否则返回nil ;;测试: (gxl-PtInCurveP (car(entsel "\n选择曲线:")) (getpo ...; 个人分类: Lisp公用函数|3474 次阅读|1 个评论热度 14

分享多段线边长标注: 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应用|2425 次阅读|2 个评论热度 13

123 / 3 页下一页

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

GMT+8, 2024-5-10 23:09 , Processed in 0.086614 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部