AutoCAD Lisp程序100例

jzyyx · 发表于 2009-5-5 14:22:00

好资料,向楼主学习,

preschool · 发表于 2009-5-10 23:43:58

顶你没话说哦

u47321111 · 发表于 2009-9-5 20:55:23

好东西都值得学习。感谢。

xtjoe · 发表于 2009-9-17 18:14:52

我一直运用AutoLISP进行二次开发，今得到楼主的100个实例，非常受用，十分感谢！

dxl1236 · 发表于 2009-9-23 22:14:00

谢谢了！！！刚学这个应该会有用！！

MING20090914 · 发表于 2009-9-24 21:23:05

是啊！！在这里学习了不少的东西啊！！真好啊！！也没什么太好的东西贡献啊！！！

哥哥很善良 · 发表于 2009-9-25 22:55:11

师傅我来啦，谢谢你，我会好好学习的。

sqsdi · 发表于 2009-9-25 23:37:07

不需要下支持一下吧

fjianzhong · 发表于 2009-10-16 16:52:15

感谢楼主的奉献

tan_123 · 发表于 2009-10-17 02:24:56

好东西

tan_123 · 发表于 2009-10-17 09:45:34

值得学习下

tan_123 · 发表于 2009-10-22 20:21:19

感谢分享！很不错

JCF0002 · 发表于 2009-12-31 16:26:38

谢谢搂主分享，先下来保存以備不時之需!!

yihua_2626 · 发表于 2009-12-31 18:54:26

我想要，有没有其它的了，谢谢

joanring · 发表于 2010-1-2 08:34:55

很多虽然已经有了，但确实不错~！

ZJH274 · 发表于 2010-1-4 10:48:38

嗯。很不错的资料，谢谢。

ming78 · 发表于 2010-1-6 12:56:19

感谢楼主无私奉献谢谢搂主

CHENMEIYAN1227 · 发表于 2010-1-6 16:22:14

非常感谢！

heihaho · 发表于 2010-1-16 15:47:20

再加点使用说明就更好了，呵呵

heihaho · 发表于 2010-1-18 22:19:29

好东西，收藏啦，多谢

dangssw · 发表于 2010-10-20 16:39:05

好东西方呀

ysryc99001 · 发表于 2010-10-21 10:36:35

很好，学习学习。

ysryc99001 · 发表于 2010-10-21 10:39:14

请帮忙解决，运行时，就没有了，不知问题出在那里，谢谢。
(defun C:rect ()
  (setq pt1 (getpoint "select first point:")
pt2 (getcorner pt1 "select second point:")
pt3 (list (car pt1) (cadr pt2))
pt4 (list (car pt2) (cadr pt1))
  )
  (command "pline" pt1 pt3 pt2 pt4 "c")
  (command "select " "L" "")
  (initget 128 "YES No")
  (setq YESNO (getkword "diagonal line (Y/N):"))
  (if (= YESNO "YES")
(progn
   (command "line" pt1 pt2 "")
   (command "select" "P" "L" "")
   (command "line" pt3 pt4 "")
   (command "select" "p" "L" "")
)
  )
  (command "rotate" "p" "" pt1)
  (* (getangle pt1 "rotate angle:") (/ 180 Pi))
(princ)
)

hbwfh · 发表于 2010-11-18 09:16:49

非常感谢！非常感谢！

zgssd · 发表于 2010-11-19 15:27:30

下载学习，谢谢楼主分享

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

通知

[分享] AutoCAD Lisp程序100例

浏览过的版块