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

切换到宽版

明经CAD社区 › 日志

日志

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

分享把常用的几个单行文本程序放到一起: crazylsp 2014-3-19 21:07; ;输入整数手工修改单行文本开头的数字 (defun c:tt() (while(setq stn(car(entsel))) (setq num (getint"输入整数") stnn (entget stn) contt(cdr(assoc 1 stnn)) ...; 个人分类: 文字|1696 次阅读|0 个评论热度 2

分享当线位置改变后，把标示的箭头重新移动到新位置线: crazylsp 2013-12-16 16:37; ;;.lsp ;;排序函数(HH:ssPts:Sort ssPts KEY FUZZ) 见黄老师的 http://bbs.mjtd.com/thread-107489-1-1.html (defun c:tt() ;输入KEY值默认"YX" (setq keys (getstring "按照排序通用程序设定的方法输入KEY值: YX ") ) ;选线;排序; (setq list ...; 个人分类: 修改|1483 次阅读|0 个评论

分享 '测试VB粘贴剪贴板的文字到EXCEL: crazylsp 2013-12-9 17:19; Sub 粘贴一个多行文字内容() 'Dim xlApp As Excel.Application 'Dim xlBook As Excel.WorkBook 'Dim xlSheet As Excel.Worksheet '在程序中操作EXCEL表常用命令: Set xlApp = CreateObject("Excel.Application") ...; 个人分类: 文字|1086 次阅读|0 个评论

分享做个实验用按钮的控件数组显示图中块名: crazylsp 2013-12-9 11:47; 用MSForms控件的按钮可以控件数组，但由于是excel的控件，石乎不兼容CAD，是不是要建个Frame框架再放置按钮什么的? 'VBA动态生成控件数组并能响应事件 '用户窗体UserForm1: Private colCB As New Collection '表单按钮为集合 Private ctlCB As 类1 '类实例 Private Sub UserForm_Initialize() &n ...; 1090 次阅读|0 个评论

分享动态一拐引出线还可以改进地方有许多: crazylsp 2013-12-6 10:50; (defun c:tt() ;第一节 (setq pt1(getpoint)) (ZML-GRREADLST pt1 ) (setq ob1(entlast) pt3 pt2) ;第二节 (ZML-GRREADLST pt2 )(setq ob2(entlast) pt4 pt2) ;写文字 (entmake ...; 个人分类: 文字|1274 次阅读|0 个评论热度 2

分享统一指定基点缩放: crazylsp 2013-9-29 16:58; ;统一指定基点缩放未考虑太多(defun c:tt() (princ "\n 选择箭头等图形") (setq en(entsel)) (if en(progn (setq enn(car en) enpt(getpoint"输入缩放基点") sfx(getreal"输入缩放系数: ") ) (vla-getboundingbox (vlax-ename-vla-object enn) 'enpt1 'enpt2) (setq enpt1 (vlax ...; 8708 次阅读|0 个评论

分享刷不同文字字高，可能有点用处吧: crazylsp 2013-7-5 15:41; ;;刷图中不同文字字高，对实际可能有点用处。20130705 15:30 (defun c:test(/) (setq s(ssget (LIST (CONS 0 "*text") ) ) ) (while s (setq en(ssname s 0) h(cdr(assoc 40 (entget en))) ...; 个人分类: 文字|922 次阅读|2 个评论热度 1

分享 2013-07-02: crazylsp 2013-7-2 17:53; (defun c:yx() (setq s (ssget ":E:S") en1 (ssname s 0) ) (vla-getboundingbox (vlax-ename-vla-object en1) 'p1 'p2) (setq p2 (vlax-safearray-list p2) &nbs ...; 个人分类: 文字|729 次阅读|0 个评论

分享练习排列文字 2013611 今天简化一下2013 622: crazylsp 2013-6-10 23:57; ; 20130611 (defun c:ttt() (setq p1 (getpoint"指定间距角度的第一拾取点") p2 (getpoint p1"指定间距的第2拾取点) & ...; 个人分类: 文字|946 次阅读|0 个评论热度 2

分享消息框的学习 LJS整理于20121227: crazylsp 2012-12-27 11:20; (1)用vbTab显示单元格的值 vbTab插入制表符号 PrivateSubUserForm_Click() DimMsgAsString DimrAsInteger,cAsInteger Dimcells(0To2,0To2)AsInte ...; 921 次阅读|0 个评论

12 3 / 3 页下一页

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

GMT+8, 2024-4-29 16:41 , Processed in 0.383848 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部