求修改一下lsp，添加上比例设置

lff763 · 发表于 2014-10-15 22:01:29

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

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

×

(defun c:zdx()          ;折断线练习
(setq
   p0 (getpoint "\n 第一边点位置：")
   p01 (getpoint "\n 第二边点位置：")
               a0 (angle p0 p01)
               a  (angtof "76")
               h  (distance p0 p01)
               p1 (polar p0 (+ pi a0) 300)
                                       p2 (polar p01 a0 300)
               p02 (polar p0 a0 (/ h 2))
               p3 (polar p02 (+ pi a0) 75)
               p4 (polar p02 a0 75)
               p5 (polar p3 (+ a0 a) 155)
               p6 (polar p4 (+ (+ pi a0) a) 155)
            )
            (command "pline" p1 p3 p5 p6 p4 p2 "")
            )

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

[公告] 求修改一下lsp，添加上比例设置

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