吾爱汇编论坛

 找回密码
 立即注册

QQ登录

绑定QQ避免忘记帐号

查看: 574|回复: 71

[源码] 趣味小代码,练习用的

  [复制链接]

  离线 

升级   13.33%

zhangmaobo721 发表于 2021-11-13 15:53 | 显示全部楼层 |阅读模式


  • (defun C:qxy()
  •   (setvar "CMDECHO" 0)
  •   (setq en (car (entsel "\n 选取一圆:")))
  •   (setq cen2 (getpoint "\n 切圆圆心:"))
  •   (princ "\n 按任意键可转动切圆,[Enter]结束...")
  •   (setq endata (entget en))
  •   (setq cen1 (cdr (assoc 10 endata)))
  •   (setq rr1 (cdr (assoc 40 endata)))
  •   (setq dd (distance cen1 cen2))
  •   (setq rr2 (abs (- dd rr1)))
  •   (command "CIRCLE" cen2 rr2)
  •   (setq en2 (entlast))
  •   (setq k 1)
  •   (while (- k 13)
  •     (command "ROTATE" en2 "" cen1 10)
  •     (setq k (cadr (grread)))
  •   )
  •   (prin1)
  • )

评分

参与人数 7HB +14 THX +3 收起 理由
agan8888 + 1
pmm018 + 1
jyltzj + 1 [吾爱汇编论坛52HB.COM]-吃井不忘打水人,给个评分懂感恩!
foreversos + 1
jhf123 + 1 [快捷评语]--吃水不忘打井人,给个评分懂感恩!
5830854 + 1 + 1 [快捷评语]--你将受到所有人的崇拜!
Shark_鹏 + 10 [快捷评语]--吃水不忘打井人,给个评分懂感恩!

查看全部评分

吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

白云点缀的蓝 发表于 2021-11-13 18:14 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

ST手怎么白了 发表于 2021-11-13 19:30 | 显示全部楼层


谢谢分享~~~
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  在线 

升级   90.62%

Shark_鹏 发表于 2021-11-14 16:53 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

消逝的过去 发表于 2021-11-16 09:11 | 显示全部楼层


这个可以,点个赞
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   20%

jyltzj 发表于 2021-12-24 22:07 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   10%

xh0321 发表于 2022-1-22 09:35 | 显示全部楼层


感谢楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

包容指甲油 发表于 2022-1-22 20:09 | 显示全部楼层


感谢楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

单身有冬天 发表于 2022-1-22 20:10 | 显示全部楼层


看来到吾爱汇编论坛学习是真的对了
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

现代和日记本 发表于 2022-1-22 20:12 | 显示全部楼层


看着很不错,回复一个看看
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 警告:本站严惩灌水回复,尊重自己从尊重他人开始!

1层
2层
3层
4层
5层
6层
7层
8层
9层
10层

免责声明

吾爱汇编论坛(www.52hb.com)所发布的破解补丁、注册机、逆向教程、逆向文章等,包含但不限于上述内容,仅限用于学习和研究目的,不得用于非法途径或商业行为。否则,一切后果请用户自行承担。本站内容源于网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除。如果您喜欢某程序,请购买正版,支持正版,获得正版优质服务。如有侵权请邮件或微信与我们联系处理。

站长邮箱:SharkHeng@iCloud.com
站长微信:SharkHeng


QQ|RSS|手机版|小黑屋|帮助|吾爱汇编论坛 ( 京公网安备11011502005403号 , 京ICP备20003498号 )

GMT+8, 2022-5-21 08:13 , Processed in 0.284584 second(s), 76 queries .

Powered by Discuz!

吾爱汇编论坛 www.52hb.com

快速回复 返回顶部 返回列表