590
社区成员
发帖
与我相关
我的任务
分享这段代码又大神看得懂吗？
(progn ;;普通块
(command ".copy" e "" p0 "")
(setq e (entlast))
(getent e)
;; (modent 10 (trans p0 1 0) 41 1. 42 1. 43 1. 50 (autoe 0.))
(modent 10 p0 41 1. 42 1. 43 1. 50 0.)
(command ".explode" e)
(if (and (setq ss (htfill1 nil (getlastss e)))
(> (sslength ss) 0)
)
(progn
(ucson)
(mkublk0 na p0 ss)
(ucsoff)
(command ;;".block" na "y" p0 ss ""
".draworder" (ssget "X" (list (cons 2 na))) "" "f")
)
)
)
(command ".copy" e "" p0 "")
(setq e (entlast))
(getent e)
;; (modent 10 (trans p0 1 0) 41 1. 42 1. 43 1. 50 (autoe 0.))
(modent 10 p0 41 1. 42 1. 43 1. 50 0.)
(command ".explode" e)
(if (and (setq ss (htfill1 nil (getlastss e)))
(> (sslength ss) 0)
)
(progn
(ucson)
(mkublk0 na p0 ss)
(ucsoff)
(command ;;".block" na "y" p0 ss ""
".draworder" (ssget "X" (list (cons 2 na))) "" "f")
)
)
)
...全文
请发表友善的回复…
发表回复
CStringError 2013-05-14
- 打赏
- 举报
看来还是有大神的啊，结贴
傻傻不解释 2013-05-11
- 打赏
- 举报
小驴来这里学习 2013-05-11
- 打赏
- 举报
每个字符都认识，连起来就不知道是啥了
去圣西罗-为尤文喝彩 2013-05-11
- 打赏
- 举报
CAD的lisp code，用来编辑.lsp之类的文件。
类似代码，可以参考 http://www.jtbworld.com/lisp/hatchb.htm
MagiSu 2013-05-11
- 打赏
- 举报
这个是lisp?
凉凉二点凉 2013-05-10
- 打赏
- 举报
能编译通过吗?
用户名已被屏蔽 2013-05-10
- 打赏
- 举报
不认识
大_漠 2013-05-10
- 打赏
- 举报
新人接分么么哒
楼主好人看着给点吧
楼主好人看着给点吧
