注册 登录
明经CAD社区 返回首页

crazylsp的个人空间 http://www.mjtd.com/?369855 [收藏] [复制] [分享] [RSS]

统计信息

已有 552 人来访过

    现在还没有记录

  • 性别
  • 生日
  • 学历硕士

查看全部个人资料

    现在还没有动态

把常用的几个单行文本程序放到一起 2014-03-19
;输入整数手工修改单行文本开头的数字 (defun c:tt()      (while(setq stn(car(entsel)))       (setq num  (geti ...
(1206)次阅读|(0)个评论
当线位置改变后,把标示的箭头重新移动到新位置线 2013-12-16
;;.lsp ;;排序函数(HH:ssPts:Sort ssPts KEY FUZZ) 见黄老师的 http://bbs.mjtd.com/thread-107489-1-1.html (defun c:tt()    ;输入KEY值 ...
(1057)次阅读|(0)个评论
'测试VB粘贴剪贴板的文字到EXCEL 2013-12-09
Sub 粘贴一个多行文字内容() 'Dim xlApp As Excel.Application 'Dim xlBook As Excel.WorkBook 'Dim xlSheet As Excel.Worksheet '在程序中操作EXCE ...
(610)次阅读|(0)个评论
做个实验用按钮的控件数组显示图中块名 2013-12-09
用MSForms控件的按钮可以控件数组,但由于是excel的控件,石乎不兼容CAD,是不是要建个Frame框架再放置按钮什么的?  'VBA动态生成控件数组并能响应事件 ' ...
(650)次阅读|(0)个评论
动态一拐引出线 还可以改进地方有许多 2013-12-06
(defun c:tt()    ;第一节    (setq pt1(getpoint))    (ZML-GRREADLST pt1 )    (setq ob1(entlast) ...
(670)次阅读|(0)个评论
统一指定基点缩放 2013-09-29
;统一指定基点缩放 未考虑太多(defun c:tt()  (princ "\n 选择箭头等图形")  (setq en(entsel))  (if en(progn  (setq enn(car en) enpt(g ...
(8147)次阅读|(0)个评论

查看更多

你需要登录后才可以留言 登录 | 注册


freeok 2012-12-9 23:27
谢谢!这个宝地留下脚印!!:)
crazylsp 2011-11-22 10:37
谢谢你咯,我暂时不用了,用的时候再找你要哈  
cjjh8301 2011-11-22 09:30
单转多 单独的LISP 没有,但是贱人工具5.2  免费版里有这个程序,你可以用用,我还有个文字修改大师,是要安装的,你要的话邮箱给我好了。
cjjh8301 2011-11-21 16:58
不是这个,那个网页上的大小有230M呢,是一个网友自己拍的,但是现在链接下不了,我看你在那个帖子里回了帖说下载了,不过没关系找不到就算了,还是要谢谢你的 !!
crazylsp 2011-11-21 16:57
你有没有单行文本转多行文本的程序,有则给我一份哈
cjjh8301 2011-11-21 16:08
额。。这个我已经有了,是有点模糊的那个版本,放在手机里就看不清了;我说的是你在这个帖子中http://bbs.mjtd.com/thread-79269-1-1.html 下的高清版的有没有呢?
crazylsp 2011-11-21 15:57
已经发了,如没收到我再发
cjjh8301 2011-11-21 10:08
不好意思好久没上网    QQ 邮箱  158250849@qq.com
crazylsp 2011-11-17 20:26
说下邮箱号,我传给你
cjjh8301 2011-11-17 14:21
你好,打扰了, [高清版]lisp魔法书基础篇 这本书不知道你还有没有,有的话可以QQ邮箱传我一份吗,原来链接上的115 账号已进不去了。
谢谢!
查看全部

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

GMT+8, 2018-9-24 13:48 , Processed in 0.115674 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部