摘要: 1 //字符串转换宏 2 //简写意思: C: const, T: Cstring, W: wstring, A: string 3 4 //Cstring 转 wchar_t*: 5 wchar_t* p = cstr.AllocSysString() 6 7 //Cstring 转 string 阅读全文
posted @ 2024-06-08 11:57 大力水手008 阅读(217) 评论(0) 推荐(0)
摘要: 1、建立零件模型,选Standard.ipt: 2、在XY平面建立草图,画水管路径如倒U形,如下图。注意,左端点与原点重合。可以将此草图改名为“水管路径草图”。 3、在XZ平面建立草图,投影水管路径的那个端点,然后以此端点为圆心画一个圆,如下图。可把此草图改名为“水流截面初始草图”,把XZ平面改名为 阅读全文
posted @ 2024-04-06 01:28 大力水手008 阅读(822) 评论(0) 推荐(0)
摘要: 1 //改色 2 void cmdChangeColorX(bool bRand=true, CAXA::UInt16 color_Index = 10) 3 { 4 CDraft::ErrorStatus es; 5 CRxDbObjectId objID; 6 CRxDbEntity* pEnt 阅读全文
posted @ 2024-03-29 23:14 大力水手008 阅读(124) 评论(0) 推荐(0)
摘要: 1 //点序号,有图开图,无图建图 2 void cmdOpenDrawFromSN() 3 { 4 //所有图纸文件必须在一个文件夹内,且图纸文件名必须为“图纸编号+图纸名称.exb”这种。 5 // 且必包含至少一个"-",如“ABC-01法兰.exb”,该图纸标题栏中图纸编号是"ABC-01" 阅读全文
posted @ 2024-03-27 21:45 大力水手008 阅读(180) 评论(0) 推荐(0)
摘要: 1 ;Lisp实现鼠标拖画 2 (defun c:grr(/ halfLength halfWidth gr code p xx yy p1x p1y p2x p2y p3x p3y p4x p4y ) 3 (setq L(getreal "请输入长度:")) 4 (setq W(getreal " 阅读全文
posted @ 2023-11-16 21:57 大力水手008 阅读(202) 评论(0) 推荐(0)
摘要: VBA不像lisp可以随意在命令行参数中传递对象,但可以采取如下方法: Dim obj as AcadXXX Dim ObjHandle as String …… '将对象句柄转换成lisp表达式字符串,传递过去 ObjHandle = "(list(handent" & Chr(34) & obj 阅读全文
posted @ 2023-11-05 22:04 大力水手008 阅读(248) 评论(0) 推荐(0)
摘要: AutoCAD二次开发用到的资料: 阅读全文
posted @ 2023-11-04 17:01 大力水手008 阅读(33) 评论(0) 推荐(0)
摘要: Autodesk Inventor软件是很棒的三维机械设计软件,与SolidWorks齐名,可惜普及度不及后者。 用Inventor的"参数"功能进行序列化零件设计很方便,如果再加上iLogic(简化的VBA),就更方便了。 “参数”功能,可能在参数间添加各种公式,比如一个圆盘,如果直径是厚度是2倍 阅读全文
posted @ 2023-10-29 20:51 大力水手008 阅读(923) 评论(0) 推荐(0)
摘要: '定义从excel程序、工作表、工作簿等对象 Private mXlapp As Excel.Application 'Excel程序对象Private mXlbook As Excel.Workbook '工作簿Private mXlsts As Excel.Sheets '注意这里必须用shee 阅读全文
posted @ 2023-10-24 19:20 大力水手008 阅读(51) 评论(0) 推荐(0)
摘要: 双拼输入法是相对于全拼输入法而言的,其效率比全拼输入法要高很多。 双拼的意思就是所有声母用一个字母代表,所有韵母用一个字母代表,也就是说,任意一个汉字的拼音只需俩字母就可以了。比如: 汉字: 全拼: 双拼: 你好 ni hao ni hk (k=ao) 慌张 huang zhang ht ah (t 阅读全文
posted @ 2023-10-24 19:03 大力水手008 阅读(240) 评论(0) 推荐(0)