多义线动态倒角求优化或推荐类似程序

cq4920

自己做的动态倒角，但是效果不是很好
R的值 能显示出来 并且能直接输入  (单击左键输入R值)
R的弦 如果可以控制凹凸 就好了 （原理不难，但非矩形好像没意义）
非直角 也能相对正确倒圆了 （切点的位置不太准确）

生成的圆弧依次收尾相连就是想要得到的图形，但是曲线的端点顺序不太好控制，连接圆弧收尾总是会出现错误，非闭合曲线就更麻烦。


顺便问一下，在模型空间内，我怎么获取视口的最大坐标和最小坐标？黄总的函数解决了，文字大小可以固定了

感谢xyp1964 提供的一串特别好的代码

2. ;;多义线倒圆
   
3. (defun c:fds (/ r rr p0 pts en ent k a r pn p1 p2 p3 pa pb pc rr)
   
4.   (setq ent (entsel) en (entlast) bb T)
   
5.     (setq  p0 (mc:mind (car ent))
   
6.     pts (MJ:Massoc 10 (entget (car ent))))
   
7.   (setq k (car (MJ:Massoc 70 (entget (car ent)))))
   
8.   (while bb
   
9.     (setq mouse (grread t 8))
   
10.     (setq a (car mouse) r t)
    
11.     (cond
    
12.       ((= a 5)
    
13.         (if (= (equal r rr) nil)
    
14.           (progn
    
15.             (setq pn (cadr mouse)
    
16.                     r (distance p0 pn)
    
17.                     n (length pts) ptss pts)
    
18.             (if (= k 0) (setq n (- n 2)))
    
19.             (vl-cmdf "_.erase"  (last_ent en) "")
    
20.             (repeat n
    
21.               (setq p1 (car ptss)
    
22.                 p2 (cadr  ptss)
    
23.                 p3 (caddr ptss))
    
24.               ;; 核心
    
25.               (setq rad (* (- (angle p2 p3) (angle p2 p1)) 0.5)
    
26.                 rad (if (< rad 0) (+ rad pi)rad);夹角
    
27.                 ll  (abs (/ r (sin rad))) ;斜边长度
    
28.                 l1  (sqrt (- (* ll ll) (* r r))) ;直角边长度
    
29.                 pa (polar p2 (angle p2 p1) l1)
    
30.                 pb (polar p2 (angle p2 p3) l1)
    
31.                 pc (polar p2  (angle p2 (mc:md pa pb)) (- ll r))
    
32.               )
    
33.               (make-arc  pa pc pb)
    
34.               (setq ptss (append (cdr ptss) (list (car ptss))))
    
35.             )
    
36.             (setq rr r en0 (entlast))
    
37.             (setq ptmin (car (viewpnts)) ptmax (cadr (viewpnts)))
    
38.            (entmake (list '(0 . "TEXT") (cons 1 (rtos r 2 2)) (cons 10 p0) (cons 40 (/ (distance ptmin ptmax) 100))))
    
39.             (setq txt (entlast))
    
40.             (Mc:ZXc p0 pn 3)
    
41.             (setq zx (entlast))
    
42.           )))
    
43.       ((= 3 a)
    
44.         (progn         
    
45.           (setq  n (length pts) ptss pts  r (getdist p0 ))
    
46.           (vl-cmdf "_.erase"  (last_ent en) "")
    
47.           (if (= k 0) (setq n (- n 2)))
    
48.           (repeat n
    
49.             (setq p1 (car  ptss)
    
50.               p2 (cadr  ptss)
    
51.               p3 (caddr ptss))
    
52.             (setq rad (* (- (angle p2 p3) (angle p2 p1)) 0.5)
    
53.               rad (if (< rad 0) (+ rad pi)rad);夹角
    
54.               ll  (abs (/ r (sin rad))) ;斜边长度
    
55.               l1  (sqrt (- (* ll ll) (* r r))) ;直角边长度
    
56.               pa (polar p2 (angle p2 p1) l1)
    
57.               pb (polar p2 (angle p2 p3) l1)
    
58.               pc (polar p2  (angle p2 (mc:md pa pb)) (- ll r))
    
59.             )
    
60.             (make-arc  pa pc pb)
    
61.             (setq ptss (append (cdr ptss) (list (car ptss))))
    
62.           )
    
63.           (setq bb nil)
    
64.         )
    
65.       )
    
66.       ((or (= 25 a) (= 11 a) (= a 2));右键
    
67.        (progn  
    
68.        (vl-cmdf "_.erase" zx "")
    
69.        (vl-cmdf "_.erase" txt "")   
    
70.        (setq bb nil)
    
71.       ))   
    
72.     )
    
73.   )
    
74. )
    

;;多义线倒圆<br /> (defun c:fds (/ r rr p0 pts en ent k a r pn p1 p2 p3 pa pb pc rr)<br />   (setq ent (entsel) en (entlast) bb T)<br />     (setq  p0 (mc:mind (car ent))<br />     pts (MJ:Massoc 10 (entget (car ent))))<br />   (setq k (car (MJ:Massoc 70 (entget (car ent)))))<br />   (while bb<br />     (setq mouse (grread t 8))<br />     (setq a (car mouse) r t)<br />     (cond<br />       ((= a 5)<br />         (if (= (equal r rr) nil)<br />           (progn<br />             (setq pn (cadr mouse)<br />                     r (distance p0 pn) <br />                     n (length pts) ptss pts)<br />             (if (= k 0) (setq n (- n 2)))<br />             (vl-cmdf "_.erase"  (last_ent en) "")<br />             (repeat n<br />               (setq p1 (car ptss)<br />                 p2 (cadr  ptss)<br />                 p3 (caddr ptss))<br />               ;; 核心<br />               (setq rad (* (- (angle p2 p3) (angle p2 p1)) 0.5)<br />                 rad (if (< rad 0) (+ rad pi)rad);夹角<br />                 ll  (abs (/ r (sin rad))) ;斜边长度<br />                 l1  (sqrt (- (* ll ll) (* r r))) ;直角边长度<br />                 pa (polar p2 (angle p2 p1) l1)<br />                 pb (polar p2 (angle p2 p3) l1)<br />                 pc (polar p2  (angle p2 (mc:md pa pb)) (- ll r))<br />               )<br />               (make-arc  pa pc pb)<br />               (setq ptss (append (cdr ptss) (list (car ptss))))<br />             )<br />             (setq rr r en0 (entlast))<br />             (setq ptmin (car (viewpnts)) ptmax (cadr (viewpnts)))<br />            (entmake (list '(0 . "TEXT") (cons 1 (rtos r 2 2)) (cons 10 p0) (cons 40 (/ (distance ptmin ptmax) 100))))<br />             (setq txt (entlast))<br />             (Mc:ZXc p0 pn 3)<br />             (setq zx (entlast))<br />           )))<br />       ((= 3 a)<br />         (progn          <br />           (setq  n (length pts) ptss pts  r (getdist p0 ))<br />           (vl-cmdf "_.erase"  (last_ent en) "")<br />           (if (= k 0) (setq n (- n 2)))<br />           (repeat n<br />             (setq p1 (car  ptss)<br />               p2 (cadr  ptss)<br />               p3 (caddr ptss))<br />             (setq rad (* (- (angle p2 p3) (angle p2 p1)) 0.5)<br />               rad (if (< rad 0) (+ rad pi)rad);夹角<br />               ll  (abs (/ r (sin rad))) ;斜边长度<br />               l1  (sqrt (- (* ll ll) (* r r))) ;直角边长度<br />               pa (polar p2 (angle p2 p1) l1)<br />               pb (polar p2 (angle p2 p3) l1)<br />               pc (polar p2  (angle p2 (mc:md pa pb)) (- ll r))<br />             )<br />             (make-arc  pa pc pb)<br />             (setq ptss (append (cdr ptss) (list (car ptss))))<br />           )<br />           (setq bb nil)<br />         )<br />       )<br />       ((or (= 25 a) (= 11 a) (= a 2));右键<br />        (progn  <br />        (vl-cmdf "_.erase" zx "")<br />        (vl-cmdf "_.erase" txt "")   <br />        (setq bb nil)<br />       ))    <br />     )<br />   )<br /> )<br />

2. ;;117.3 [功能] 返回当前视窗左下角和右上角 坐标
   
3. (defun viewpnts  (/ A B C D X)
   
4.   (setq d (getvar "screensize"))      ;屏像素
   
5.   (setq  b (* (getvar "viewsize") 0.5)          ;viewsize屏竖长
   
6.   a (* b (/ (car d) (cadr d)))          ;屏横长
   
7.   x (trans (getvar "viewctr") 1 2)        ;屏中点viewctr
   
8.   c (list (- (car x) a) (- (cadr x) b) 0.0)
   
9.   d (list (+ (car x) a) (+ (cadr x) b) 0.0)
   
10.   )
    
11.   (list (trans c 2 1) (trans d 2 1))
    
12. )

;;117.3 [功能] 返回当前视窗左下角和右上角 坐标<br /> (defun viewpnts  (/ A B C D X)<br />   (setq d (getvar "screensize"))      ;屏像素<br />   (setq  b (* (getvar "viewsize") 0.5)          ;viewsize屏竖长<br />   a (* b (/ (car d) (cadr d)))          ;屏横长<br />   x (trans (getvar "viewctr") 1 2)        ;屏中点viewctr<br />   c (list (- (car x) a) (- (cadr x) b) 0.0)<br />   d (list (+ (car x) a) (+ (cadr x) b) 0.0)<br />   )<br />   (list (trans c 2 1) (trans d 2 1))<br /> )

xiangganglv

这个不知道用在什么地方。

xyp1964

;; 核心
(setq rad (* (- (angle p2 p3) (angle p2 p1)) 0.5)
      rad (if (< rad 0) (+ rad pi)rad);夹角
      ll  (abs (/ bj (sin rad))) ;斜边长度
      l1  (sqrt (- (* ll ll) (* bj bj))) ;直角边长度
)

BHL-DONG

大佬们继续优化