crazylsp 发表于 2012-8-14 15:40:11

程序中d1 (distance p2 pp1)好像d1要改成d3 哈。

lidaxiu 发表于 2012-8-23 21:23:27

呵呵，这个不错好多地方能用的到

yaokui25 发表于 2012-8-23 22:09:08

呵呵，这个不错好多地方能用的到

yaokui25 发表于 2012-8-23 22:50:23

xiaxiang 发表于 2012-4-24 14:34 static/image/common/back.gif
对程序进行了重写

为什么执行命令之后，在原来图形基础上又做了一个圆弧，也就是原来的图形仍然保留着。这是什么原因呢？大家没有这种现象？我是菜鸟，希望能得到楼主的解答

♂葶芷の跳動.√ 发表于 2012-12-13 21:06:20

【KAIXIN】 发表于 2012-4-23 18:20 static/image/common/back.gif
程序没有问题，应该是CAD的问题....

你好。我想要这个文件，又不知道从那里下载，能给我一个吗？？在此感放……327178801@qq.com

laorenhao999 发表于 2014-12-3 14:06:37

感激15楼啊，大好人！

dabingrain 发表于 2016-7-22 15:27:13

;批量倒圆角
(defun c:TT ( / rr minl maxr n en en1 en2 CURVE TLEN)
(setq cm (getvar "cmdecho") os (getvar "osmode"))
(setvar "cmdecho" 0)       
        (COMMAND ".undo" "BE")
(prompt "请选择直线，相连的才能倒角:")
(while (setq en (ssget '((0 . "LINE"))))
                (setq N 0 MINL 0)
                (repeat (sslength en)
                        (setq CURVE (vlax-ename->vla-object (ssname en N)))
                        (setq TLEN (vlax-curve-getdistatparam
                                                                       CURVE
                                                                       (vlax-curve-getendparam CURVE)
                                                               )
                        )
                        (if (= minl 0) (setq minl tlen))
                        (if (> minl tlen) (setq minl tlen))
                        (setq N (1+ N))
                )
                (setq maxR (/ minl 2))
                (if ( = rr nil)(setq rr (1+ maxR)))               
                (while (> rrmaxR)
                        (setq rr (getreal (strcat "\n 输入r的大小 R≤" (rtos maxR) ":<" (rtos (fix maxR)) ">")) aa nil)
                )
                (setq n (sslength en))
                (command "fillet" "r" rr)
                (setq n (1- n))
                (while (>= n 1)
                        (setq
                                en1 (ssname en n)
                                en2 (ssname en (setq n (1- n))))                                       
                        (if (HH:TwoEntsInters en1 en2 0)
                                (vl-cmdf "fillet" en1 en2)
                        )
                )
                (prompt "请选择直线，相连的才能倒角:")
        )
        (setvar "cmdecho" cm)
        (COMMAND ".undo" "E")
        (princ)
)
页: 1 2 [3]
查看完整版本: 框选进行批量倒圆