明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
分享 组合
mahuan1279 2015-11-7 23:07
(defun ff (lst) (defun f (n) (setq i 0 flst nil) (while (= i n) (setq flst (cons i flst)) (setq i (+ i 1)) ) (reverse flst) ) (if (and (= (length lst) ...
1791 次阅读|0 个评论
分享 倒数之和
mahuan1279 2015-11-1 23:16
本帖最后由 aimisiyou 于 2015-10-14 23:28 编辑 1/ a + 1/ b + 1/ c = 1/ n , a= b= c , 且 都 为 自 然 数 , 已 知自然数 n 求 ...
1846 次阅读|2 个评论 热度 2
分享 快速求因子
mahuan1279 2015-11-1 23:09
(defun factor (n) (defun f (z)(+ (* z z) 1)) (setq x 1 y x k 0 i 1 d 1) (while (= d 1) (setq k (+ 1 k)) (setq x (f x)) &nb ...
1568 次阅读|0 个评论
分享 分解质因数
mahuan1279 2015-11-1 23:02
(defun fj (n) (defun f (n) (cond ((= n 2) (setq va (list 2))) ((= n 3) (setq va (list 3 2))) ((= n 4) (setq va (list 3 2))) & ...
1391 次阅读|0 个评论
分享 关于 列表中添加引号的方法
skg123 2015-10-31 17:47
关于 列表中添加引号的方法
将列表 表(1 2 3 4 5 )返回 成表(“1” “2” “3” “4” “5”)的方面 经过群里高手的指导,实现了预期效果 谢谢 天堂Ж 院长 经过指点,达到了预期 (setqLST_s(list(mapcar'vl-prin1-to-stringLST))) ;(setqLST_s(mapc ...
1294 次阅读|0 个评论 热度 1
分享 lisp在CAD中直接生成二维码,连日文都支持
革天明 2015-10-15 11:10
lisp在CAD中直接生成二维码,连日文都支持
有图有真相,中、英、日都支持,其它语种没有测试。支持定义容错级别,L、M、Q、 H。
947 次阅读|4 个评论 热度 4
分享 求大神改个命令
winerfjy 2015-10-10 17:02
求大神改个命令
(defun c:fd ()(setvar "cmdecho" 0)(command "dimtedit" (ssget":s") "l" "")(PRINC "尺寸向左完成")(prin1)) (defun c:df ()(setvar "cmdecho" 0)(command "dimtedit" (ssget":s") "R" "")(PRINC "尺寸向右完成")(prin1)) 这两个命令能不能加个判断合并为一个命令 点选标注值为25的尺寸 让在左边的到右边右边的到左边 ...
372 次阅读|1 个评论 热度 1
分享 有心人的世界
wayne_myles 2015-10-6 08:25
这个世界既不是有钱人的世界,也不是有权人的世界,它是有心人的世界。一个人幸运的前提,其实是他有能力改变自己。经营自己的长处,能使你人生增值;经营你的短处,能使你人生贬值。地球是运动的,一个人不会永远处在倒霉的位置。世界早安!
971 次阅读|0 个评论 热度 2
分享 C#学习日记2-GETXXX方法
lionguns 2015-9-30 11:55
今天的目标就是搞定输入方法! 如LSP中的GETXXXX。
795 次阅读|1 个评论 热度 2
分享 C#学习日记1-万事开头难
lionguns 2015-9-29 09:20
研究了几天C#二次开发了。 发现比想像中的简单, 但没学过C,自学看了一遍,基础还是不过硬。 下一步准备把C#入门的资料先孰读-移植LSP库到C#。
779 次阅读|0 个评论 热度 2

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

GMT+8, 2024-4-30 00:23 , Processed in 0.536371 second(s), 8 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部