一段画管道的程序，为什么个别角度倒角不对，请高手指教？

zxc001975cvb

一段画管道的程序，个别角度倒角半径不对，请高手指教？见图
(defun c:TEST()
  
  (defun SetLayer (TLayer Tcolor Tltyle)   
     (setq chklay (tblsearch "layer" Tlayer))
     (if (= chklay nil)                        
      (command "layer" "n" TLayer "c" Tcolor Tlayer "l" Tltyle Tlayer "")
     )                                            
  )
  (setq Tlayer "0" Tcolor "0" tltyle "")
  (SetLayer "BFsb" "1" "continuous")
  (SetLayer "Bfcen" "5" "center")
  
  (setq et1 nil et2 nil et3 nil et4 nil)  
  (defun mken(p1 p2)
    (entmakex
      (list '(0 . "line") (cons 10 p1) (cons 11 p2))
    )
  )
  (setq widt (getreal "\n请输入管径<mm>:"))
  (if (= widt nil)(setq widt 200))
  (setq str1 (rtos widt 2 2))
  (prompt "\n  now dline width is: ")
  (prompt str1)
  (setq alf0 0)
  (if (setq pt1 (getpoint "\n 起始点:"))   
    (while (setq pt2 (getpoint pt1 "\n 下一点:"))
      (redraw)

      (if (and et1 et2)
        (setq et3 et1 et4 et2)
      )
      (setq r (* 0.5 widt))
      (setq alf1 (angle pt1 pt2))
      (setq p1tp (polar pt1 (+ alf1 (/ PI 2.0)) r))
      (setq p2tp (polar pt2 (+ alf1 (/ PI 2.0)) r))
      (setq p1bt (polar pt1 (- alf1 (/ PI 2.0)) r))
      (setq p2bt (polar pt2 (- alf1 (/ PI 2.0)) r))
      
      (if (<= alf1 alf0)
        (progn
          (if (> alf1 (/ PI 2.0))
          (setq dis2 (+ widt r) dis3 (- widt r))
          (setq dis2 (- widt r) dis3 (+ widt r))
          )
        )
        (progn
          (if (> alf1  (/ PI 2.0))
          (setq dis2 (- widt r) dis3 (+ widt r))
          (setq dis2 (+ widt r) dis3 (- widt r))
          )
        )
      )
      (setvar "clayer" "bfcen")
      (mken pt1 pt2)
      
      (setvar "clayer" "bfsb")
      (setq et1 (mken p1tp p2tp))
      (setq et2 (mken p1bt p2bt))
      (setq pt1 pt2 )
      (setq alf0 alf1)
      (setvar "FILLETRAD" dis2)
      (command "FILLET"  et1 et3)
      (setvar "FILLETRAD" dis3)
      (command "FILLET"  et2 et4)
    )
  )  
  (princ)
)

Lisphk

没看到图。

zxc001975cvb

见下面附图

ynhh

zxc001975cvb 发表于 2019-1-21 17:22
见下面附图

不知您这改好了吗
也想学习一下
谢谢

ynhh

zxc001975cvb 发表于 2019-1-21 17:22
见下面附图

不知您这改好了吗
也想学习一下
谢谢