求个倒圆角 有不同处 能否实现

lzg8877

         如图   倒R角时 一般是打断虚线 倒完R角 再将虚线复完  有法子直接倒角 长了剪  短了伸  不到虚线行吗

lzg8877

请问那里出问题了   捕捉丢失
选择要打断（延伸）的线：*取消*
调用(*push-error-using-command*)前无法从 *error* 调用(command)。
建议将(command)调用转换为(command-s)。

ZZXXQQ

;程序未经调试

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (setq r (getdist "\n圆角半径r= "))
   
5.   (command "_.FILLET" "R" r)
   
6. )
   
7. (while (and (setq s1 (entsel "\n选择要打断(延伸)的线: "))
   
8.              (setq ent (entget(car s1)))
   
9.              (= (cdr(assoc 0 ent)) "LINE")
   
10.              (setq s2 (entsel "\n选择另一条线: ")))
    
11.   (setq p1 (cdr(assoc 10 ent)))
    
12.   (setq p2 (cdr(assoc 11 ent)))
    
13.   (setq pt (if (< (distance p1 (cadr s2)) (distance p2 (cadr s2))) p1 p2))
    
14.   (command "_.FILLET" "T" "N" s1 s2)
    
15.   (command "_.EXTEND" "L" "" pt "")
    
16.   (command "_.TRIM" "L" "" pt "")
    
17.   (command "_.FILLET" "T" "T" "")
    
18. )
    
19. (setvar "CMDECHO" 1)
    
20. (princ)
    
21. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (if (setq r (getdist "\n圆角半径r= "))<br />   (command "_.FILLET" "R" r)<br /> )<br /> (while (and (setq s1 (entsel "\n选择要打断(延伸)的线: "))<br />              (setq ent (entget(car s1)))<br />              (= (cdr(assoc 0 ent)) "LINE")<br />              (setq s2 (entsel "\n选择另一条线: ")))<br />   (setq p1 (cdr(assoc 10 ent)))<br />   (setq p2 (cdr(assoc 11 ent)))<br />   (setq pt (if (< (distance p1 (cadr s2)) (distance p2 (cadr s2))) p1 p2))<br />   (command "_.FILLET" "T" "N" s1 s2)<br />   (command "_.EXTEND" "L" "" pt "")<br />   (command "_.TRIM" "L" "" pt "")<br />   (command "_.FILLET" "T" "T" "")<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

lzg8877

谢谢Z版 效果没达到  我学习下 改改看

ZZXXQQ

lzg8877 发表于 2015-5-28 13:34
谢谢Z版 效果没达到  我学习下 改改看

沙发修好了，试试看。

xyp1964

2. (defun c:tt ()
   
3.   (setq rr (UREAL 7 "" "圆角半径" rr))
   
4.   (setvar "FILLETRAD" rr)
   
5.   (setvar "osmode" 0)
   
6.   (while (and (setq s1 (entsel "\n选择要打断(延伸)的线: "))
   
7.               (setq s2 (entsel "\n选择另一条线: "))
   
8.          )
   
9.     (command "copy" (car s2) "" '(0 0) '(0 0))
   
10.     (setq s3 (entlast))
    
11.     (command "fillet" s1 s2)
    
12.     (command "erase" s2 "")
    
13.   )
    
14.   (princ)
    
15. )

(defun c:tt ()<br />   (setq rr (UREAL 7 "" "圆角半径" rr))<br />   (setvar "FILLETRAD" rr)<br />   (setvar "osmode" 0)<br />   (while (and (setq s1 (entsel "\n选择要打断(延伸)的线: "))<br />               (setq s2 (entsel "\n选择另一条线: "))<br />          )<br />     (command "copy" (car s2) "" '(0 0) '(0 0))<br />     (setq s3 (entlast))<br />     (command "fillet" s1 s2)<br />     (command "erase" s2 "")<br />   )<br />   (princ)<br /> )

lzg8877

确实强大 如果选错时还可以复位 让重选就更好了

spp_wall

好像只对直线有效  而且好像线过长不会剪切 过短 不会延伸

lzg8877

圆角半径r=
选择要打断(延伸)的线:
选择另一条线:
窗口说明无效。
; 错误: 函数被取消  不知这是为什么 昨天在家测试还好 公司不行

spp_wall

ZZXXQQ 发表于 2015-5-28 10:03
;程序未经调试

好像剪切了虚线  a和B不会延伸！

冒个烟圈

xyp1964 发表于 2015-5-28 21:39

效果好，。反复测试结果OK。。虽然用不上，但楼主的代码精简实用，学习了