2013-08-20 QQ群：CAD开发高级服务群(325489190) 聊天记录：(defun c:ec4 () (COMMAND "UNDO&qu

CCarch · 发表于 2013-8-20 08:32:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

图~涂(443181606)于2013-08-20 08-32-15：
(defun c:ec4 ()
(COMMAND "UNDO" "BE")
(setq p0 (getpoint))
(setq p1 (getpoint))
(setq ang (angle p0 p1))
(if (< ang (/ pi 2))
(progn
(command "insert" "ec1-4" p0 "" "" "")
(command "explode" "l")
(setq ang 100)
)
)各位前辈这几句话肿么个意思呢

caoliu023 · 发表于 2013-8-20 10:11:48

月明(24259243)于2013-08-20 10-11-48：
你写的？

caoliu023 · 发表于 2013-8-20 10:13:01

月明(24259243)于2013-08-20 10-13-01：
这个没什么用，比我写的差

非ing · 发表于 2013-8-20 19:55:17

非(1832727311)于2013-08-20 19-55-17：
今天可有课？

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