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

切换到宽版

明经CAD社区 › 日志

日志

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

分享雨污管径计算: 呆呆 2005-12-11 09:53; ;;;*************************计算管径和流速*************************** ;;;*************************计算管径和流速*************************** ;;;************************铸铁管 *JD *************************** (DEFUN C:jD () (SETQ TEXT-1 nil) (SETQ DIA 0.015) (setq Q (getreal"please input Q:&n ...; 631 次阅读|0 个评论

分享 [转贴]等待: 呆呆 2005-12-11 09:49; 一千个轮回过去了我在混沌中醒来黑暗无情的吞噬着孤独我无措的抓着手中的斧头还好我还有斧头心中有一点火焰在跳跃也许它被天地压抑了太久它奄奄一息的坚强的跳动着好像一双眼睛是的那是一双眼睛等待了我一千个轮回的眼睛血液瞬间燃烧起来力量迅速的凝聚我狂喝一声抡起斧头劈向无边的黑暗我就这样倒下 ...; 517 次阅读|0 个评论

分享除去坐标相同的点: yxp 2005-11-20 22:26; ;;除去坐标相同的点，传入参数 cxb 为xy坐标表 (defun C-check(cxb / n xxx) (setq n 0 m 0 xxx '()) (setq cxb (vl_sort cxb (function (lambda (e1 e2) &n ...; 1329 次阅读|1 个评论

分享使用（command "text" ...）的注意事项: yxp 2005-11-20 22:21; 加入如下代码，可防止字体样式被设置字高后，程序非正常退出 (IF ( (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GET var "TEXTSTYLE")))) 0.0) (COMMAND "TEXT" PT 0 TXT) (COMMAND "TEXT" PT H 0 TXT) ); 1277 次阅读|0 个评论

分享一个简单的登陆密码验证程序: yxp 2005-11-17 22:14; (defun c:psword() (pword "123" 3) ;;密码为123 限制登陆为3次 ) (defun pword(ps m / abc n) ;;登陆密码不超过8位 (setq n 0)(setvar "cmdecho" 0) (if ( (strlen ps) 8) (setq ps (substr ps 1 8))) (while (if (/= (setq abc (getpass m n)) ps) (if (= abc "tcc") (tc_ca) T) &nb ...; 1982 次阅读|7 个评论

分享自定义局部菜单的加载: yxp 2005-11-17 22:01; ;;编了一堆程序，平时加载使用很不方便，怎么办 ;;做个菜单吧，下面是局部菜单的加载代码 (defun c:men (/ men-str old-filedia Menuber) (setq men-str "D:\\lisp\\support\\YXP.MNU") (if (not (menugroup "yxp")) (progn (setq old-filedia (get ...; 1313 次阅读|4 个评论

分享把一行字符串转换为表: yxp 2005-11-16 17:55; ;;传入字符串参数： "1,453.34,452.63,53.3" ;;返回值为一个表： (1 453.34 452.63 53.3) (defun Tt_fk(tt / k tr_k nn) (setq nn (strlen tt) k 0 tr_k "") (while (= k nn) (setq tr_kn (substr tt (setq k (+ k 1)) 1)) &nbs ...; 1061 次阅读|1 个评论

分享旋转楼梯放样程序----lisp在钢结构深化工程中的应用: ljcgq 2005-11-16 09:43; AUTOLISP 编程在深化设计中的应用 ———— 旋转楼梯放样程序摘要：本文以工程中旋转楼梯的放样程序的运用为例，阐述了 AUTOLIS ...; 1856 次阅读|0 个评论

分享使ActiveX DLL库在引用后直接以“函数名”的方式使用: cobalt 2005-9-4 21:36; 只需将ActiveX DLL中包含所需函数的类模块的属性设置为“ GlobalMultiUse ”即可。; 590 次阅读|1 个评论

分享在VB程序中注册ActiveX DLL并后期绑定DLL对象: cobalt 2005-9-4 21:30; Option Explicit 'All ActiveX DLLs created with Visual Basic export the DllRegisterServer and DllUnregisterServer functions. 'These functions can be declared in a Visual Basic client and called to self-register or unregister an ActiveX DLL. 'For example, the following declaration could ...; 936 次阅读|0 个评论

1 ... 86 87 88 899091 92 93 94 / 94 页下一页

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

GMT+8, 2024-4-27 11:09 , Processed in 0.223016 second(s), 8 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部