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

切换到宽版

明经CAD社区 › 日志

日志

文字| 块| 修改| 填充| 函数| 数学| 个人成果|

分享动画: crazylsp 2012-12-24 17:07; ;;模仿英雄无敌大师的框选导角，我的效果离他的只有一步之遥了嘿。 ;;框选导角 ;;动态移动尺寸 ;;直线片断的多边形外部修剪 ;;哈哈再来两个 ;;记忆拉伸和移动 ;;多个文挡图纸切换并最大缩放切换; 个人分类: 个人成果|927 次阅读|2 个评论热度 1

分享转载不开图查找替换文字红色是我增加的注释: crazylsp 2012-12-13 17:20; Option Explicit Private Sub cmdCancel_Click() End End Sub Private Sub cmdDelete_Click() ' 确认列表框包含列表项 If lstFil ...; 个人分类: 文字|1120 次阅读|3 个评论热度 2

分享文字前中后递增序号: crazylsp 2012-12-11 23:02; '原作于201208 20121211修改，相应递增字母部分以后有空再增加完善。; 个人分类: 文字|864 次阅读|0 个评论

分享 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 ...; 个人分类: 块|612 次阅读|0 个评论

分享谁能变成只点一下就复制片断出来。: 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, "选择 ...; 774 次阅读|0 个评论热度 1

分享删除被两点之间压的线修改 :): 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 ...; 个人分类: 修改|696 次阅读|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 ...; 个人分类: 填充|677 次阅读|0 个评论

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

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

分享缩放图块: crazylsp 2012-11-16 17:13; ;缩放选择名称的图块 (defun c:tt() (SETQ b1 (ENTSEL "\n请选择图块: ") i 0 hh (getreal"输入新的缩放系数: ") ) (IF b1 (PROGN ...; 个人分类: 块|807 次阅读|0 个评论热度 1

123 / 3 页下一页

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

GMT+8, 2024-5-15 20:37 , Processed in 0.182447 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部