QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 版主微信号:caivin811031;还未入三维微信群的小伙伴,速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
楼主: 唐昕晨
收起左侧

[分享] 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 | 显示全部楼层
请帮忙解决,运行时,就没有了,不知问题出在那里,谢谢。+ c- y. t' |+ i7 a  ?% h
(defun C:rect ()7 j$ S8 {" q& K1 f' ]
  (setq        pt1 (getpoint "select first point:")7 q% G& q2 J/ G+ F% Z; q
        pt2 (getcorner pt1 "select second point:")
7 B( f. }$ S: D/ X+ ^1 H        pt3 (list (car pt1) (cadr pt2))' q  c9 \# J* B# j+ Y' D* u- [
        pt4 (list (car pt2) (cadr pt1))$ q8 u+ J" E. y% j8 ?# j0 E3 z' @
  )1 e) k3 e+ R' ~7 E' D7 }+ F
  (command "pline" pt1 pt3 pt2 pt4 "c")0 w" x7 Q4 Y% O8 @8 x  e% a
  (command "select " "L" "")5 v# T! J: Z2 l  M
  (initget 128 "YES No")
( i$ X; B; t$ G+ H* m0 V/ K  (setq YESNO (getkword "diagonal line (Y/N):"))
* G2 M1 u9 D* A. Z6 U+ ^: a  (if (= YESNO "YES")
: B" t8 X$ Y, V    (progn
: H+ |) ?8 @* {. i- L  t8 M      (command "line" pt1 pt2 "")
) n) n+ N" E0 V- w! @# |. M* I0 J      (command "select" "P" "L" "")
6 R2 z1 w0 Q. D' X; S9 t/ h; y      (command "line" pt3 pt4 "")7 F0 F9 `8 {6 k0 T! x8 J) ?8 ?
      (command "select" "p" "L" "")+ B  R4 B; y7 O* u, E( N1 ~
    )
$ |# [. s) T0 ^1 m) s  )
2 ?8 Y, _- E( S/ r  (command "rotate" "p" "" pt1)  F' [0 d$ b" q8 y9 _5 k9 t% k
  (* (getangle pt1 "rotate angle:") (/ 180 Pi))
9 `# M9 z4 H+ Z: r* k7 U, X(princ)
6 f7 E' U& U; n6 Y4 Z5 j! w- D)
发表于 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备13008828号-1 )

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