【Gu_xl】大家一起来推荐你认为优秀的明经论坛Lisp源码帖子

flytoday · 发表于 2012-1-4 18:15

阅读权限高于 95 才能浏览

mccad · 发表于 2012-1-4 19:46

保持神秘感，不然到时书都没有人买了

jfxia · 发表于 2012-1-4 20:19

本帖最后由 Gu_xl 于 2012-1-4 20:20 编辑

推荐相同刷

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91302

myjping · 发表于 2012-1-5 09:27

http://bbs.mjtd.com/thread-91590-1-1.html
这个是刚上来的，理由是这个东东的涉及到的较多，稍改一下就能做成其它的小工具，比如序号球、动态对齐等

myjping · 发表于 2012-1-5 09:40

本帖最后由 myjping 于 2012-1-5 11:45 编辑

http://bbs.mjtd.com/thread-4718-1-9.html
呵呵，这个了解的人很少，但学过线性代数的人就知道这个的用途，坐标的相互转换这个才是基础，有了这个从块内向外转点或从外向块内转点都简单不过了；原贴有点问题后来我修正了一下；
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91627&page=1&extra=#pid502049
呵呵，我刚上传的作为图层、标注、文字样式合并的工具，花了我不少时间，但依旧没达到我想要的效果，主要是块内的图层、标注、文字样式合并时有时会不能将原样式删除；这类东东实际用到的很广泛，但大家都不太重视，可能太基础了吧；所以到现在好用的没有几个，而且比都比较简陋；比较论坛上其它的觉得要好一些；

自贡黄明儒 · 发表于 2012-1-5 15:10

本帖最后由自贡黄明儒于 2012-1-6 08:16 编辑

;1 highflybird的很好，就不用说了
；2 xshirmp的系统变量监控很好
http://bbs.mjtd.com/thread-72874-1-1.html
;3 [风之影]粗糙度许多教材上的粗糙示例远比这个差
http://bbs.mjtd.com/thread-91278-1-1.html
论坛上的很多帖子都不错，但不实用

669423907 · 发表于 2012-1-5 21:30

本帖最后由 669423907 于 2012-1-10 11:42 编辑

我也推荐几个

ZZXXQQ 版智能圆标注：
http://bbs.mjtd.com/thread-87170-1-1.html

zhynt 大师的按色选择与动态线型比例的完美结合：
http://bbs.mjtd.com/thread-87905-1-1.html

idljb 大师的标公差程序：
http://bbs.mjtd.com/thread-85976-2-1.html

风大侠的基准标识：
http://bbs.mjtd.com/thread-91590-1-2.html

【KAIXIN】大师的快速插入块程序：
http://bbs.mjtd.com/thread-87858-1-1.html

myjping 大师的快速智能建块程序（VLX）：http://bbs.mjtd.com/thread-91688-1-1.html

还有一个不知是哪位大师写的批打：
;横打
(defun c:pd()
(setq ss(ssget '((8 . "99图框"))))
(setq n 0)
(repeat (sslength ss)
(setq en (ssname ss n))
(setq obj (vlax-ename->vla-object en))
(vla-GetBoundingBox obj 'minpt 'maxpt)
(setq minPt (vlax-safearray->list minPt))
(setq maxPt (vlax-safearray->list maxPt))
(setq minptx (car minpt))
(setq minpty (cadr minpt))
(setq maxptx (car maxpt))
(setq maxpty (cadr maxpt))
(if (< (- maxptx minptx) (- maxpty minpty))
(dayin2 minpt maxpt)
(dayin1 minpt maxpt))
(setq n (1+ n)))(PRINC))
(defun dayin1(p1 p2)
(command "_plot" "y" "模型" "\Canon iP1100 series" "A4" "M" "L" "N" "W" P1 P2 "F" "C" "Y" "黄转蓝.ctb" "n" "a" "n" "n""y"))
(defun dayin2(p1 p2)
(command "_plot" "y" "模型" "\Canon iP1100 series" "A4" "M" "p" "N" "w" P1 P2 "F" "C" "Y" "黄转蓝.ctb" "n" "a" "n" "n""y"))

峰峰兒 · 发表于 2012-1-6 20:49

提示: 作者被禁止或删除内容自动屏蔽

flytoday · 发表于 2012-1-18 13:26

mccad 发表于 2012-1-4 19:46
保持神秘感，不然到时书都没有人买了

有附带源码光盘或程序不…有申请买一本

flytoday · 发表于 2012-1-18 14:06

一本建议价格在300元左右

账号		自动登录	找回密码
密码			注册

[【Gu_xl】] 【Gu_xl】大家一起来推荐你认为优秀的明经论坛Lisp源码帖子

点评

评分

评分

点评

评分

评分

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2012-1-6 20:49 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡