求一个结构用的钢筋断点lisp程序

石井鱼

本人菜鸟，画图时经常遇到画钢筋斜钩问题，苦于每次都要先画短线，再倒角，拉长度，繁琐不已，期盼哪位高手解决此问题，不胜感激！（TSSD程序有类似功能“斜钩断点”，但必须是PL线，不是很方便）具体可见附件CAD。

q3_2006

2. (defun c:tt ( / e en la p pp pt pt1 pt2 px)
   
3. (defun mkline (la pt1 pt2) (entmakex (list '(0 . "LINE") (cons 8 la) (cons 10 pt1) (cons 11 pt2))))
   
4.   (vl-load-com)
   
5.   (while (setq en (entsel "\n选择钢筋断点:")
   
6.   pt (getpoint "\n点取弯钩方向:")
   
7.   )
   
8.   (setq e (car en)
   
9.     la (cdr (assoc 8 (entget e)))
   
10.     p (vlax-curve-getClosestPointTo e (cadr en))
    
11.     px (vlax-curve-getClosestPointTo e pt)
    
12.     pp (polar px (angle px p) 1e6)
    
13.   )
    
14.     (cond
    
15.       ((equal (* 0.25 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 0.25 pi) 100)) (vl-cmdf "break" (list e p) pp))
    
16.       ((equal (* 0.75 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 0.75 pi) 100)) (vl-cmdf "break" (list e p) pp))
    
17.       ((equal (* 1.25 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 1.25 pi) 100)) (vl-cmdf "break" (list e p) pp))
    
18.       ((equal (* 1.75 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 1.75 pi) 100)) (vl-cmdf "break" (list e p) pp))
    
19.       (t (exit))
    
20.     )
    
21.   )
    
22. )

(defun c:tt ( / e en la p pp pt pt1 pt2 px)<br /> (defun mkline (la pt1 pt2) (entmakex (list '(0 . "LINE") (cons 8 la) (cons 10 pt1) (cons 11 pt2))))<br />   (vl-load-com)<br />   (while (setq en (entsel "\n选择钢筋断点:")<br />   pt (getpoint "\n点取弯钩方向:")<br />   )<br />   (setq e (car en)<br />     la (cdr (assoc 8 (entget e)))<br />     p (vlax-curve-getClosestPointTo e (cadr en))<br />     px (vlax-curve-getClosestPointTo e pt)<br />     pp (polar px (angle px p) 1e6)<br />   )<br />     (cond <br />       ((equal (* 0.25 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 0.25 pi) 100)) (vl-cmdf "break" (list e p) pp))<br />       ((equal (* 0.75 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 0.75 pi) 100)) (vl-cmdf "break" (list e p) pp))<br />       ((equal (* 1.25 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 1.25 pi) 100)) (vl-cmdf "break" (list e p) pp))<br />       ((equal (* 1.75 pi) (angle p pt) (* 0.249 pi)) (mkline la p (polar p (* 1.75 pi) 100)) (vl-cmdf "break" (list e p) pp))<br />       (t (exit))<br />     )<br />   )<br /> )

石井鱼

q3_2006 发表于 2014-6-24 17:57

非常感谢“q3_2006”鼎力相助，可能我没有表达清楚，那个形成的钩是在鼠标点击的地方形成，并不是直线的末端头，加钩的同时把45度角另一侧135度的线段截断并删除，不知能否改进，谢谢

石井鱼

另外斜钩在直线中间形成，钩的方向有上下左右，能否鼠标点击4个方向确定

q3_2006

石井鱼 发表于 2014-6-25 09:07
非常感谢“q3_2006”鼎力相助，可能我没有表达清楚，那个形成的钩是在鼠标点击的地方形成，并不是直线的末 ...

上面代码改好了....

q3_2006

加钩的同时把45度角另一侧135度的线段截断并删除....上个图...看不懂....

q3_2006

关闭捕捉....忘了....

石井鱼

q3_2006 发表于 2014-6-25 11:57
加钩的同时把45度角另一侧135度的线段截断并删除....上个图...看不懂....

高手果然不一般！非常接近了，示意一下，就是把剩下的截掉（云线部分），倒个角也行

q3_2006

石井鱼 发表于 2014-6-25 12:19
高手果然不一般！非常接近了，示意一下，就是把剩下的截掉（云线部分），倒个角也行

代码已经改了...

石井鱼

非常完美的程序，感激涕零！