[分享]：分享lisp程序(方框+对角线)

crtrccrt · 发表于 2004-5-17 23:02:38

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

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

×

[php]
(defun c:fkx (/ pt1 pt2 pt3 pt4)
(command ".undo" "be")
(graphscr)
(setq pt1 (getpoint " 第一个角"))
(setq pt3 (getcorner pt1 " 第二个角"))
(setq pt2 (list (car pt1)(cadr pt3)))
(setq pt4 (list (car pt3)(cadr pt1)))
(command "pline" pt1 pt2 pt3 pt4 "c")
(command "pline" pt1 pt3 "")
(command "pline" pt2 pt4 "")
(command ".undo" "e")
(princ)
)
[/php]

lzy9788 · 发表于 2004-5-18 10:47:49

有必要吗？？没什么用

昵称不要脸 · 发表于 2020-5-14 22:08:47

这个很实用，我收下了，感谢分享

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

[分享]：分享lisp程序(方框+对角线)

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

相关帖子