friendship 发表于 2014-8-30 22:11:50

一个小小的倒角的程序，有个功能不知道怎么实现，恳请大家帮助

(defun c:tt()((command "chamfer" "d" "0" "0" "chamfer") )(princ))
实现倒直角，直线，多线都可以倒直角。
现在想加上一个循环，实现倒完一次直角后，继续执行下一次倒角操作，谢谢大家

琴剑江山_10184 发表于 2014-8-31 07:53:48

(defun C:tt ()
(setvar "cmdecho" 0)
(command "_.chamfer" "d" "0" "0" "_.chamfer" "u")
(princ "\n请选取两直线:")
(princ)
)

maiko 发表于 2014-8-31 07:57:23

(COMMMAND '''''''''''''''''''''''''''"CHAMFER" "U")

friendship 发表于 2014-8-31 09:07:46

琴剑江山_10184 发表于 2014-8-31 07:53 static/image/common/back.gif
(defun C:tt ()
(setvar "cmdecho" 0)
(command "_.chamfer" "d" "0" "0" "_.chamfer" "u")


谢谢，不过我的意思是，输入tt命令后，选取2线进行操作，然后程序不退出，直接让你再选取2线进行操作，然后再继续

friendship 发表于 2014-8-31 11:31:59

maiko 发表于 2014-8-31 07:57 static/image/common/back.gif
(COMMMAND '''''''''''''''''''''''''''"CHAMFER" "U")

谢谢，不过我的意思是，输入tt命令后，选取2线进行操作，然后程序不退出，直接让你再选取2线进行操作，然后再继续

fan_zh 发表于 2014-8-31 15:09:52

(defun c:tt()
(while
(setq en1(car(entsel)))
(setq en2(car(entsel)))
(command "chamfer" "d" "0" "0" "chamfer" "u" en1 en2))
(princ)
)

friendship 发表于 2014-8-31 16:01:40

fan_zh 发表于 2014-8-31 15:09 static/image/common/back.gif
(defun c:tt()
(while
(setq en1(car(entsel)))


谢谢fan_zh，能用了。
btw.如果en1、en2只能选择"*line"就好了

Qwer1243 发表于 2021-9-12 21:04:20

琴剑江山_10184 发表于 2014-8-31 07:53
(defun C:tt ()
(setvar "cmdecho" 0)
(command "_.chamfer" "d" "0" "0" "_.chamfer" "u")


还可以这样 学到啦
页: [1]
查看完整版本: 一个小小的倒角的程序，有个功能不知道怎么实现，恳请大家帮助