放坡插件

newer · 发表于 2018-4-3 00:04:27

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

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

x

(defun c:XDTB_FangPo ( / ept1 ept2 height pts spt val)
(if (and
(setq spt (getpoint "放坡起点<退出>:"))
(setq height (getdist spt "\n输入坡高<退出>:"))
)
(progn
(if (not #xd_var_global_fangpo_scl)
(setq #xd_var_global_fangpo_scl 2.0)
)
(if (setq val (getreal (xdrx_prompt "\n1:? 放坡<"
#xd_var_global_fangpo_scl ">:" t
)
)
)
(setq #xd_var_global_fangpo_scl val)
)
(if (not #xd_var_global_fangpo_width)
(setq #xd_var_global_fangpo_width 100.0)
)
(if (setq val (getreal (xdrx_prompt "\n平台宽度<"
#xd_var_global_fangpo_width ">:" t
)
)
)
(setq #xd_var_global_fangpo_width val)
)
(if (not #xd_var_global_fangpo_num)
(setq #xd_var_global_fangpo_num 1)
)
(if (setq val (getint (xdrx_prompt "\n输入放坡数<"
#xd_var_global_fangpo_num ">:" t
)
)
)
(setq #xd_var_global_fangpo_num val)
)
(setq pts nil)
(repeat #xd_var_global_fangpo_num
(setq ept1 (mapcar
'+
spt
(list (* height #xd_var_global_fangpo_scl) height 0.0)
)
ept2 (mapcar
'+
ept1
(list #xd_var_global_fangpo_width 0.0 0.0)
)
)
(setq pts (cons ept2 (cons ept1 (cons spt pts))))
(setq spt ept2)
)
(xdrx_polyline_make (xd::pnts:ucs2wcs (reverse pts)))
)
)
(princ)
)

(defun c:XDTB_FangPo ( / ept1 ept2 height pts spt val) 
  (if (and 
        (setq spt (getpoint "放坡起点<退出>:")) 
        (setq height (getdist spt "\n输入坡高<退出>:")) 
      ) 
    (progn 
      (if (not #xd_var_global_fangpo_scl) 
        (setq #xd_var_global_fangpo_scl 2.0) 
      ) 
      (if (setq val (getreal (xdrx_prompt "\n1:? 放坡<" 
                                          #xd_var_global_fangpo_scl ">:" t 
                             ) 
                    ) 
          ) 
        (setq #xd_var_global_fangpo_scl val) 
      ) 
      (if (not #xd_var_global_fangpo_width) 
        (setq #xd_var_global_fangpo_width 100.0) 
      ) 
      (if (setq val (getreal (xdrx_prompt "\n平台宽度<" 
                                          #xd_var_global_fangpo_width ">:" t 
                             ) 
                    ) 
          ) 
        (setq #xd_var_global_fangpo_width val) 
      ) 
      (if (not #xd_var_global_fangpo_num) 
        (setq #xd_var_global_fangpo_num 1) 
      ) 
      (if (setq val (getint (xdrx_prompt "\n输入放坡数<" 
                                         #xd_var_global_fangpo_num ">:" t 
                            ) 
                    ) 
          ) 
        (setq #xd_var_global_fangpo_num val) 
      ) 
      (setq pts nil) 
      (repeat #xd_var_global_fangpo_num 
        (setq ept1 (mapcar 
                     '+ 
                     spt 
                     (list (* height #xd_var_global_fangpo_scl) height 0.0) 
                   ) 
              ept2 (mapcar 
                     '+ 
                     ept1 
                     (list #xd_var_global_fangpo_width 0.0 0.0) 
                   ) 
        ) 
        (setq pts (cons ept2 (cons ept1 (cons spt pts)))) 
        (setq spt ept2) 
      ) 
      (xdrx_polyline_make (xd::pnts:ucs2wcs (reverse pts))) 
    ) 
  ) 
  (princ) 
)

yangjian001 · 发表于 2018-4-3 08:25:16

[插件发布] 放坡插件

w379106181 · 发表于 2018-4-3 20:52:57

谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享

denghui002006 · 发表于 2018-10-24 21:40:07

貌似输入坡高就自动退出了

evayleung · 发表于 2018-10-25 02:03:45

谢谢分享。。。。。。。。。。。

lixiaolin · 发表于 2018-10-25 10:18:55

谢谢分享。。。

xoyo88 · 发表于 2019-5-6 22:08:20

如有，反坡程序就好了。

sicky111 · 发表于 2019-5-9 00:07:49

谢谢分享、

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

[工具] 放坡插件

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