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

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
(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
(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
(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")

还可以这样学到啦

账号		自动登录	找回密码
密码			注册

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