langjs 发表于 2014-7-3 11:47:51

修改了一下，貌似没那个错误提示了，具体啥原因不明

;;; luyu9635 2009.11.12 langjs修改
;;; 动态框选圆角,保留图元框选的一侧
(defun c:fdt ( / gr loop p1)
(vl-load-com)
(setvar "filletrad" 0)
(setvar "cmdecho" 0)
(prompt "\n请选择对象:")
(setq loop t)
(while loop
    (setq gr (grread t 4 2))
    (if (= (car gr) 3)(setq p1 (cadr gr) loop nil )))
(if (ssget p1 p1)(command "fillet" (osnap p1 "near") (osnap (cadr (entsel)) "near"))(getfillet p1))
(princ)
)
(defun getfillet (pt / a b gr loop lst p1 plst ptlst ss ssmid)
(setq p1 pt)
(setq loop t)
(while loop
    (setq gr (grread t 15 0))
    (cond ((= (car gr) 5)
        (setq plst (list p1 (list (car p1) (cadr (cadr gr))) (cadr gr) (list (car (cadr gr)) (cadr p1)) p1) ptlst plst)(redraw)
        (repeat 4(grdraw (car plst) (cadr plst) 2 1)(setq plst (cdr plst)))
        (setq ssmid (mapcar'(lambda (a b) (* (+ a b) 0.5)) p1 (cadr gr)))
        (if (setq ss (ssget "F" ptlst))
          (if (and(= (sslength ss) 2)(not (member (ssname ss 0) lst))(not (member (ssname ss 1) lst)))
          (progn(setq lst (list (ssname ss 0) (ssname ss 1)))
              (command ".UNDO" "BE")
              (command "fillet" (vlax-curve-getclosestpointto (car lst) ssmid) (vlax-curve-getclosestpointto (cadr lst) ssmid))
              (command ".UNDO" "E")))
          (progn (if lst (command ".UNDO" ""))(setq lst nil))))
      ((member (car gr) '(3 11 25))
        (setq loop nil))))
(redraw)
)

yoyoho 发表于 2014-7-6 20:30:00

感谢 langjs 分享程序!

luyu9635 发表于 2014-7-23 21:04:01

langjs 发表于 2014-7-3 11:47 static/image/common/back.gif
修改了一下，貌似没那个错误提示了，具体啥原因不明

;;; luyu9635 2009.11.12 langjs修改


谢谢langjs大侠

恕放之生命 发表于 2014-7-30 10:11:23

学习一下。

皇上快溜 发表于 2016-9-9 19:44:22

要是能输入r值就好了

GNJLISP 发表于 2016-9-28 13:28:05

能加重复使用吗？而不是倒一次后就停了

GNJLISP 发表于 2016-9-29 16:44:20

langjs 发表于 2014-7-3 11:47
修改了一下，貌似没那个错误提示了，具体啥原因不明

;;; luyu9635 2009.11.12 langjs修改


这个可以加个重复使用吗？而不是倒一次就退也命令，帮忙改改，谢谢

安若浅溪 发表于 2017-9-24 21:28:50

要是能加入R角跟C角就完美了

mnmnvmm2 发表于 2017-11-12 11:42:38

谢谢楼主的分享！感激

fsafaffa 发表于 2017-11-12 11:45:17

非常好的东西
页: 1 2 [3] 4
查看完整版本: [原创]动态倒角,框选倒角