QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
楼主: 唐昕晨
收起左侧

[分享] AutoCAD Lisp程序100例

[复制链接]
发表于 2009-5-5 14:22:00 | 显示全部楼层 来自: 中国湖南湘潭
好资料,向楼主学习,
发表于 2009-5-10 23:43:58 | 显示全部楼层 来自: 中国浙江温州
顶你没话说哦
发表于 2009-9-5 20:55:23 | 显示全部楼层 来自: 中国四川成都
好东西都值得学习。感谢。
发表于 2009-9-17 18:14:52 | 显示全部楼层 来自: 中国河南郑州
我一直运用AutoLISP进行二次开发,今得到楼主的100个实例,非常受用,十分感谢!
发表于 2009-9-23 22:14:00 | 显示全部楼层 来自: 中国北京
谢谢了 !!!刚学这个应该会有用!!
发表于 2009-9-24 21:23:05 | 显示全部楼层 来自: 中国山东烟台
是啊 !!在这里学习了不少的东西啊 !!真好啊 !!也没什么太好的东西贡献啊!!!
发表于 2009-9-25 22:55:11 | 显示全部楼层 来自: 中国广东汕头
师傅我来啦,谢谢你,我会好好学习的。
发表于 2009-9-25 23:37:07 | 显示全部楼层 来自: 中国陕西西安
不需要下支持一下吧
发表于 2009-10-16 16:52:15 | 显示全部楼层 来自: 中国四川绵阳
感谢楼主的奉献
发表于 2009-10-17 02:24:56 | 显示全部楼层 来自: 中国湖南长沙
好东西
发表于 2009-10-17 09:45:34 | 显示全部楼层 来自: 中国湖南长沙
值得学习下
发表于 2009-10-22 20:21:19 | 显示全部楼层 来自: 中国湖南长沙
感谢分享!很不错
发表于 2009-12-31 16:26:38 | 显示全部楼层 来自: 中国台湾
谢谢搂主分享,先下来保存以備不時之需!!
发表于 2009-12-31 18:54:26 | 显示全部楼层 来自: 中国浙江温州
我想要,有没有其它的了,谢谢
发表于 2010-1-2 08:34:55 | 显示全部楼层 来自: 中国浙江台州
很多虽然已经有了,但确实不错~!
发表于 2010-1-4 10:48:38 | 显示全部楼层 来自: 中国湖北武汉
嗯。很不错的资料,谢谢。
发表于 2010-1-6 12:56:19 | 显示全部楼层 来自: 中国台湾
感谢楼主无私奉献 谢谢搂主
发表于 2010-1-6 16:22:14 | 显示全部楼层 来自: 中国山东威海
非常感谢!
发表于 2010-1-16 15:47:20 | 显示全部楼层 来自: 中国山东青岛
再加点使用说明就更好了,呵呵
发表于 2010-1-18 22:19:29 | 显示全部楼层 来自: 中国山东青岛
好东西,收藏啦,多谢
发表于 2010-10-20 16:39:05 | 显示全部楼层 来自: 中国广东东莞
好东西方呀
发表于 2010-10-21 10:36:35 | 显示全部楼层 来自: 中国广东深圳
很好,学习学习。
发表于 2010-10-21 10:39:14 | 显示全部楼层 来自: 中国广东深圳
请帮忙解决,运行时,就没有了,不知问题出在那里,谢谢。" s' B5 `6 ]) d% y# y2 Q$ `# y" o2 k  _
(defun C:rect ()
8 ]2 Q- I0 [, m) q, m5 b  (setq        pt1 (getpoint "select first point:")& D# c5 {" b. U6 P8 h  a
        pt2 (getcorner pt1 "select second point:")
+ }9 S# q' l% @, @* R& P, D# R        pt3 (list (car pt1) (cadr pt2))
! V6 r. a  b4 F, {+ @        pt4 (list (car pt2) (cadr pt1))
) N" y; b; u9 n; W  )
) M: E% G2 |1 |) y$ ^3 [, a, ^  (command "pline" pt1 pt3 pt2 pt4 "c")
" M' u1 t; b: [! V9 e! c  (command "select " "L" "")
" b8 @  P7 R/ ]$ @' E7 ?. J  (initget 128 "YES No")
! r. `9 ^0 k. d  (setq YESNO (getkword "diagonal line (Y/N):"))8 W; B' M0 u% H/ `
  (if (= YESNO "YES")- U9 L$ _4 g! O! O9 M
    (progn
) f. h; `0 c. P5 {      (command "line" pt1 pt2 "")
$ R% C+ p; _; W/ Y% h) V. ]: [      (command "select" "P" "L" "")
4 X- [5 O, w  j$ m( v. R  J      (command "line" pt3 pt4 "")
7 u4 q0 l) t' c0 r      (command "select" "p" "L" "")- z3 Y% l% h& ?4 |  L
    )
! ]% l5 A) H' U  )' b( d) E7 R% u7 Z/ |/ a
  (command "rotate" "p" "" pt1)) D6 U" K4 w; X9 H: P
  (* (getangle pt1 "rotate angle:") (/ 180 Pi))" [( M- k/ e- ~. c5 C* B# S, P. P
(princ)
5 _- L7 n0 p5 i! c)
发表于 2010-11-18 09:16:49 | 显示全部楼层 来自: 中国河北邯郸
非常感谢!非常感谢!
发表于 2010-11-19 15:27:30 | 显示全部楼层 来自: 中国山东青岛
下载学习,谢谢楼主分享
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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