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

切换到宽版

明经CAD社区 › 日志

日志

最新发表的日志| 推荐阅读的日志 | 应用 | 开发 | 插件 | 电脑 | 知识 | 资讯 | 心情 | 生活 | 文学

分享 2012-12-08: crazylsp 2012-12-8 15:16; ;;不炸开块提取块内对象 LJS BY 2012 12 07 参考了《属性按选择顺序加1》的程序 (defun c:test () (if (and (setq e(nentsel"\nSelect Block with Attrib 选择带属性图块 :")) &nbs ...; 601 次阅读|0 个评论

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

分享谁能变成只点一下就复制片断出来。: crazylsp 2012-12-6 16:51; '偏移出多段线其中一段 BY LJS 20121206 Private Sub UserForm_Click() Me.Hide Dim PLINEOBJ As AcadObject Dim LINEOBJ As AcadLine Dim BASEPT, PT As Variant On Error Resume Next ThisDrawing.Utility.GetEntity PLINEOBJ, BASEPT, "选择 ...; 761 次阅读|0 个评论热度 1

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

分享删除被两点之间压的线修改 :): crazylsp 2012-12-4 12:09; ;删除被两点之间压的线 (defun c:sq(/ pnt1lp pntlst pnt2 sst) (setq pnt1 (getpoint "\nPick first point: ") lp pnt1 pntlst (list pnt1) ) (while (setq pnt2 (getpoint lp ...; 689 次阅读|0 个评论

分享填充移动的起点可用捕捉: crazylsp 2012-11-30 16:12; ;填充移动的起点可用捕捉 LJS_20121130 (defun c:tt() (setq sel(ssget ":E:S")) (command "copy" sel "" '(0 0) '(0 0) ) (command "explode" "L" "") (setq sst (ssget "P") ) (command "move" sel "" pause pause ) (command ...; 667 次阅读|0 个评论

分享怎样设置保留小数点的位数: crazylsp 2012-11-27 11:59; (command "text" pause "" "" (quote(1 2))) 写出一个1.000000000000000,2.000000000000000; 644 次阅读|2 个评论热度 1

分享求助：板块编号问题: duanshui83 2012-11-23 12:58; 本人刚学习lisp语言不久，工作中遇到问题想跟大家求助，如下如一张图中有n个矩形，其中有相同的有不同的，如何才能实现框选这些板块来给板块自动根据自身参数的不同自动编号，相同的板块赋予相同的编号。求教相关代码。; 596 次阅读|1 个评论

分享 2012-11-19: crazylsp 2012-11-19 15:25; 两个向量 p1(x1,y1)， p2(x2,y2) 的叉积x1*y2-x2*y1 先有一预定方向，叉积的正负确定两向量的转动方向是否与预定方向一致。叉积为零两向量方向正好相反。; 567 次阅读|0 个评论

分享多边形内单行文字居中: crazylsp 2012-11-15 11:56; ;;====================“多边形内单行文字居中”==================== (defun C:tt() (setq ss (ssget ":E:S" ) en (ssname ss 0 ) &nb ...; 796 次阅读|3 个评论热度 2

1 ... 4 5 6 7 8910 11 12 13 ... 18 / 18 页下一页

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

GMT+8, 2024-4-26 21:24 , Processed in 0.167297 second(s), 8 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部