[其他]：多段线怎么动态倒角

露水2

多段线怎么动态倒角

carrot1983

[php]
                                        ;动态倒角 carrot1983 2008-12-16
                                        ;测试环境: CAD2006
(defun c:tt (/ dis e filletrad grr pt1 pt2)
  (setvar "cmdecho" 0)
  (setq e (car (entsel)))
  (setq filletrad (getvar "FILLETRAD"))
  (setq pt1 (getpoint "\n指定圆角半径:"))
  (while (and (setq grr (grread t 4 0))
              (or (= (car grr) 2)
                  (= (car grr) 5)
                  (= (car grr) 25)
              )
         )
    (setq pt2 (cadr grr))
    (setq dis (distance pt1 pt2))
    (setvar "FILLETRAD" dis)
    (command "._FILLET" "p" e)
  )
  (setvar "filletrad" filletrad)
)
[/php]

露水2

[QUOTE]最初由 carrot1983 发布
感谢萝卜头

aaddff

学习下，谢谢

happyboy75

我改了一下罗卜的东东哈哈 别笑
;动态倒角 carrot1983 2008-12-16
;;测试环境: CAD2006
(defun c:tt (/ dis e filletrad grr pt1 pt2)
  (setvar "cmdecho" 0)
  (setq pt0(getpoint "\n输入第一个角点:"))
  (setq pt1(getcorner pt0 "\n输入第二个角点:"))
  (command "_rectang" pt0 pt1)
  (setq e (entlast))
  (setq filletrad (getvar "FILLETRAD"))
  ;(setq pt1 (getpoint "\n指定圆角半径:"))
  (while (and (setq grr (grread t 4 0))
          (or (= (car grr) 2)
          (= (car grr) 5)
          (= (car grr) 25)
          )
     )
    (setq pt2 (cadr grr))
    (setq dis (distance pt1 pt2))
    (setvar "FILLETRAD" dis)
    (command "._FILLET" "p" e)
  )
  (setvar "filletrad" filletrad)
)

fl202

5楼的：我个人感觉长方形就不用画了吧？这个程序本身的目的就是修改长方形的。所以如果你自己画了一个长方形的话，我现在有一个画好的长方形，而且不是最后生成的，你没法修改了吧。
这样有点画蛇添足的味道，我个人的看法。

hzh2000

很好呀

快乐王子刚

happyboy75 发表于 2009-2-16 17:22

你这是画矩形然后动态倒角，能不能选择两条线，或者圆弧，然后动态倒角呢。