矩形如何画成倒圆角

819534890

如图所示，圆弧的半径为r，圆弧向里凹，不是往外凸。

819534890

谢谢了，我自己解决了，等下贴出代码。把群码42 的值改为相反值就行。

1. ;批量多段线圆角，和FILLET的圆角方向相反，简化版
   
2. (defun c:ff(/ radius radius1 ss en)
   
3.   (setq radius (getvar "FILLETRAD"))
   
4.   (if (setq radius1
   
5.              (getdist (strcat "\n请指定圆角半径<" (rtos radius) ">:"))
   
6.       )
   
7.     (setq radius radius1)
   
8.   )
   
9.   (if (setq ss(ssget '((0 . "lwpolyline"))))
   
10.     (progn
    
11.       (setq echo1 (getvar "cmdecho"))
    
12.       (setvar "cmdecho" 0)
    
13.       (while (setq en(ssname ss 0))
    
14.         (ffr en radius)
    
15.          (rer en)
    
16.         (setq ss (ssdel en ss))
    
17.         )
    
18.       (if echo1 (setvar "cmdecho" echo1))
    
19.       )
    
20.     )
    
21.   (princ)
    
22.   )
    
23. (defun ffr(en r)
    
24.   (setvar "FILLETRAD" r)
    
25.   (command "_.FILLET" "P" en)
    
26.   )
    
27. (defun rer(sn / x sn_g p42)
    
28. (setq sn_g (entget sn))
    
29. (setq sn_g (mapcar '(lambda (x) (if (= (car x) 42 ) (setq x (cons 42 (- 0 (cdr x)))) x)) sn_g))  
    
30. (entmod sn_g)
    
31. )

;批量多段线圆角，和FILLET的圆角方向相反，简化版<br /> (defun c:ff(/ radius radius1 ss en)<br />   (setq radius (getvar "FILLETRAD"))<br />   (if (setq radius1<br />              (getdist (strcat "\n请指定圆角半径<" (rtos radius) ">:"))<br />       )<br />     (setq radius radius1)<br />   )<br />   (if (setq ss(ssget '((0 . "lwpolyline"))))<br />     (progn<br />       (setq echo1 (getvar "cmdecho"))<br />       (setvar "cmdecho" 0)<br />       (while (setq en(ssname ss 0))<br />         (ffr en radius)<br />          (rer en)<br />         (setq ss (ssdel en ss))<br />         )<br />       (if echo1 (setvar "cmdecho" echo1))<br />       )<br />     )<br />   (princ)<br />   )<br /> (defun ffr(en r)<br />   (setvar "FILLETRAD" r)<br />   (command "_.FILLET" "P" en)<br />   )<br /> (defun rer(sn / x sn_g p42)<br /> (setq sn_g (entget sn))<br /> (setq sn_g (mapcar '(lambda (x) (if (= (car x) 42 ) (setq x (cons 42 (- 0 (cdr x)))) x)) sn_g))  <br /> (entmod sn_g)<br /> )

下文没句号。

819534890 发表于 2014-12-3 21:29
谢谢了，我自己解决了，等下贴出代码。把群码42 的值改为相反值就行。

不错,感谢，拿来用用。。

大角牛

好好好好好好

wzg356

圆心在角点上？
1、画矩形（或选择矩形）
2、取得四角点
3、根据角点、半径算出弧的三点
4、根据3点画弧
5、相邻弧的端点画直线
6、连接4段直线、4个弧成一条多线段
7、删除原矩形

434939575

4角上画圆，矩形中心点BO。我是这样想的。

ZZXXQQ

2. (defun c:tt ()
   
3. (if (and (setq pt1 (getpoint "\n第一角点: "))
   
4.     (setq pt2 (getcorner pt1 "\n另一角点: "))
   
5.     (setq r (getdist "\n圆弧半径: "))) (progn
   
6. (setq ptm (mapcar '(lambda (a b) (/ (+ a b) 2)) pt1 pt2))
   
7. (setq pt3 (list (car pt1) (cadr pt2)))
   
8. (setq pt4 (list (car pt2) (cadr pt1)))
   
9. (command "CIRCLE" pt1 r "CIRCLE" pt3 r "CIRCLE" pt2 r "CIRCLE" pt4 r)
   
10. (command "RECTANG" pt1 pt2)
    
11. (command "BOUNDARY" ptm "")
    
12. (command "ERASE" "C" pt1 pt2 "R" "L" "")
    
13. ))
    
14. (princ)
    
15. )
    

(defun c:tt ()<br /> (if (and (setq pt1 (getpoint "\n第一角点: "))<br />     (setq pt2 (getcorner pt1 "\n另一角点: "))<br />     (setq r (getdist "\n圆弧半径: "))) (progn<br /> (setq ptm (mapcar '(lambda (a b) (/ (+ a b) 2)) pt1 pt2))<br /> (setq pt3 (list (car pt1) (cadr pt2)))<br /> (setq pt4 (list (car pt2) (cadr pt1)))<br /> (command "CIRCLE" pt1 r "CIRCLE" pt3 r "CIRCLE" pt2 r "CIRCLE" pt4 r)<br /> (command "RECTANG" pt1 pt2)<br /> (command "BOUNDARY" ptm "")<br /> (command "ERASE" "C" pt1 pt2 "R" "L" "")<br /> ))<br /> (princ)<br /> )<br />

819534890

ZZXXQQ 发表于 2014-12-3 22:01

谢谢啦！！
你这个是新画矩形，我刚才贴了一个修改的，同时对多段线也也适用。

depgfdepgf

要是能在矩型内点选就更好了！

tianyi1230

不错，使用的时候比较实惠！

ps122hb

不错，多谢分享

自贡黄明儒

ps122hb 发表于 2014-12-7 13:06
不错，多谢分享

1. (defun C:w1 (/ E0 EN X)
   
2.   (setq e0 (entlast))
   
3.   (command "_.rectang" "F")
   
4.   (while (not (equal (getvar "cmdnames") "")) (apply 'command (list pause)))
   
5.   (cond
   
6.     ((not (equal e0 (entlast)))
   
7.      (setq en (entget (entlast)))
   
8.      (entmod (mapcar '(lambda (x)
   
9.                         (cond ((equal (car x) 42) (cons 42 (abs (cdr x))))
   
10.                               (T x)
    
11.                         )
    
12.                       )
    
13.                      en
    
14.              )
    
15.      )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

(defun C:w1 (/ E0 EN X)<br />   (setq e0 (entlast))<br />   (command "_.rectang" "F")<br />   (while (not (equal (getvar "cmdnames") "")) (apply 'command (list pause)))<br />   (cond<br />     ((not (equal e0 (entlast)))<br />      (setq en (entget (entlast)))<br />      (entmod (mapcar '(lambda (x)<br />                         (cond ((equal (car x) 42) (cons 42 (abs (cdr x))))<br />                               (T x)<br />                         )<br />                       )<br />                      en<br />              )<br />      )<br />     )<br />   )<br />   (princ)<br /> )