[编程申请]：点选矩形对角点画出木作龙骨(如图示)

ld80721 · 发表于 2008-8-25 20:22:02

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

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

×

在任意矩形内点选对角点画出木作龙骨(如图),最好是lisp文件，能在Ｒ１４下使用，谢谢

ld80721 · 发表于 2008-8-25 20:23:40

编辑后的效果

zml84 · 发表于 2008-8-29 18:13:43

开个头，剩下的留给你。
[php]
(defun c:tt (/)
(if (and (setq sp (getpoint "\nFirst corner:"))
      (setq ep (getcorner sp "\nOther corner:"))
)
(progn
      (COMMAND "_rectang" "non" sp "non" ep)
      (COMMAND "_offset"
      30
      (entlast)
      "non"
      (polar sp (angle sp ep) (* 0.5 (distance sp ep)))
      ""
      )
)
)
(princ)
)
[/php]

xyp1964 · 发表于 2008-8-29 22:02:43

龙骨

ld80721 · 发表于 2008-8-29 23:27:44

谢了,很完美!

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

[编程申请]：点选矩形对角点画出木作龙骨(如图示)

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

相关帖子

Re: [编程申请]：点选矩形对角点画出木作龙骨(如图示)